我想点是就在出一个，点否就退出

Dim Rtn&Private Sub Command1_Click() Rtn = MsgBox("您确定要删除本笔资料吗 ?", vbYesNo, "厂商管理作业") 'MsgBox IIf(Rtn = 6, "您选择了 Yes", "您选择了 No") '简单的写法 If Rtn = 6 Then MsgBox "您选择了 Yes" Else MsgBox "您选择了 No" End IfEnd Sub

为什么Rtn = 6? 我试过其它数值好像都不行```

MsgBox 函数有以下返回值：常数 值 按钮 vbOK 1 确定 vbCancel 2 取消 vbAbort 3 放弃 vbRetry 4 重试 vbIgnore 5 忽略 vbYes 6 是 vbNo 7 否 Dim Rtn&Private Sub Command1_Click() Rtn = MsgBox("您确定要删除本笔资料吗 ?", vbYesNo, "厂商管理作业") 'MsgBox IIf(Rtn = vbYes, "您选择了 Yes", "您选择了 No") '简单的写法 If Rtn = vbYes Then MsgBox "您选择了 Yes" Else MsgBox "您选择了 No" End IfEnd Sub

谢谢

If MsgBox("你好",VBYesNo,"呵呵")=VBYes Then   MsgBox "你选择了[是]"End if

很好`谢谢！

学习了~~~

Private Sub Command1_Click()Select Case MsgBox("你好", vbExclamation + vbYesNoCancel, "test")Case vbYes    Debug.Print "你选择了是"    Case vbNo    Debug.Print "你选择了否"    Case vbCancel    Debug.Print "你选择了取消"    End SelectEnd Sub

用法真多啊，再来一个吧

采用 了。谢谢