Question

程序运行后，在文本框TEXT1中输入一个字符串，单击命令按纽，把字符串中偶数位置上的字符输入到文本框TEXT2

Answer 1

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

张志晨