Const SN = "〇一二三四五六七八九十百千"
Dim s1 As String, s2 As String, i As Integer
s1 = Text1.Text: s2 = "": i = 1
Do While i < Len(s1)
n1 = Val(Mid(s1, i, 1))
n2 = Val(Mid(s1, i + 1, 1))
If n1 <> 0 Then
If n1 = 0 And n2 <> 0 Then
i = i + 1
Loop
n1 = Val(Mid(s1, i, 1))
If n1 <> 0 Then
Text2.Text = s2
上述程序方框处可选语句为:
①s2 = s2 & Mid(SN, n1 + 1, 1) & Mid(SN, Len(s1) - i + 10, 1)
②s2 = s2 & Mid(SN, 1, 1)
③s2 = s2 & Mid(SN, n1 + 1, 1)
则(1)、(2)、(3)处语句依次是( )