VB 这源码怎么些！看下

退出被单击后！弹出一个信息框“你选择确定还是取消？,1,"提示"”

如果 确定被按下！msgbox “你选择了确定”如果取消被按下msgbox "你单击了取消"

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("你选择确定还是取消？", vbQuestion + vbOKCancel, "提示") = vbOK Then
    MsgBox "你选择了确定.", , ""
    Else
    MsgBox "你选择了取消.", , ""
    Cancel = True
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer) Dim a a = MsgBox("你选择确定还是取消？", 1, "提示") If a = vbOK Then MsgBox "你选择了确定" Else MsgBox "你单击了取消"

End If

End Sub