作业

Xxkwwz

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Outfile_type=a3x
#PRE_Outfile=9.a3x
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
Opt("MustDeclareVars",1)
MsgBox(0,"爱情测试题大全","当一个人对爱付出太多而收获甚少的时候,难免会有所怨怼。" _
         &@CR&"当你爱到穷途末路，山穷水尽的地步，" _
         &@CR&"你是选择继续无言付出，还是挥刀斩断情丝呢？" _
         &@CR&"爱到尽头，因爱生出的恨又会有多狠毒." _
         &@CR&"以下是小编整理的关于爱情测试题大全及答案，欢迎阅读参考。")
         Global $Value = MsgBox(4,"请选择","一个同事/同学爱上你，你会因为身份关系去拒绝吗？")
         Global $Svalue

If $Value = 6 Then
        $Value = MsgBox(4,"请选择","“相敬如宾”是你追求的爱情吗？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","分手了以后，旧情人可以做朋友吗？")
       
EndIf       
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","分手了以后，旧情人可以做朋友吗？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","分手时，你曾经求他，挽留他?？")
       
EndIf       
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","分手时，你曾经求他，挽留他?？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","什么时候你会主动中止爱情？"&@CRLF&"发现他永远无法走入自己的心?请选是"&@CRLF&"客观原因请选否")
       
EndIf       
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","什么时候你会主动中止爱情？"&@CRLF&"发现他永远无法走入自己的心?请选是"&@CRLF&"客观原因请选否")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","你认为主动追来的感情可以长久吗？")
       
EndIf
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","你认为主动追来的感情可以长久吗？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","你相信爱情吗？")
       
EndIf
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","你相信爱情吗？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","你分得清爱与喜欢的差别吗？")
       
EndIf
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","你分得清爱与喜欢的差别吗？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","你有没有过长年偷偷喜欢身边的一个异性朋友？")
       
EndIf
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","你有没有过长年偷偷喜欢身边的一个异性朋友？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","你最近有看爱情的书籍电影而流泪吗？")
       
EndIf
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","你最近有看爱情的书籍电影而流泪吗？")
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","你是否有失去过自我的生活？")
       
EndIf       
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","沉浸甜蜜的爱情中，你会："&@CRLF&"时时想到悲剧的分手?"&@CRLF&"经常幻想两个人的未来?")
        If $Value = 7 Then
                MsgBox(0,"纯纯的爱 Love底线：自己的生命直到枯为爱变狠毒指数：★☆☆☆☆?","你的爱仿佛清冽的甘泉，可以治疗无数疾病，是健康的根基。再多的阴谋比不上一颗单纯的心，你的爱简单，没有一丝垢染，仿佛蓝天空中的那一丝白云自由自在。你的爱就是百灵最美的啼鸣，它唤醒良知，它永生。虽然它脆弱，但是它的力量有着绕梁三日的渗透力。???")
                Exit
        EndIf
       
ElseIf $Value = 7 Then
        $Value = MsgBox(4,"请选择","你认为婚姻是一种经济行为吗？")
       
EndIf       
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","对于爱情的判断，你倾向哪一点？"&@CRLF&"有些感情在那时那地却是错的?请选是"&@CRLF&"爱情没有对和错请选否")
        If $Value = 6 Then
        MsgBox(0,"大度的爱 Love底线：永远为爱变狠毒指数：★★★★☆?","你的爱始终是那么体贴，你的心永远是先想到对方，可是这样一来，你就变成了爱的守护神，永远回不到爱人的座位了。在你心里，你早就给自己做了一个设防，在你心里你已经准备好不要得到这份爱。因为已经退出战场，所以，做什么都是隔着玻璃墙。好听的说来是大度的爱，说白了，是退让的爱。")
        Exit
        ElseIf $Value = 7 Then
        MsgBox(0,"绝望的爱Love底线：对方生命的消逝为爱变狠毒指数：★★★★★???","如果说盲目的爱是种无奈，始终带有理智的爱就是种绝望了。你爱得绝望是因为你始终带有一颗戒备之心，你对人性太了解，晶莹剔透一颗心，巧弄玲珑，天生得心思巧妙，三言两语便可以夺城池，雄视四方抑或幕后主导不外乎你这样的人。只是，因为你不能全心的投入爱情，错失真爱，最容易。")
        Exit
        EndIf       
               
ElseIf $Value = 7 Then
        $Value = MsgBox(0,"痴迷的爱 Love底线：对方憎恨自己为爱变狠毒指数：★★★★☆","你的爱像崇拜，把对方捧在手心里，含在嘴里。你的爱情是一种期待，你在秋天精心播种下???种子，殷切的等待能有棵大树被你种出来。你的爱仿佛水一般，爆发的时候是洪潮雄壮滂湃，柔情是细雨滴滴润物，你的爱渴望被爱。你的爱是痴迷的爱，爱得勇敢，爱得痴迷。但是曾经一位诗人也说过：“爱情是盲目的”。你的爱仿佛也是有这样的悲哀。???")
        Exit
EndIf
If $Value = 6 Then
        $Value = MsgBox(4,"请选择","沉浸甜蜜的爱情中，你会："&@CRLF&"时时想到悲剧的分手?"&@CRLF&"经常幻想两个人的未来?")
        If $Value = 7 Then
                MsgBox(0,"纯纯的爱 Love底线：自己的生命直到枯为爱变狠毒指数：★☆☆☆☆?","你的爱仿佛清冽的甘泉，可以治疗无数疾病，是健康的根基。再多的阴谋比不上一颗单纯的心，你的爱简单，没有一丝垢染，仿佛蓝天空中的那一丝白云自由自在。你的爱就是百灵最美的啼鸣，它唤醒良知，它永生。虽然它脆弱，但是它的力量有着绕梁三日的渗透力。???")
                Exit
        ElseIf        $Value = 6 Then
        $Value = MsgBox(4,"请选择","对于爱情的背叛，以下你可以同意哪句话？"&@CRLF&"爱的底线是不可以背叛请选是"&@CRLF&"有些背叛是身不由己的?请选否")
        EndIf
EndIf       
If $Value = 6 Then
        MsgBox(0,"大度的爱 Love底线：永远为爱变狠毒指数：★★★★☆?","你的爱始终是那么体贴，你的心永远是先想到对方，可是这样一来，你就变成了爱的守护神，永远回不到爱人的座位了。在你心里，你早就给自己做了一个设防，在你心里你已经准备好不要得到这份爱。因为已经退出战场，所以，做什么都是隔着玻璃墙。好听的说来是大度的爱，说白了，是退让的爱。")
ElseIf $Value = 7 Then
        MsgBox(0,"绝望的爱Love底线：对方生命的消逝为爱变狠毒指数：★★★★★???","如果说盲目的爱是种无奈，始终带有理智的爱就是种绝望了。你爱得绝望是因为你始终带有一颗戒备之心，你对人性太了解，晶莹剔透一颗心，巧弄玲珑，天生得心思巧妙，三言两语便可以夺城池，雄视四方抑或幕后主导不外乎你这样的人。只是，因为你不能全心的投入爱情，错失真爱，最容易。")
EndIf       

Xxkwwz

我尝试过，没啥问题了，逻辑绕的我头晕脑胀

chenjingjzg

这是心理测试题吗？XDDDDDD