按键精灵算法源码

还记得一只青蛙一张嘴，两只眼睛四条腿么？ 

下面的脚本就是玩这个的，能数到100只就算你是无聊大王了。 

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@小白免    2009/3/19

Rem 开始  
set Obj = createobject("WScript.Shell")  
VBS YN=Obj.Popup(UserName&"是否开始玩数青蛙游戏？",0,"数青蛙",36)  
If YN=6  
    Goto 定义变量  
Else   
EndIf   
EndScript   
Rem 定义变量  
VBS zg1=0  
VBS zg2=0  
VBS zg3=0  
VBS zg4=0  
VBS zg5=100  
Rem 眼  
zg4=zg4+1  
If zg1=zg5  
    Goto 结束  
EndIf   
VBS zg1=zg1+1  
VBSCall zg0=InputBox("&" & zg4& "只青蛙有（  ）张嘴。")  
VBS zga = int("&h" & zg0)  
VBS zgb = int("&h" & zg1)  
If zga = zgb  
    Goto 嘴  
Else   
    MessageBox "答错了，太可惜了，从头来过。"  
    Goto 开始  
EndIf   
Rem 嘴  
VBS zg2=zg2+2  
VBSCall zg01=InputBox("&" & zg4& "只青蛙有（ ）只眼睛。")  
VBS zga1= int("&h" & zg01)  
VBS zgb1 = int("&h" & zg2)  
If zga1 = zgb1  
    Goto 腿  
Else   
    MessageBox "答错了，太可惜了，从头来过。"  
    Goto 开始  
EndIf   
Rem 腿  
VBS zg3=zg3+4  
VBSCall zg02=InputBox("&" & zg4& "只青蛙有（ ）条腿。")  
VBS zga2= int("&h" & zg02)  
VBS zgb2 = int("&h" & zg3)  
If zga2 = zgb2  
    Goto 眼  
Else   
    MessageBox "答错了，太可惜了，从头来过。"  
    Goto 开始  
EndIf   
Rem 结束  
MessageBox "恭喜你顺利过关"