VB的编程 输入任意的一个正整数 要把它逆序输出

VB的编程 输入任意的一个正整数 要把它逆序输出

最简单的方法：
MsgBox StrReverse(InputBox("请输入一个正整数："))

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

Option Explicit
Private Sub Command1_Click()
Dim s1 As String, s2 As String, i As Integer
s1 = txtInput
For i = Len(s1) To 1 Step -1
s2 = s2 & Mid(s1, i, 1)
Next
txtOutput = s2
End Sub