帮我做个VBS,请高手帮帮忙???

嗯，楼上回答很好。
IsNumeric 函数
请参阅
IsArray 函数 | IsDate 函数 | IsEmpty 函数 | IsNull 函数 | IsObject 函数 | VarType 函数
要求
版本 1
返回 Boolean 值指明表达式的值是否为数字。

IsNumeric(expression)
expression 参数可以是任意表达式。

说明
如果整个 expression 被识别为数字，IsNumeric 函数返回 True；否则函数返回 False。如果 expression 是日期表达式，IsNumeric 函数返回 False。

下面的示例利用 IsNumeric 函数决定变量是否可以作为数值：

Dim MyVar, MyCheck
MyVar = 53 '赋值。
MyCheck = IsNumeric(MyVar) ' 返回 True。
MyVar = "459.95" ' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回True。
MyVar = "45 Help" ' 赋值。
MyCheck = IsNumeric(MyVar) ' 返回 False。

再给你排版一下吧，呵呵
do
        num=inputbox("请输入数字","提示")
        if isnumeric(num) then
                msg