逆序
Dim lngLenght As Long
Dim lngIndex As Long
lngLenght = Len(Text1.Text)
Text2.Text = ""
For lngIndex = 0 To lngLenght - 1
Text2.Text = Text2.Text & Mid(Text1.Text, lngLenght - lngIndex, 1)
Next
大写
Text2.Text = UCase(Text1.Text)
