UC知道vbs判断用户输入问题(inputbox)
来源：百度知道 编辑：UC知道 时间：2024/07/07 17:07:54
dim ta,tb
do
ta=inputbox("输入数字")
if isnumeric(ta) = true then
msgbox "输入ok"
tb=ta*60
exit do
end if
msgbox "您输入的不是数字"
loop
msgbox ta&"和"&tb
如上,弹出输入框,如果用户点取消,isnumeric(ta) = true怎么会是成立的,导致后面的tb换算值为0了,怎么办???
另外:如何取用户输入数字的整数,如输入10.1234,就取10这个数..
谢谢,<> 0是不等于0的意思吧.?
但这样输入0也提示输入的不是数字了,要保留用户能输入0.而点取消就退出...
秋色烽火 秋色烽火 秋色烽火
最重要的一点:要保留用户能输入0.而点取消就退出...
输入那里点取消之后没退出程序呀,还是继续往下执行了..
do
ta=inputbox("输入数字")
if isnumeric(ta) = true then
msgbox "输入ok"
tb=ta*60
exit do
end if
msgbox "您输入的不是数字"
loop
msgbox ta&"和"&tb
如上,弹出输入框,如果用户点取消,isnumeric(ta) = true怎么会是成立的,导致后面的tb换算值为0了,怎么办???
另外:如何取用户输入数字的整数,如输入10.1234,就取10这个数..
谢谢,<> 0是不等于0的意思吧.?
但这样输入0也提示输入的不是数字了,要保留用户能输入0.而点取消就退出...
秋色烽火 秋色烽火 秋色烽火
最重要的一点:要保留用户能输入0.而点取消就退出...
输入那里点取消之后没退出程序呀,还是继续往下执行了..
Dim ta, tb
Do
ta = InputBox("输入数字")
If ta <> "" Then
If IsNumeric(ta) Then
MsgBox "输入ok"
tb = ta * 60
MsgBox ta & "和" & tb
Exit Do
Else
MsgBox "您输入的不是数字"
End If
Else
Exit Do
End If
Loop
ta=inputbox("输入数字")
do until isnumeric(ta) And ta <> ""
msgbox "您输入的不是数字"
ta=inputbox("输入数字")
loop
ta = int(ta)
tb=ta*60
msgbox ta&"和"&tb