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 "恭喜你顺利过关"