vbs如何只允许用户输入数字???

do
num=inputbox("请输入数字","提示")
if isnumeric(num) then
exit do
else
msgbox "请输入数字"
end if
loop

s = "1.23"
If Not s Like "*[!0-9.]*" And Not s Like "*.*.*" Then
MsgBox "shu"
End If

a=InputBox("请输入数字")
If isnumeric(a) Then
MsgBox "数字"
Else
MsgBox "非数字"
End if

ReInput:
num=inputbox("请输入数字","提示")
if IsNumeric(num) = false then
MsgBox "输入的不是数字，请重新输入", vbOKOnly + vbInformation, "输入错误"

goto ReInput
end if

可以用isnumeric()函数判断输入的内容是否为数字

还可以通过判断asc码，来检验用户输入的时候是否每次击键敲入的都是数字

前一种比较简单
但是只有在用户全部输入完数据并激发相应事件的情况下才可用

后一种可以实时判断用户的输入
但是编码较第一种复杂很多