Private Sub Command1_Click()
Dim s As String
Dim i, n As Integer
s = ""
n = Len(Text1.Text)
'**********found*************' '请不要删除该行'
For i = 2 To n
s = s & Mid(Text1.Text, i, 1)//不是要输出偶数位置上的 字符吗，后面可以加一条语句：i++
Next i
'**********found*************' '请不要删除该行'
Text2.Text = Text2.Text//这里应该可以直接将串赋给text2.text吧？
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024