1. 定义变量 zi
2. Event(Form1.Timer1.Timer)
3. Randomize
4. 如果 Form1.Label1.top >= Form1.Height 则
5.     调用 初始1()
6. 否则
7.     令 Form1.Label1.Top = Form1.Label1.Top + 1
8. 条件结束
9. 如果 Form1.Label2.top >= Form1.Height 则
10.     调用 初始2()
11. 否则
12.     令 Form1.Label2.Top = Form1.Label2.Top + 1
13. 条件结束
14. 如果 Form1.Label3.top >= Form1.Height 则
15.     调用 初始3()
16. 否则
17.     令 Form1.Label3.Top = Form1.Label3.Top + 1
18. 条件结束
19. 如果 Form1.Label4.top >= Form1.Height 则
20.     调用 初始4()
21. 否则
22.     令 Form1.Label4.Top = Form1.Label4.Top + 1
23. 条件结束
24. 如果 Form1.Label5.top >= Form1.Height 则
25.     调用 初始5()
26. 否则
27.     令 Form1.Label5.Top = Form1.Label5.Top + 1
28. 条件结束
29. 如果 Form1.Label6.top >= Form1.Height 则
30.     调用 初始6()
31. 否则
32.     令 Form1.Label6.Top = Form1.Label6.Top + 1
33. 条件结束
34. 如果 Form1.Label7.top >= Form1.Height 则
35.     调用 初始7()
36. 否则
37.     令 Form1.Label7.Top = Form1.Label7.Top + 1
38. 条件结束
39. 如果 Form1.Label8.top >= Form1.Height 则
40.     调用 初始8()
41. 否则
42.     令 Form1.Label8.Top = Form1.Label8.Top + 1
43. 条件结束
44. 如果 Form1.Label9.top >= Form1.Height 则
45.     调用 初始9()
46. 否则
47.     令 Form1.Label9.Top = Form1.Label9.Top + 1
48. 条件结束
49. 如果 Form1.Label10.top >= Form1.Height 则
50.     调用 初始10()
51. 否则
52.     令 Form1.Label10.Top = Form1.Label10.Top + 1
53. 条件结束
54. (语句无法识别，可能有错误): End Event
55. Event(Form1.Timer2.Timer)
56. 令 fen = 0
57. 令 变量 = GetLastKey
58. 注释：msgbox Chr(变量) & " " & 变量
59. 如果 Chr(变量) = Form1.Label1.Caption 则
60.     令 fen = fen + 1
61.     调用 初始1()
62. 条件结束
63. 如果 Chr(变量) = Form1.Label2.Caption 则
64.     令 fen = fen + 1
65.     调用 初始2()
66. 条件结束
67. 如果 Chr(变量) = Form1.Label3.Caption 则
68.     令 fen = fen + 1
69.     调用 初始3()
70. 条件结束
71. 如果 Chr(变量) = Form1.Label4.Caption 则
72.     令 fen = fen + 1
73.     调用 初始4()
74. 条件结束
75. 如果 Chr(变量) = Form1.Label5.Caption 则
76.     令 fen = fen + 1
77.     调用 初始5()
78. 条件结束
79. 如果 Chr(变量) = Form1.Label6.Caption 则
80.     令 fen = fen + 1
81.     调用 初始6()
82. 条件结束
83. 如果 Chr(变量) = Form1.Label7.Caption 则
84.     令 fen = fen + 1
85.     调用 初始7()
86. 条件结束
87. 如果 Chr(变量) = Form1.Label8.Caption 则
88.     令 fen = fen + 1
89.     调用 初始8()
90. 条件结束
91. 如果 Chr(变量) = Form1.Label9.Caption 则
92.     令 fen = fen + 1
93.     调用 初始9()
94. 条件结束
95. 如果 Chr(变量) = Form1.Label10.Caption 则
96.     令 fen = fen + 1
97.     调用 初始10()
98. 条件结束
99. 令 Form1.Label11.Caption = "得分: " & Split(Form1.Label11.Caption,": ")(1) + fen
100. 令 变量 = ""