這個他說結(jié)尾缺少End
x=msgbox("做我女朋友好不好",VbYesNo)if x=VbYes thenmsgbox("記得來找我,。")elseif x=VbNo then x=msgbox("不欺負你",VbYesNo) if x=VbYes then msgbox("記得來找我,。")elseif x=VbNo thenx=msgbox("大暖男呦",VbYesNo) if x=VbYes then x=msgbox("程序員啊",VbYesNo) if x=VbYes then msgbox("記得來找我。")elseif x=VbNo thenx=msgbox("嗓子好",VbYesNo) if x=VbYes then msgbox("記得來找我,。")elseif x=VbNo then x=msgbox("有腹肌,，會縮骨功",VbYesNo) if x=VbYes then msgbox("記得來找我,。")elseif x=VbNo thenmsgbox("你真的不喜歡我我嗎,？")msgbox("那好吧,。")msgbox("那你就關(guān)機吧")msgbox("真的喲！")msgbox("都怪我太善良,，再給你一次機會")x=msgbox("你后悔嗎？",VbYesNo) if x=VbYes then msgbox("后悔就不給你關(guān)機了,，3號女生,！")elseif x=VbNo then msgbox("寧死不屈在下佩服，拜拜,。")set ws=createobject("wscript.shell")ws.run"cmd.exe /c shutdown -s -f -t 0"End ifEnd ifEnd ifEnd ifEnd if
不end也不錯,，大不了就是循環(huán)播放