- 令 Obj = createobject("WScript.Shell")
- 令 YN = Obj.Popup(UserName & "是否开始测试情绪?",0,"情绪测试",36)
- 如果 YN = 6 则
- 否则
- 脚本停止运行
- 条件结束
- 令 t1 = GetSysInfo.GetTime
- 注释:测试时间
- 定义变量 Y, Mon, D, W, h, m, s, SJ
- 注释:先声明变量
- 令 Y = Year(Date)
- 令 Mon = Month(Date)
- 令 D = Day(Date)
- 令 W = Weekday(Date,vbMonday)
- 注释:利用VBS函数获得当前系统的年,月,日,星期 并各自保存到变量中
- 令 h = Hour(time)
- 令 m = Minute(time)
- 令 s = Second(time)
- 注释:利用VBS函数获得当前系统的时,分,秒 并各自保存到变量中
- 令 SJ = Y & "年" & Mon & "月" & D & "号 星期" & W & " " & h & "点" & m & "分" & s & "秒"
- 注释:把得到的年,月,日,星期,时,分,秒连接起来 并保存到SJ变量中
- 注释:得分
- 令 defen = 0
- 注释:↑脚本预备
- 弹出窗口 "你了解自己的情绪吗?请选择符合自己的选项。"
- 注释:测试过程
- 循环开始
- 令 Q = inputbox("①我感到很快乐。 1经常 2有时 3较少 4根本没有","情绪测试")
- 如果 Q = 1 则
- 令 defen = defen + 0
- 跳出循环
- 否则如果 Q = 2 则
- 令 defen = defen + 1
- 跳出循环
- 否则如果 Q = 3 则
- 令 defen = defen + 2
- 跳出循环
- 否则如果 Q = 4 则
- 令 defen = defen + 3
- 跳出循环
- 否则
- 弹出窗口 "不要乱输哦"
- 条件结束
- 循环结束
- 循环开始
- 令 Q = inputbox("②我对一切都乐观向前看。 1几乎是 2较少是 3很少是 4几乎没有","情绪测试")
- 如果 Q = 1 则
- 令 defen = defen + 0
- 跳出循环
- 否则如果 Q = 2 则
- 令 defen = defen + 1
- 跳出循环
- 否则如果 Q = 3 则
- 令 defen = defen + 2
- 跳出循环
- 否则如果 Q = 4 则
- 令 defen = defen + 3
- 跳出循环
- 否则
- 弹出窗口 "不要乱输哦"
- 条件结束
- 循环结束
- 循环开始
- 令 Q = inputbox("③我对原来感兴趣的事现在仍感兴趣。 1肯定 2不像从前 3有一点 4几乎没有","情绪测试")
- 如果 Q = 1 则
- 令 defen = defen + 0
- 跳出循环
- 否则如果 Q = 2 则
- 令 defen = defen + 1
- 跳出循环
- 否则如果 Q = 3 则
- 令 defen = defen + 2
- 跳出循环
- 否则如果 Q = 4 则
- 令 defen = defen + 3
- 跳出循环
- 否则
- 弹出窗口 "不要乱输哦"
- 条件结束
- 循环结束
- 循环开始
- 令 Q = inputbox("④我能看到事物好的一面。 1经常 2现在不这样了 3现在很少 4根本没有","情绪测试")
- 如果 Q = 1 则
- 令 defen = defen + 0
- 跳出循环
- 否则如果 Q = 2 则
- 令 defen = defen + 1
- 跳出循环
- 否则如果 Q = 3 则
- 令 defen = defen + 2
- 跳出循环
- 否则如果 Q = 4 则
- 令 defen = defen + 3
- 跳出循环
- 否则
- 弹出窗口 "不要乱输哦"
- 条件结束
- 循环结束
- 循环开始
- 令 Q = inputbox("⑤我对自己穿着打扮完全失去兴趣。 1不是 2不太是 3几乎是 4是","情绪测试")