Question

编程,输入一个四位数,倒置输出。（vb）的过程

编程,输入一个四位数,倒置输出。（vb）的过程

Answer 1

界面：

代码：

Private Sub Command1_Click()
  Dim n As Integer, m As Integer, r As Integer
  n = InputBox("请输入一个四位数：", "输入框", 1234)
  Text1.Text = n
  For i = 0 To 3
    r = n Mod 10
    m = m + r * 10 ^ (3 - i)
    n = n \ 10
  Next i
  Text2.Text = Format(m, "0000")
End Sub

运行效果：

Answer 2

  Dim N As Integer
  N = InputBox("请输入一个4位数")
  If N < 1000 Or N > 9999 Then
    MsgBox "输入错误！"
    Exit Sub
  End If
  
  Dim S As String
  S = Trim(Str(N))
  MsgBox StrReverse(S)