VBA代码每个提示框的例子

Sub haoqing()
    Dim msgpopup As VbMsgBoxResult
      
    ' 显示“确定”和“取消”按钮，以及信息图标
    msgpopup = MsgBox("这是一个信息消息框，有确定和取消按钮。", vbOKCancel + vbInformation, "信息标题")
      
    ' 显示“终止”、“重试”和“忽略”按钮，以及警告图标
    msgpopup = MsgBox("这是一个警告消息框，有终止、重试和忽略按钮。", vbAbortRetryIgnore + vbExclamation, "警告标题")
      
    ' 显示“是”、“否”和“取消”按钮，以及疑问图标
    msgpopup = MsgBox("这是一个疑问消息框，有是、否和取消按钮。", vbYesNoCancel + vbQuestion, "疑问标题")
      
    ' 显示“是”和“否”按钮，以及严重错误图标
    msgpopup = MsgBox("这是一个严重错误消息框，有是和否按钮。", vbYesNo + vbCritical, "错误标题")
      
    ' 显示“重试”和“取消”按钮，以及默认图标（无特殊图标）
    msgpopup = MsgBox("这是一个默认图标消息框，有重试和取消按钮。", vbRetryCancel, "默认标题")
End Sub