1.VBS loop语句缺少do

VBS loop语句缺少do

       æºä»£ç ä¸­æœ‰è‹¥å¹²å¤„单词拼写错误,讯源黑石要饭源码还有最后丢了个end if,已经正确调试, On Error Resume Next

       dim a,b,s,u

       do while 1

       u=inputbox("加1，减2，乘3，除4","算什么？")

       if u=0 then

       WScript.quit

       else

       if u=1 then

       a=inputbox("请输入一个数","加法算式")

       b=inputbox("请输入一个数","加法算式")

       s=(abs(a)+abs(b))

       msgbox(s)

       End if

       if u=2 then

       a=inputbox("请输入一个数","减法算式")

       b=inputbox("请输入一个数","减法算式")

       s=a-b

       msgbox(s)

       End if

       if u=3 then

       a=inputbox("请输入一个数","乘法算式")

       b=inputbox("请输入一个数","乘法算式")

       s=a*b

       msgbox(s)

       End if

       if u=4 then

       a=inputbox("请输入一个数","除法算式")

       b=inputbox("请输入一个数","除法算式")

       s=a/b

       msgbox(s)

       End if

       end if

       loop