Question

用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下...

用VB做一个恶搞的小程序。大家帮帮忙啊。我同学过生日，礼物我没有找到好的，所以，只好用程序来活跃下气氛咯~~~~~>_<大家帮帮~~~~我想让他说我的礼物很好，如果他说不好的话就自动关机。我和他玩的很好，他知道我比较调皮。他不会怪我的~~帮帮忙~~~~

Answer 1

Private Sub Form_Load()
If MsgBox("我的礼物很好，请确定", vbYesNo) = vbNo Then Shell "e:\shutdown.exe -s -t 0"
End Sub

Answer 2

Private Sub Form_Load()
way1：
If MsgBox("我的礼物很好吗？", vbYesNo) = vbyes
ThenMessageBox(NULL,"生日快乐","猪头",MB_OK)
else goto way1
end if
End Sub

Answer 3

Private Sub Form_Load()
If MsgBox("我的礼物好吗???", vbYesNo+vbExclamation,"请选择答案") = vbNo Then
Shell "e:\shutdown.exe -s -t 0"

end if

End Sub