UC知道VB问题数字输出
来源：百度知道 编辑：UC知道 时间：2024/05/31 12:10:05
使用InputBox函数输入1个3位数，然后使用Magbox将该数倒序输出。例如输入的数是123，输出的数则为321。
提示：可以使用3个变量分别存放输入的数的个位、十位、百位，然后将其个位×100 + 十位×10 + 百位得到新的数，通过Msgbox输出。
将一个数的各位分拆的方法是：对10求余运算得到最低位，整除10则丢掉个位……。例如，563，第一次对10求余，得到的余数为3，563整除10得到56……。
提示：可以使用3个变量分别存放输入的数的个位、十位、百位，然后将其个位×100 + 十位×10 + 百位得到新的数，通过Msgbox输出。
将一个数的各位分拆的方法是：对10求余运算得到最低位，整除10则丢掉个位……。例如，563，第一次对10求余，得到的余数为3，563整除10得到56……。
啊！漏了一句(MSGBOX NUMB)，补上！
DIM NumA$,NumB%
NUMA=StrReverse(Inputbox("请输入三位的数字："))
IF NOT IsNumeric(NUMA) THEN
MSGBOX "您输入不是数字"
ELSE
NUMB=VAL(NUMA)
MSGBOX NUMB
ENDIF
PS:cwa9958你不懂瞎叽叽...
唉，你已经知道方法了，还不会编吗？
yfv2000 zipall 都是对字符串处理
zipall还是错的
应该是
For i = 3 To 1 Step -1
x = InputBox("请输入1个3位数字")
For i = 1 To 3
t = t & Mid(x, i, 1)
Next i
MsgBox ("反转后的结果为：" & t)
x = InputBox("请输入1个3位数字")
a1 = Mid(x, 1, 1)
a2 = Mid(x, 2, 1)
a3 = Mid(x, 3, 1)
MsgBox a3 & a2 & a1
很容易理解 先把inputbox的结果赋给x a1是得到的第一位其他都是一个原理
Private Sub Command1_Click()
A = InputBox("请输入三位的数字：")
If Not IsNumeric(NumA) Then
MsgBox "您输入不是数字"
Else
B = StrReverse(A)
MsgBox B
End If
End Sub
x = InputBox("请输入1个3位数字")
For i = 1 To 3
t