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

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

运行环境：分辨率：1440×900 色深：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 "恭喜你顺利过关"