表白小神奇

consttitle="爱情测试"constyourname="XXX"constquestion="你最喜欢的人是谁？请在下面的方框中输入他的名字。"constinfo="你在说谎！不要逃避，实话实说。"constscend="你说出了你的心扉，那就向他表白吧。"dimyouranswerdoyouranswer=inputbox(question,title)ifyouransweryournamethenmsgboxinfo,vbinformation+vb