Question

高手们,帮我做个VBS

要求:
编一个VBS,当输入的是{数字},就将这个数字平方,再输出, 如果输入的是{字母}就显示"这个不是数字"并重新执行这个VBS!

我是菜鸟不太懂啊!!请高手帮帮忙!!

Answer 1

嗯，楼上回答很好。
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
msgbox(num*num)
exit do
else
msgbox "这不是数字！请重新输入！"
end if
loop

Answer 2

呵呵，程序已经调试过，ok！

do
num=inputbox("请输入数字","提示")
if isnumeric(num) then
msgbox(num*num)
exit do
else
msgbox "这不是数字！请重新输入！"
end if
loop