程序运行界面如下图所示。
Private Sub Command1_Click()
Dim s As String, t As String, c As String
Dim i As Integer, p As Integer
s = "": t = ""
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c = "," Then
p = Val(t)
s = s + Mid(Text2.Text, p, 1)
t = ""
Else
t =
End If
Next i
Label1.Caption =
End Sub