信息技术：真心话大冒险.docVIP

真心话大冒险代码大公开： Dim a As String Dim b As String a = InputBox(请回答问题：你爱我吗？如果爱我，请回答爱，否则......, 真心话大冒险) If a = 爱 Then MsgBox 我也爱你！, okonly, 真心话大冒险 MsgBox 那就不捉弄你了, okonly, 真心话大冒险 MsgBox 要记住我对你最好哦, okonly, 真心话大冒险 MsgBox 88888~~~, okonly, 真心话大冒险 Else MsgBox 你真的不爱我吗？, okonly, 真心话大冒险 MsgBox 曾经说过的话，怎么可以不算数呢？, okonly, 真心话大冒险 b = InputBox(现在要改主意吗？还是爱我的话回答是，否则......, 真心话大冒险) If b = 是 Then MsgBox 我也爱你！, okonly, 真心话大冒险 MsgBox 那就不捉弄你了, okonly, 真心话大冒险 MsgBox 要记住我对你最好哦, okonly, 真心话大冒险 MsgBox 88888~~~, okonly, 真心话大冒险 End If If b 是 Then MsgBox (我很生气，后果很严重哦。) MsgBox (嘿嘿！你也会很惨滴哦) MsgBox (是不是想清除我？) MsgBox (那你要点上50下哦，不