Private Sub Command1_Click()
x = CLng(InputBox("请输入一个整数："))
y = 0
X1 = x
While X1 > 0
y = y * 10 + X1 Mod 10 '将x1中的末位数字添加到y末位
X1 = X1 \ 10 '将X1的末位去除
Wend
MsgBox x & " 数字倒转后是 " & y
End Sub
