1. 弹出窗口 "请依照下列指示诊断你的性格吧! "
2. 延时 500 毫秒
3. 注释：1
4. 定义变量 Q
5. 令 Q = inputbox("1.有一天在路上，有人突然对你大叫：“有人在追着我．请帮帮我吧。”仔细一看，说话的那个人竟然是你的偶像，这时候你认为追着他的人是谁？ 1. 影迷 2. 记者","心理测试")
6. 如果 Q = 1 则
7.     调用 D
8. 否则如果 Q = 2 则
9.     调用 G
10. 否则
11.     弹出窗口 "请别乱输入！"
12.     延时 500 毫秒
13.     调用 A
14. 条件结束
15. 子程序 A
16.     定义变量 Q
17.     令 Q = inputbox("1.有一天在路上，有人突然对你大叫：“有人在追着我．请帮帮我吧。”仔细一看，说话的那个人竟然是你的偶像，这时候你认为追着他的人是谁？ 1. 影迷 2. 记者","心理测试")
18.     如果 Q = 1 则
19.         调用 D
20.     否则如果 Q = 2 则
21.         调用 G
22.     否则
23.         弹出窗口 "请别乱输入！"
24.         延时 500 毫秒
25.         调用 A
26.     条件结束
27. 子程序结束
28. 注释：2
29. 子程序 B
30.     定义变量 W
31.     令 W = inputbox("2.终於帮他把追逐者摆脱了，而他也向你微笑示意，此时你认为他的意思是？ 1. 单纯的微笑着 2. 衷心的感谢你","心理测试")
32.     如果 W = 1 则
33.         调用 E
34.     否则如果 W = 2 则
35.         调用 I
36.     否则
37.         弹出窗口 "请别乱输入！"
38.         延时 500 毫秒
39.         调用 B
40.     条件结束
41. 子程序结束
42. 注释：3
43. 子程序 C
44.     定义变量 R
45.     令 R = inputbox("3.当这段际遇结束后，而他正欲离去，你希望他对你说什麽？ 1. 对你握手说再见 2. 对你吻别","心理测试")
46.     如果 R = 1 则
47.         调用 性格A()
48.     否则如果 R = 2 则
49.         调用 性格B()
50.     否则
51.         弹出窗口 "请别乱输入！"
52.         延时 500 毫秒
53.         调用 C
54.     条件结束
55. 子程序结束
56. 注释：4
57. 子程序 D
58.     定义变量 O
59.     令 O = inputbox("4.为了闪避影迷的追逐，你会将他带到那里躲避？ 1. 人多的大型商场 2. 人少的小巷子里","心理测试")
60.     如果 O = 1 则
61.         调用 H
62.     否则如果 O = 2 则
63.         调用 B
64.     否则
65.         弹出窗口 "请别乱输入！"
66.         延时 500 毫秒
67.         调用 D
68.     条件结束
69. 子程序结束
70. 注释：5
71. 子程序 E
72.     定义变量 P
73.     令 P = inputbox("5.为了闪躲穷追不舍的影迷，你会帮他选择那种伪装道具？ 1. 帽子 2. 眼镜","心理测试")
74.     如果 P = 1 则
75.         调用 M
76.     否则如果 P = 2 则
77.         调用 F
78.     否则
79.         弹出窗口 "请别乱输入！"
80.         延时 500 毫秒
81.         调用 E
82.     条件结束
83. 子程序结束
84. 注释：6
85. 子程序 F
86.     定义变量 N
87.     令 N = inputbox("6.当你们渡过了这惊险的一天后，在离别时他留下了电话号码给你，你会如何？ 1. 等过几天后再打给他 2. 电话可能是假的算了","心理测试")
88.     如果 N = 1 则
89.         调用 性格D()
90.     否则如果 N = 2 则
91.         调用 性格B()
92.     否则
93.         弹出窗口 "请别乱输入！"
94.         延时 500 毫秒
95.         调用 F
96.     条件结束
97. 子程序结束
98. 注释：7
99. 子程序 G
100.     定义变量 M