Xxkwwz 发表于 2020-9-11 14:58:26

作业

#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 发表于 2020-9-11 14:58:57

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

chenjingjzg 发表于 2020-9-11 16:28:30

这是心理测试题吗?XDDDDDD
页: [1]
查看完整版本: 作业