Dim s As String, c As String
Dim i As Integer, n As Integer, p As Integer
s = Text1.Text
n = Len(s)
p = 1
For i = 1 To n
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Then
t = c + t
Else
t = Mid(t, 1, p - 1) + c + Mid(t, p, Len(t) - p + 1)
p = p + 1
End If
Next i
Text2.Text = t
如果文本框Text1中输入“ABCD@1234”,则文本框Text2中输出( )