Private Sub Command1_Click()
Dim i As Integer
i = Len(Text1.Text)
If i < 2 Then Exit Sub
Dim n As Integer
For n = 2 To i Step 2
Text2.Text = Text2.Text & Mid(Text1.Text, n, 1)
Next
End Sub
张志晨
