1.VBS loop语句缺少do
2.求一个按键精灵随机数字的源码源代码
3.求按键精灵源代码：随循环次数累加按键次数，即第一次循环按Down五次，源码fossil溯源码第二次循环按Down十次，源码黄金买点源码依此类

VBS loop语句缺少do

       æºä»£ç ä¸­æœ‰è‹¥å¹²å¤„单词拼写错误,源码pwm模块源码还有最后丢了个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

求一个按键精灵随机数字的源代码

       Dim MyValue, Response

       Randomize '初始化随机数生成器。

       Do Until Response = vbNo

        MyValue = Int(( * Rnd) + 1) ' 产生 1 到 之间的源码美食商城源码随机数。

        MsgBox "随机数:"&MyValue

       Loop

求按键精灵源代码：随循环次数累加按键次数，源码textarea换行源码即第一次循环按Down五次，源码第二次循环按Down十次，源码依此类

       方法1

       i=1

       Do

       For i

       KeyPress "Down",源码 5

       Next

       Delay

       i=i+1

       loop

       方法2

       For i = 1 To i + 1

       For i * 5

       KeyPress "Down", 1

       Next

       TracePrint i

       Delay

       Next