实现上述功能的VB程序如下,请在划线处填入合适的代码
Dim
a(1 To 20) As Integer
Dim
i As Integer, n As Integer
Private
Sub Form_Load()
Dim s As String, ch As String
n = 1:s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
a(n) =
Else
n = n + 1
End If
Next i
End
Sub
Private
Sub Command1_Click()
Dim j As Integer, t1 As Integer, t2 As
Integer
For i = 2 To n/2
t1 = a(2 * i - 1): t2 = a(2 * i): j = i
- 1
Do While
a(2 * j + 1) = a(2 * j - 1)
a(2 * j + 2) = a(2 * j)
j = j - 1
If j = 0 Then Exit Do
Loop
a(2 * j + 1) = t1
Next i
For i = 1 To n/2
Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))
Next i
End Sub