UC知道vb问题 急急急
来源：百度知道 编辑：UC知道 时间：2024/05/21 19:22:15
任给一个数，如果此数是三位数，则逆向输出该数；否则输出“不是三位数”。如输入123,则输出321。
谢谢你们，那我原来编的
Dim a!, b!, c!, d!, e!
a = Val(Text1.Text)
e = Len(a)
b = (a - (a Mod 100)) / 100
d = a Mod 10
c = (a - 100 * b - d) / 10
If e = 3 Then Text2.Text = 100 * d + 10 * c + b else inputbox("不是三位数")
End Sub
为什么不对啊？
谢谢你们，那我原来编的
Dim a!, b!, c!, d!, e!
a = Val(Text1.Text)
e = Len(a)
b = (a - (a Mod 100)) / 100
d = a Mod 10
c = (a - 100 * b - d) / 10
If e = 3 Then Text2.Text = 100 * d + 10 * c + b else inputbox("不是三位数")
End Sub
为什么不对啊？
用len(trim())判断长度.
再用string(val())函数判断是否为纯数字.
逆向输出的时候,用left,mid,right取原数的三个位.再用right+mid+left连成新三位数.
Private Sub Command1_Click()
n = InputBox("请输入数字吧!!")
MsgBox IIf(Len(n) = 3, StrReverse(n), "不是三位数")
End Sub