写一个函数,把字符转为从右到左即可
Dim str As String = "123456"Dim nstr As String = ""For i As Integer = str.Length-1 To 0 Step -1 nstr &= str(i)Nextmsgbox(nstr)