老妹干学前教育的，每天要出60道加法作业和60道减法作业（一行3题，共20行），要求格式A+B=？，A-B=？，其中加法A、B、A+B均不能大于100，减法A不能大于B。看到老妹每天出题时痛苦不堪，当哥的岂能不理，用30分钟写脚本如下：

For 20
For 3
VBS filename="D:\加法作业.doc"
VBS Set a = CreateObject("Scripting.FileSystemObject")
VBS set f=a.opentextfile(filename,8,True)
Rem 1
VBS Randomize
VBS P=99
VBS N=Int(P*Rnd+1)
VBS N2=Int(P*Rnd+1)
If N+N2>100
Goto 1
Else
VBS f.Write(LEFT(N&" ",2)&"+"&LEFT(N2&" ",2)&"="&" ")
EndIf
EndFor
VBS f.WriteLine("")
EndFor
For 20
For 3
VBS filename="D:\减法作业.doc"
VBS Set a = CreateObject("Scripting.FileSystemObject")
VBS set f=a.opentextfile(filename,8,True)
VBS Randomize
VBS P=99
VBS N=Int(P*Rnd+1)
VBS N2=Int(P*Rnd+1)
If N>=N2
VBS f.Write(LEFT(N&" ",2)&"-"&LEFT(N2&" ",2)&"="&" ")
Else
VBS f.Write(LEFT(N2&" ",2)&"-"&LEFT(N&" ",2)&"="&" ")
EndIf
EndFor
VBS f.WriteLine("")
EndFor

从此老妹每天工作一键搞定。

也希望以上脚本能给刚接触按键精灵的朋友解决类似痛苦。