1. 令 Obj = createobject("WScript.Shell")
2. 令 YN = Obj.Popup(UserName & "是否开始测试情绪？",0,"情绪测试",36)
3. 如果 YN = 6 则
4. 否则
5.     脚本停止运行
6. 条件结束
7. 令 t1 = GetSysInfo.GetTime
8. 注释：测试时间
9. 定义变量 Y, Mon, D, W, h, m, s, SJ
10. 注释：先声明变量
11. 令 Y = Year(Date)
12. 令 Mon = Month(Date)
13. 令 D = Day(Date)
14. 令 W = Weekday(Date,vbMonday)
15. 注释：利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
16. 令 h = Hour(time)
17. 令 m = Minute(time)
18. 令 s = Second(time)
19. 注释：利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
20. 令 SJ = Y & "年" & Mon & "月" & D & "号 星期" & W & " " & h & "点" & m & "分" & s & "秒"
21. 注释：把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
22. 注释：得分
23. 令 defen = 0
24. 注释：↑脚本预备
25. 弹出窗口 "你了解自己的情绪吗？请选择符合自己的选项。"
26. 注释：测试过程
27. 循环开始
28.     令 Q = inputbox("①我感到很快乐。 1经常 2有时 3较少 4根本没有","情绪测试")
29.     如果 Q = 1 则
30.         令 defen = defen + 0
31.         跳出循环
32.     否则如果 Q = 2 则
33.         令 defen = defen + 1
34.         跳出循环
35.     否则如果 Q = 3 则
36.         令 defen = defen + 2
37.         跳出循环
38.     否则如果 Q = 4 则
39.         令 defen = defen + 3
40.         跳出循环
41.     否则
42.         弹出窗口 "不要乱输哦"
43.     条件结束
44. 循环结束
45. 循环开始
46.     令 Q = inputbox("②我对一切都乐观向前看。 1几乎是 2较少是 3很少是 4几乎没有","情绪测试")
47.     如果 Q = 1 则
48.         令 defen = defen + 0
49.         跳出循环
50.     否则如果 Q = 2 则
51.         令 defen = defen + 1
52.         跳出循环
53.     否则如果 Q = 3 则
54.         令 defen = defen + 2
55.         跳出循环
56.     否则如果 Q = 4 则
57.         令 defen = defen + 3
58.         跳出循环
59.     否则
60.         弹出窗口 "不要乱输哦"
61.     条件结束
62. 循环结束
63. 循环开始
64.     令 Q = inputbox("③我对原来感兴趣的事现在仍感兴趣。 1肯定 2不像从前 3有一点 4几乎没有","情绪测试")
65.     如果 Q = 1 则
66.         令 defen = defen + 0
67.         跳出循环
68.     否则如果 Q = 2 则
69.         令 defen = defen + 1
70.         跳出循环
71.     否则如果 Q = 3 则
72.         令 defen = defen + 2
73.         跳出循环
74.     否则如果 Q = 4 则
75.         令 defen = defen + 3
76.         跳出循环
77.     否则
78.         弹出窗口 "不要乱输哦"
79.     条件结束
80. 循环结束
81. 循环开始
82.     令 Q = inputbox("④我能看到事物好的一面。 1经常 2现在不这样了 3现在很少 4根本没有","情绪测试")
83.     如果 Q = 1 则
84.         令 defen = defen + 0
85.         跳出循环
86.     否则如果 Q = 2 则
87.         令 defen = defen + 1
88.         跳出循环
89.     否则如果 Q = 3 则
90.         令 defen = defen + 2
91.         跳出循环
92.     否则如果 Q = 4 则
93.         令 defen = defen + 3
94.         跳出循环
95.     否则
96.         弹出窗口 "不要乱输哦"
97.     条件结束
98. 循环结束
99. 循环开始
100.     令 Q = inputbox("⑤我对自己穿着打扮完全失去兴趣。 1不是 2不太是 3几乎是 4是","情绪测试")