用VB怎么把12345变成54321

Function RevStr(ByVal strSrc As String)

Dim i As Integer
Dim strRet As String

For i = 1 To Len(strSrc)
strRet = Mid(strSrc, i, 1) & strRet
Next

RevStr = strRet

End Function

调用方式-------
Dim strA
strA = "12345"
strA = RevStr(strA)

最简单的就是用StrReverse函数：
假设Text1.Text=12345
在发生Command1的单击事件时要让Text2.Text=54321
语句为：
Private Sub Command1_Click()
Text2.Text = StrReverse(Text1.Text)
End Sub