VB

Private Sub Command1_Click()

x = MsgBox("猜猜我是誰？你知道嗎？", vbYesNoCancel, "問題")

If x = 6 Then Label1 = "你是神！強阿！"

If x = 7 Then Label1 = "哈哈哈哈~~~"

If x = 2 Then Label1 = "不理我?!"

y = MsgBox("美女在哪？", vbOKOnly, "??!!")

z = MsgBox("被被騙了！哈哈哈！", , "HAHAHAHAHA")

End Sub