建立一个text1,一个command1,一个label1
程序如下：
Dim st1 As String, st2 As String
Dim i As Integer
Private Sub Command1_Click()
st1 = Text1
st2 = ""
For i = 1 To Len(st1)
st2 = Mid(st1, i, 1) + st2
Next
Label1.Caption = st2
End Sub
已经运行过，没问题！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024