1.     令 M = inputbox("7.当你们得选择搭乘交通工具闪避时，你会选择那种交通工具？ 1. 公共汽车 2. 搭计程车","心理测试")
  2.     如果 M = 1 则
  3.         调用 K
  4.     否则如果 M = 2 则
  5.         调用 B
  6.     否则
  7.         弹出窗口 "请别乱输入！"
  8.         延时 500 毫秒
  9.         调用 G
  10.     条件结束
  11. 子程序结束
  12. 注释：8
  13. 子程序 H
  14.     定义变量 S
  15.     令 S = inputbox("8.当你们被影迷档住去路时，此时的影迷大概多少人？ 1. 5人左右 2. 10人左右","心理测试")
  16.     如果 S = 1 则
  17.         调用 E
  18.     否则如果 S = 2 则
  19.         调用 L
  20.     否则
  21.         弹出窗口 "请别乱输入！"
  22.         延时 500 毫秒
  23.         调用 H
  24.     条件结束
  25. 子程序结束
  26. 注释：9
  27. 子程序 I
  28.     定义变量 Z
  29.     令 Z = inputbox("9.当你们躲过了他们的追逐，此时他说：“今天我们一起去逛逛吧？”你们会到那？ 1. 电影院 2. 餐饮店","心理测试")
  30.     如果 Z = 1 则
  31.         调用 C
  32.     否则如果 Z = 2 则
  33.         调用 J
  34.     否则
  35.         弹出窗口 "请别乱输入！"
  36.         延时 500 毫秒
  37.         调用 I
  38.     条件结束
  39. 子程序结束
  40. 注释：10
  41. 子程序 J
  42.     定义变量 X
  43.     令 X = inputbox("10.到了互相告别的时刻，你会对他说？ 1. 今天很高兴能帮助你 2. 能有机会再见面吗","心理测试")
  44.     如果 X = 1 则
  45.         调用 性格A()
  46.     否则如果 X = 2 则
  47.         调用 性格C()
  48.     否则
  49.         弹出窗口 "请别乱输入！"
  50.         延时 500 毫秒
  51.         调用 J
  52.     条件结束
  53. 子程序结束
  54. 注释：11
  55. 子程序 K
  56.     定义变量 U
  57.     令 U = inputbox("11.当你们被计者追到，计者问到诽闻时，你认为他的对象可能是？ 1. 圈内人士 2. 圈外人士","心理测试")
  58.     如果 U = 1 则
  59.         调用 I
  60.     否则如果 U = 2 则
  61.         调用 L
  62.     否则
  63.         弹出窗口 "请别乱输入！"
  64.         延时 500 毫秒
  65.         调用 K
  66.     条件结束
  67. 子程序结束
  68. 注释：12
  69. 子程序 L
  70.     定义变量 Y
  71.     令 Y = inputbox("12.当他准备了谢礼给你时，你想可能是那种物品？ 1. 他新买的手表 2. 他用过的饰品","心理测试")
  72.     如果 Y = 1 则
  73.         调用 F
  74.     否则如果 Y = 2 则
  75.         调用 J
  76.     否则
  77.         弹出窗口 "请别乱输入！"
  78.         延时 500 毫秒
  79.         调用 L
  80.     条件结束
  81. 子程序结束
  82. 注释：13
  83. 子程序 M
  84.     定义变量 T
  85.     令 T = inputbox("13.他为了答谢你请你吃东西，可是却是你不喜欢的食物，此时你会？ 1. 免强吃下 2. 拒绝吃下","心理测试")
  86.     如果 T = 1 则
  87.         调用 性格C()
  88.     否则如果 T = 2 则
  89.         调用 性格D()
  90.     否则
  91.         弹出窗口 "请别乱输入！"
  92.         延时 500 毫秒
  93.         调用 M
  94.     条件结束
  95. 子程序结束
  96. 子程序 性格A()
  97.     弹出窗口 "性格A．唯命是从型：你是一个附合度高的人，但缺乏自我的主张跟个性；你最好多考虑一下自己的观点。"
  98. 子程序结束
  99. 子程序 性格B()
  100.     弹出窗口 "性格B．容易软化型：在爱情方面，你是一个依从者，会跟随对方的意见去做，欠缺自我肯定的意志力。"