Exit do   
    ElseIf Q = 3 Then
        defen = defen + 2
        Exit do   
    ElseIf Q = 4 Then
        defen = defen + 3
        Exit do   
    Else 
        MessageBox "不要乱输哦"
    End If
Loop
Do
    Q = inputbox("⑥我感到情绪在渐渐变好。                        1几乎是  2有时是  3很少是  4不是", "情绪测试")
    If Q = 1 Then
        defen = defen + 0
        Exit do   
    ElseIf Q = 2 Then
        defen = defen + 1
        Exit do   
    ElseIf Q = 3 Then
        defen = defen + 2
        Exit do   
    ElseIf Q = 4 Then
        defen = defen + 3
        Exit do   
    Else 
        MessageBox "不要乱输哦"
    End If
Loop
Do
        Q = inputbox("⑦我能很投入地看一本书或一部电视剧。                        1总是  2经常  3很少  4几乎没有", "情绪测试")
    If Q = 1 Then
        defen = defen + 0
        Exit do   
    ElseIf Q = 2 Then
        defen = defen + 1
        Exit do   
    ElseIf Q = 3 Then
        defen = defen + 2
        Exit do   
    ElseIf Q = 4 Then
        defen = defen + 3
        Exit do   
    Else 
        MessageBox "不要乱输哦"
    End If
Loop
t2=Plugin.GetSysInfo.GetTime 
t = t2 - t1
//分数级别判定过程
If defen < 9 Then
    jieguo = "良好情绪"
Else 
    jieguo = "不良情绪"
End If
MessageBox "测试结束，测试结果见桌面。"
//建立测试结果
Set objShell = CreateObject("WScript.Shell")
desk = objShell.SpecialFolders.Item("desktop")
//↑取得桌面路径
set fso=CreateObject("Scripting.FileSystemObject")
Const forreading=1
const forwriting=2
const forappending=8
If fso.FileExists(desk&"\情绪测试结果.txt")=0
    set myfile=fso.createtextfile(desk&"\情绪测试结果.txt")
    myfile.Close
    how=0
Else 
    set myfile=fso.opentextfile(desk&"\情绪测试结果.txt",forreading)
    While myfile.atendofstream=0
        zero=myfile.readline
        Lleft=instr(1,zero,"(")
        Rright=instr(1,zero,")")
        If Rright-Lleft-1>0 then
            how=mid(zero,Lleft+1,Rright-Lleft-1)
        End if
        //↑检测第几次检测
    wend 
    myfile.Close
End If 
set myfile=fso.opentextfile(desk&"\情绪测试结果.txt",forappending)
//↑写一个TXT到桌面
myfile.writeline ("")
myfile.writeline ("第("& how + 1 &")次测试于"&SJ)
myfile.writeline("测试耗时:"& t/1000 & "秒")
myfile.writeline("测试结果：" & jieguo)
myfile.writeline("危险指数：" & defen)
If defen >= 9 Then 
    myfile.writeline("调节情绪的方法：")
    myfile.writeline("  (1)理智控制法：主动调动理智的力量，冷静分析自己对事物的认识是否正确、考虑是否周全；主动调整自己的看法和态度，纠正认识上的偏差，使消极情绪减弱或消除。")
    myfile.writeline("  (2)注意转移法：有意识地把注意力转到其他事物或活动上去，使消极情绪得以缓解。")
    myfile.writeline("  (3)幽默化解法：幽默的作用一是生活的调味剂，二是精神的舒缓剂。运用这种方法调控情绪，往往会大事化小，小事化了。")
    myfile.writeline("  (4)积极的自我暗示法：暗示是通过语言的刺激来纠正或改变人们的某种行为状况或情绪状态。我们可以通过自己的积极暗示来减少或消除低落情绪。")
End If
myfile.writeline ("第("& how + 1 &")次测试完毕")
//↑这几行就是你写进TXT的内容