Question

vb中让数字倒转怎么设计程序

Answer 1

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

Answer 2

Private Sub Command1_Click()
Dim s As String
s = text1.Text
text2.Text = StrReverse(s)
End Sub