vbs如何只允许用户输入数字???
答案:5 悬赏:0 手机版
解决时间 2021-03-20 08:40
- 提问者网友：像風在裏
- 2021-03-19 08:34
vbs如何只允许用户输入数字???
最佳答案
- 五星知识达人网友：野味小生
- 2021-03-19 08:45
do
num=inputbox("请输入数字","提示")
if isnumeric(num) then
exit do
else
msgbox "请输入数字"
end if
loop
num=inputbox("请输入数字","提示")
if isnumeric(num) then
exit do
else
msgbox "请输入数字"
end if
loop
全部回答
- 1楼网友：鸠书
- 2021-03-19 14:23
可以用isnumeric()函数判断输入的内容是否为数字
还可以通过判断asc码，来检验用户输入的时候是否每次击键敲入的都是数字
前一种比较简单
但是只有在用户全部输入完数据并激发相应事件的情况下才可用
后一种可以实时判断用户的输入
但是编码较第一种复杂很多
还可以通过判断asc码，来检验用户输入的时候是否每次击键敲入的都是数字
前一种比较简单
但是只有在用户全部输入完数据并激发相应事件的情况下才可用
后一种可以实时判断用户的输入
但是编码较第一种复杂很多
- 2楼网友：老鼠爱大米
- 2021-03-19 13:02
ReInput:
num=inputbox("请输入数字","提示")
if IsNumeric(num) = false then
MsgBox "输入的不是数字，请重新输入", vbOKOnly + vbInformation, "输入错误"
goto ReInput
end if
num=inputbox("请输入数字","提示")
if IsNumeric(num) = false then
MsgBox "输入的不是数字，请重新输入", vbOKOnly + vbInformation, "输入错误"
goto ReInput
end if
- 3楼网友：时间的尘埃
- 2021-03-19 11:44
a=InputBox("请输入数字")
If isnumeric(a) Then
MsgBox "数字"
Else
MsgBox "非数字"
End if
If isnumeric(a) Then
MsgBox "数字"
Else
MsgBox "非数字"
End if
- 4楼网友：怀裏藏嬌
- 2021-03-19 10:10
s = "1.23"
If Not s Like "*[!0-9.]*" And Not s Like "*.*.*" Then
MsgBox "shu"
End If
If Not s Like "*[!0-9.]*" And Not s Like "*.*.*" Then
MsgBox "shu"
End If
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯