为了正常的体验网站,请在浏览器设置里面开启Javascript功能!

[小学教育]按键精灵脚本自动出口算题练习

2017-08-30 9页 doc 22KB 43阅读

用户头像

is_337177

暂无简介

举报
[小学教育]按键精灵脚本自动出口算题练习[小学教育]按键精灵脚本自动出口算题练习 按键精灵脚本自动出口算题练习 dim a,b a=InputBox("输入加减法上限") b = InputBox("输入出题个数") q=InputBox("是2个数还是3个数相加减") a=cint(a) b = cint(b) q = cint(q) Delay 500 If q = 2 Then Call 子程序1() End If Call 子程序2() Sub 子程序1() Rem 开始 Randomize x=int(Rnd * (a-1+1))...
[小学教育]按键精灵脚本自动出口算题练习
[小学教育]按键精灵脚本自动出口算题练习 按键精灵脚本自动出口算题练习 dim a,b a=InputBox("输入加减法上限") b = InputBox("输入出题个数") q=InputBox("是2个数还是3个数相加减") a=cint(a) b = cint(b) q = cint(q) Delay 500 If q = 2 Then Call 子程序1() End If Call 子程序2() Sub 子程序1() Rem 开始 Randomize x=int(Rnd * (a-1+1)) + 1 y=int(Rnd * (a-1+1)) + 1 f=int(Rnd * (1-0+1)) + 1 If f=1 Then m="-" If x-y<0 Then Goto 开始 End if Goto 打印1 End If If f=2 Then m="+" If x+y>a Then Goto 开始 End if Goto 打印2 End if Rem 打印1 L=L+1 C = C + 1 Rem 重新1 ge = cstr(c) ge1="第"+ge+"题" jia1 = cstr(x) jia2 = cstr(y) shi=jia1+m+jia2+"=" t = InputBox(shi, ge1, "") t = cint(t) If x - y = t Then dui = dui + 1 Else MessageBox "错误,请重新回答..." Goto 重新1 End If Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 Rem 打印2 L=L+1 C = C + 1 Rem 重新2 ge = cstr(c) ge1="第"+ge+"题" jia1 = cstr(x) jia2 = cstr(y) shi=jia1+m+jia2+"=" t = InputBox(shi, ge1, "") t = cint(t) If x + y = t Then dui = dui + 1 Else MessageBox "错误,请重新回答..." Goto 重新2 End If Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 End Sub Sub 子程序2() Rem 开始 Randomize x=int(Rnd * (a-1+1)) + 1 y=int(Rnd * (a-1+1)) + 1 f=int(Rnd * (1-0+1)) + 1 z=int(Rnd * (a-1+1)) + 1 g=int(Rnd * (1-0+1)) + 1 If f=1 Then If x-y<0 Then Goto 开始 End if m="-" If g=1 Then g="-" If x-y-z<0 Then Goto 开始 End if Goto 打印1 End If If g=2 Then g="+" If x-y+z>a Then Goto 开始 End if Goto 打印2 End if End If If f=2 Then m="+" End if If x+y>a Then Goto 开始 End if If g=1 Then g="-" If x+y-z<0 Then Goto 开始 End if Goto 打印3 End If If g=2 Then g="+" If x+y+z>a Then Goto 开始 End if Goto 打印4 End if Rem 打印1 L=L+1 C = C + 1 Rem 重新1 ge = cstr(c) ge1="第"+ge+"题" jia1 = cstr(x) jia2 = cstr(y) jia3 = cstr(z) shi=jia1+m+jia2+g+jia3+"=" t = InputBox(shi, ge1, "") t = cint(t) If x - y -z= t Then dui = dui + 1 Else MessageBox "错误,请重新回答..." Goto 重新1 End If Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 Rem 打印2 L=L+1 C = C + 1 Rem 重新2 ge = cstr(c) ge1="第"+ge+"题" jia1 = cstr(x) jia2 = cstr(y) jia3 = cstr(z) shi=jia1+m+jia2+g+jia3+"=" t = InputBox(shi, ge1, "") t = cint(t) If x - y +z= t Then dui = dui + 1 Else MessageBox "错误,请重新回答..." Goto 重新2 End If Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 Rem 打印3 L=L+1 C = C + 1 Rem 重新3 ge = cstr(c) ge1="第"+ge+"题" jia1 = cstr(x) jia2 = cstr(y) jia3 = cstr(z) shi=jia1+m+jia2+g+jia3+"=" t = InputBox(shi, ge1, "") t = cint(t) If x + y -z= t Then dui = dui + 1 Else MessageBox "错误,请重新回答..." Goto 重新3 End If Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 本脚本为电脑自动出口算题的脚本。 把以下文本复制到按键精灵的源文件里,就可以运行了,口算运算上限自定,出题个数自定,加数减数的个数自定。。。 Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 Rem 打印4 L=L+1 C = C + 1 Rem 重新4 ge = cstr(c) ge1="第"+ge+"题" jia1 = cstr(x) jia2 = cstr(y) jia3 = cstr(z) shi=jia1+m+jia2+g+jia3+"=" t = InputBox(shi, ge1, "") t = cint(t) If x + y +z= t Then dui = dui + 1 Else MessageBox "错误,请重新回答..." Goto 重新4 End If Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 Delay 50 If c = b Then MessageBox "本次答题结束,继续努力哦..." EndScript End if Goto 开始 End Sub
/
本文档为【[小学教育]按键精灵脚本自动出口算题练习】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索