最简单的方法：MsgBox StrReverse(InputBox("请输入一个正整数："))符合你题意的方法：Dim s1 As String, s2 As String, i As Integers1 = InputBox("请输入一个正整数：")For i = Len(s1) To 1 Step -1 s2 = s2 & Mid(s1, i, 1)NextMsgBox s2
