哪位大虾帮看看这VBS脚本,哪里错了,咋不会出重新让输的那个

来源：百度知道 编辑：UC知道 时间：2024/06/04 02:48:33
Dim jq
jq=Inputbox("请输入:","数据")
if 30<jq>65 then
jq=Inputbox("错误请输入:","重新") "这次输错后弹出个窗口,输入有误没法计算
end if

WScript.quit
上边的数是让他只能输30到65之间否则提示让他重新输入,在错一次后就提示输入有错,没法计算,确定退出.

if 30<jq>65 这是什么条件,即大于30又大于65?
改成下面的.
Dim jq
jq=Inputbox("请输入:","数据")
if (jq<65) and (jq>30) then
jq=Inputbox("错误请输入:","重新")'这次输错后弹出个窗口,输入有误没法计算
end if
WScript.quit
这个脚本因为没有循环,所以只判断一次就退出,不会再要求输入.
下面的反复要求输入,直到满足条件为止.
Dim jq
jq=Inputbox("请输入:","数据")
do until (jq>65) or (jq<30)
jq=Inputbox("错误请输入:","重新")'这次输错后弹出个窗口,输入有误没法计算
loop
WScript.quit