1.     如果 Q = 1 则
  2.         令 defen = defen + 0
  3.         跳出循环
  4.     否则如果 Q = 2 则
  5.         令 defen = defen + 1
  6.         跳出循环
  7.     否则如果 Q = 3 则
  8.         令 defen = defen + 2
  9.         跳出循环
  10.     否则如果 Q = 4 则
  11.         令 defen = defen + 3
  12.         跳出循环
  13.     否则
  14.         弹出窗口 "不要乱输哦"
  15.     条件结束
  16. 循环结束
  17. 循环开始
  18.     令 Q = inputbox("⑥我感到情绪在渐渐变好。 1几乎是 2有时是 3很少是 4不是","情绪测试")
  19.     如果 Q = 1 则
  20.         令 defen = defen + 0
  21.         跳出循环
  22.     否则如果 Q = 2 则
  23.         令 defen = defen + 1
  24.         跳出循环
  25.     否则如果 Q = 3 则
  26.         令 defen = defen + 2
  27.         跳出循环
  28.     否则如果 Q = 4 则
  29.         令 defen = defen + 3
  30.         跳出循环
  31.     否则
  32.         弹出窗口 "不要乱输哦"
  33.     条件结束
  34. 循环结束
  35. 循环开始
  36.     令 Q = inputbox("⑦我能很投入地看一本书或一部电视剧。 1总是 2经常 3很少 4几乎没有","情绪测试")
  37.     如果 Q = 1 则
  38.         令 defen = defen + 0
  39.         跳出循环
  40.     否则如果 Q = 2 则
  41.         令 defen = defen + 1
  42.         跳出循环
  43.     否则如果 Q = 3 则
  44.         令 defen = defen + 2
  45.         跳出循环
  46.     否则如果 Q = 4 则
  47.         令 defen = defen + 3
  48.         跳出循环
  49.     否则
  50.         弹出窗口 "不要乱输哦"
  51.     条件结束
  52. 循环结束
  53. 令 t2 = GetSysInfo.GetTime
  54. 令 t = t2 - t1
  55. 注释：分数级别判定过程
  56. 如果 defen < 9 则
  57.     令 jieguo = "良好情绪"
  58. 否则
  59.     令 jieguo = "不良情绪"
  60. 条件结束
  61. 弹出窗口 "测试结束，测试结果见桌面。"
  62. 注释：建立测试结果
  63. 令 objShell = CreateObject("WScript.Shell")
  64. 令 desk = objShell.SpecialFolders.Item("desktop")
  65. 注释：↑取得桌面路径
  66. 令 fso = CreateObject("Scripting.FileSystemObject")
  67. 定义常量 forreading = 1
  68. 定义常量 forwriting = 2
  69. 定义常量 forappending = 8
  70. 如果 fso.FileExists(desk & "\情绪测试结果.txt") = 0 则
  71.     令 myfile = fso.createtextfile(desk & "\情绪测试结果.txt")
  72.     myfile.Close()
  73.     令 how = 0
  74. 否则
  75.     令 myfile = fso.opentextfile(desk & "\情绪测试结果.txt",forreading)
  76.     循环当 myfile.atendofstream = 0 时
  77.         令 zero = myfile.readline
  78.         令 Lleft = instr(1,zero,"(")
  79.         令 Rright = instr(1,zero,")")
  80.         如果 Rright - Lleft - 1 > 0 则
  81.             令 how = mid(zero,Lleft + 1,Rright - Lleft - 1)
  82.         条件结束
  83.         注释：↑检测第几次检测
  84.     循环结束
  85.     myfile.Close()
  86. 条件结束
  87. 令 myfile = fso.opentextfile(desk & "\情绪测试结果.txt",forappending)
  88. 注释：↑写一个TXT到桌面
  89. myfile.writeline((""))
  90. myfile.writeline(("第(" & how + 1 & ")次测试于" & SJ))
  91. myfile.writeline(("测试耗时:" & t / 1000 & "秒"))
  92. myfile.writeline(("测试结果：" & jieguo))
  93. myfile.writeline(("危险指数：" & defen))
  94. 如果 defen >= 9 则
  95.     myfile.writeline(("调节情绪的方法："))
  96.     myfile.writeline((" (1)理智控制法：主动调动理智的力量，冷静分析自己对事物的认识是否正确、考虑是否周全；主动调整自己的看法和态度，纠正认识上的偏差，使消极情绪减弱或消除。"))
  97.     myfile.writeline((" (2)注意转移法：有意识地把注意力转到其他事物或活动上去，使消极情绪得以缓解。"))
  98.     myfile.writeline((" (3)幽默化解法：幽默的作用一是生活的调味剂，二是精神的舒缓剂。运用这种方法调控情绪，往往会大事化小，小事化了。"))
  99.     myfile.writeline((" (4)积极的自我暗示法：暗示是通过语言的刺激来纠正或改变人们的某种行为状况或情绪状态。我们可以通过自己的积极暗示来减少或消除低落情绪。"))
  100. 条件结束