爱情测试题_9.9作业
#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
$Svalue = "是"
ElseIf $Value = 7 Then
$Svalue = "否"
EndIf
MsgBox(0,"你的选择",$Svalue)
$Value = MsgBox(4,"请选择","'相敬如宾'是你追求的爱情吗？")
Switch $Value
Case 6
MsgBox(0,"你的选择","是")
Case 7
MsgBox(0,"你的选择","否")
EndSwitch
$Value = MsgBox(4,"请选择","分手了以后，旧情人可以做朋友吗？?")
Select
Case $Value = 6
MsgBox(0,"你的选择","是")
Case $Value = 7
MsgBox(0,"你的选择","否")
EndSelect
$Value = MsgBox(4,"什么时候你会主动中止爱情？","发现他永远无法走进自己的心，客观原因")
If $Value = 6 Then
MsgBox(0,"你的选择","是")
ElseIf $Value = 7 Then
MsgBox(0,"你的选择","否")
EndIf
$Value = MsgBox(4,"请选择","你认为主动追来的感情可以长久吗？")
Switch $Value
Case 6
MsgBox(0,"你的选择","是")
Case 7
MsgBox(0,"你的选择","否")
EndSwitch
$Value = MsgBox(4,"请选择","你相信爱情吗？")
Select
Case $Value = 6
MsgBox(0,"你的选择","是")
Case $Value = 7
MsgBox(0,"你的选择","否")
EndSelect
$Value = MsgBox(4,"请选择","你分的清爱与喜欢的差别吗？")
If $Value = 6 Then
MsgBox(0,"你的选择","是")
ElseIf $Value = 7 Then
MsgBox(0,"你的选择","否")
EndIf
$Value = MsgBox(4,"请选择","你有没有过长年偷偷喜欢身边的一个异性朋友")
Switch $Value
Case 6
MsgBox(0,"你的选择","是")
Case 7
MsgBox(0,"你的选择","否")
EndSwitch
$Value = MsgBox(4,"请选择","你是否有失去过自我的生活？")
Select
Case $Value = 6
MsgBox(0,"你的选择","是")
Case $Value = 7
MsgBox(0,"你的选择","否")
EndSelect
$Value = MsgBox(4,"请选择","你认为婚姻是一种经济行为吗？")
If $Value = 6 Then
MsgBox(0,"你的选择","是")
ElseIf $Value = 7 Then
MsgBox(0,"你的选择","否")
EndIf
$Value = MsgBox(4,"对于爱情的判断，你倾向哪一点？","爱情没有对和错，有些感情在那时那地却是错的")
Switch $Value
Case 6
MsgBox(0,"你的选择","是")
Case 7
MsgBox(0,"你的选择","否")
EndSwitch
$Value = MsgBox(4,"沉浸甜蜜的爱情中，你会：","经常幻想两个人的未来?，时时想到悲剧的分手")
Select
Case $Value = 6
MsgBox(0,"你的选择","是")
Case $Value = 7
MsgBox(0,"你的选择","否")
EndSelect
$Value = MsgBox(4,"对于爱情的背叛，以下你可以同意哪句话？","爱的底线是不可以背叛,有些背叛是身不由己的")
If $Value = 6 Then
MsgBox(0,"你的选择","是")
MsgBox(0,"大度的爱","Love底线：永远为爱变狠毒指数：★★★★☆???" _
&@CRLF&"你的爱始终是那么体贴，你的心永远是先想到对方，可是这样一来，你就变成了爱的守护神，永远回不到爱人的座位了。在你心里，你早就给自己做了一个设防，在你心里你已经准备好不要得到这份爱。因为已经退出战场，所以，做什么都是隔着玻璃墙。好听的说来是大度的爱，说白了，是退让的爱。")
ElseIf $Value = 7 Then
MsgBox(0,"你的选择","否")
MsgBox(0,"绝望的爱","Love底线：对方生命的消逝为爱变狠毒指数：★★★★★???" _
&@CRLF&"如果说盲目的爱是种无奈，始终带有理智的爱就是种绝望了。你爱得绝望是因为你始终带有一颗戒备之心，你对人性太了解，晶莹剔透一颗心，巧弄玲珑，天生得心思巧妙，三言两语便可以夺城池，雄视四方抑或幕后主导不外乎你这样的人。只是，因为你不能全心的投入爱情，错失真爱，最容易。")
EndIf
你这不对呀。能把那个做成正常 选择后，得出正确的爱情结论。
页:
[1]