Question

一道vb编程题目 求大佬解答！！！

使用do loop语句 输入一个正整数，将其各位数字按逆序输出。例如输入1234，输出4321

Answer 1

Private Sub Command1_Click()
Dim x As Integer, y As Integer
  x = InputBox("请慧晌输入雹首一个正整数：")
  t = x
  y = 0
  Do
    y = y * 10 + t Mod 10
    t = t \ 10
  Loop 源碧数While t > 0
  MsgBox x & "  的逆序数是： " & y
End Sub