1. 标记 开始
2. set Obj = createobject("WScript.Shell")
3. （VBScript语句） YN=Obj.Popup(UserName&"是否开始玩数青蛙游戏？",0,"数青蛙",36)
4. 如果表达式 (YN=6) 为真,则
5.     跳转到标记 定义变量
6. 否则
7. 条件结束
8. 脚本停止运行
9. 标记 定义变量
10. （VBScript语句） zg1=0
11. （VBScript语句） zg2=0
12. （VBScript语句） zg3=0
13. （VBScript语句） zg4=0
14. （VBScript语句） zg5=100
15. 标记 眼
16. zg4=zg4+1
17. 如果表达式 (zg1=zg5) 为真,则
18.     跳转到标记 结束
19. 条件结束
20. （VBScript语句） zg1=zg1+1
21. 调用外部VBScript子程序 zg0=InputBox("&" & zg4& "只青蛙有（ ）张嘴。")
22. （VBScript语句） zga = int("&h" & zg0)
23. （VBScript语句） zgb = int("&h" & zg1)
24. 如果表达式 (zga = zgb) 为真,则
25.     跳转到标记 嘴
26. 否则
27.     弹出窗口 "答错了，太可惜了，从头来过。"
28.     跳转到标记 开始
29. 条件结束
30. 标记 嘴
31. （VBScript语句） zg2=zg2+2
32. 调用外部VBScript子程序 zg0=InputBox("&" & zg4& "只青蛙有（ ）张嘴。")
33. （VBScript语句） zga1= int("&h" & zg01)
34. （VBScript语句） zgb1 = int("&h" & zg2)
35. 如果表达式 (zga1 = zgb1) 为真,则
36.     跳转到标记 腿
37. 否则
38.     弹出窗口 "答错了，太可惜了，从头来过。"
39.     跳转到标记 开始
40. 条件结束
41. 标记 腿
42. （VBScript语句） zg3=zg3+4
43. 调用外部VBScript子程序 zg0=InputBox("&" & zg4& "只青蛙有（ ）张嘴。")
44. （VBScript语句） zga2= int("&h" & zg02)
45. （VBScript语句） zgb2 = int("&h" & zg3)
46. 如果表达式 (zga2 = zgb2) 为真,则
47.     跳转到标记 眼
48. 否则
49.     弹出窗口 "答错了，太可惜了，从头来过。"
50.     跳转到标记 开始
51. 条件结束
52. 标记 结束
53. 弹出窗口 "恭喜你顺利过关"