Question

确定取消的VB代码怎么写？

Answer 1

MsgBox用法 你理解错了
可以将语句放入一个事件中，比如放入按钮的单击事件，如下是提醒不反回任何值 ，只用做提示：
Private Sub Command1_Click()
MsgBox "你好", 3 + 48 + 0, "你惨了"
End Sub

注意了吗这个不能加括号
运行（F5） 单击按钮 就可以弹出对话框。

如果要得到 弹出消息中 你单击的是哪个按钮 （确定，取消等）
可以把MsgBox 赋值给一个整型变量 根据你选择了确定或是取消来继续相应的处理：

Private Sub Command1_Click()
dim a as long
a = MsgBox("你好", 1, "你惨了")
if a =1 then
text1="明白了吗"
else
text2="你没有选择确定！选择了取消"
end if

End Sub

也可以弹出，
注意了吗这个加括号 来返回值

MsgBox介绍及用法等见

返回值 用于MsgBox函数返回值的常量 常数值 说明 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 终止 vbRetry

追问

谢谢你

追答

不客气

Answer 2

你需要返回值：
X=msgbox("你要提示的内容",1,"标题")
如果X=1，则表示点击“确定”按钮；
如果X=2，则表示点击“取消”按钮。

Answer 3

msgbox "内容",vbOKCancel ,"提示"

追问

能详细点吗？

追答

If MsgBox("内容", vbOKCancel, "提示") = vbOK Then
Print "确定" '确定的操作
Else
Print "取消" '取消操作的代码
End If

Answer 4

Private Sub Command1_Click()
Dim a As Integer
a = MsgBox(" 请选择： ", vbOKCancel)
If a = vbOK Then
MsgBox "你选择了：确定 "
End If
If a = vbCancel Then
MsgBox "你选择了：取消 "
End If
End Sub