爱华网MsgBox函数和MsgBox语句均可用来弹出对话框，不同处在于MsgBox函数可以返回一个值，而MsgBox语句不会返回值。
MsgBox语句：用于弹出一个对话框。
格式如下：
MsgBox内容[，类型][，标题][，帮助文件名，帮助主题目录号]
在IE地址栏中输入“javascript:alert(“欢迎XX”)”，然后按enter键，则弹出对话框“欢迎XX”
VB中MsgBox语句也可方便实现，在窗体的单击事件中输入如下代码
PrivateSub Form_click()
MsgBox("欢迎XX")
EndSub
MsgBox内容[，类型][，标题][，帮助文件名，帮助主题目录号]
“内容”参数，为必要参数，是一个字符串，其长度不得超过1024字符。如果超过，多余的部分会被省略。字符串的内容在由MsgBox语句弹出的对话框中显示。当字符串在一行内显示不完时，将自动换行。也可用“chr$(13)+chr$(10)”或“vbCrlf”进行强制换行。
例如
PrivateSub Form_click()
MsgBox"欢迎XX" & Chr(13) + Chr(10)& "祝XX快乐每一天！"
EndSub
运行后将弹出对话框如图：
“类型”参数，它是一个整数值或符号常量，用来控制在对话框内显示的按钮、图标的种类及数量。该参数的值由4类数值相加产生，这4类数值或符号常量分别表示按钮的类型、显示图标的种类、活动按钮的位置以及强制返回。不过，对于MsgBox语句，按钮的类型及强制返回作用不大，但对于MsgBox函数却很有用。在MsgBox函数中可通过按钮对话框中某个按钮而执行指定的操作。
MsgBox类型参数的取值：
符号常量 | 值 | 作 用 | |
按 钮 类 型 | vbOKOnly | 0 | 只显示“确定”按钮 |
vbOKCancel | 1 | 只显示“确定”及“取消”按钮 | |
vbAbortRetryIgnore | 2 | 显示“放弃”、“重试”和“忽略”按钮 | |
vbYesNoCancel | 3 | 显示“是”、“否”和“取消”按钮 | |
vbYesNo | 4 | 显示“是”和“否”按钮 | |
vbRetryCancel | 5 | 显示“重试”和“取消”按钮 | |
图 标 样 式 | vbCritical | 16 | 显示系统叉号图标 |
vbQuestion | 32 | 显示系统问号图标 | |
vbExclamation | 48 | 显示系统叹号图标 | |
vbInformation | 64 | 显示系统信息图标 | |
默 认 按 钮 | vbDefaultButton1 | 0 | 第一个按钮为默认按钮 |
vbDefaultButton2 | 256 | 第二个按钮为默认按钮 | |
vbDefaultButton3 | 512 | 第三个按钮为默认按钮 | |
vbDefaultButton4 | 768 | 第四个按钮为默认按钮 | |
强制 返回 | vbApplicationModal | 0 | 应用程序强制返回 |
vbSystemModal | 4096 | 系统强制返回 | |
例如：
Private Sub Form_click()
MsgBox "欢迎XX" & Chr(13) + Chr(10)& "祝XX快乐每一天！"，2
End Sub
运行后将弹出对话框如图：
例如：
Private Sub Form_click()
MsgBox "欢迎XX" & Chr(13) + Chr(10)& "祝XX快乐每一天！"，64
End Sub
运行后将弹出对话框如图：
如果要同时定义按钮类型和图标样式，可直接将按钮类型的取值和图标样式的取值相加即可。例如：2+64
Private Sub Form_click()
MsgBox "欢迎XX" & Chr(13) + Chr(10)& "祝XX快乐每一天！"，66
End Sub
执行结果如图：
Private Sub Form_click()
MsgBox "欢迎XX" & Chr(13) + Chr(10)& "祝XX快乐每一天！"，66+512
End Sub
则会将默认按钮变为第三个按钮，执行结果如图：
如果对话框中只有三个按钮，代码却为“66+768”，执行结果为默认选中第一个按钮。
“标题”参数，用来指定对话框的标题栏文字。
例如：
Private Sub Form_click()
MsgBox "欢迎XX" & Chr(13) + Chr(10)& "祝XX快乐每一天！"，65 + 512, "许愿池"
End Sub
执行结果：
*************
MsgBox函数，除可返回值外，其他功能与MsgBox语句相同。
MsgBox函数返回值是一个整数，可以是1~7之间的任意整数，它们分别对应7个按钮被选中的状态。
返回值 | 操作 | 符号常量 |
1 | 选“确定”按钮 | vbOk |
2 | 选“取消”按钮 | vbCancel |
3 | 选“终止”按钮 | vbAbort |
4 | 选“重试”按钮 | vbRetry |
5 | 选“忽略”按钮 | vblgnore |
6 | 选“是”按钮 | vbYes |
7 | 选“否”按钮 | vbNo |
例如：
在按钮【退出】的双击事件中输入如下代码：
Private Sub Command1_Click()
Dim a As Integer‘定义整形变量a
a = MsgBox("你确定要退出吗？", 1 + 32)‘用变量a来接收MsgBox函数的返回值
If a = 1 Then‘如果变量a的值为1，即MsgBox函数的返回值为1。那么
End
Else
Print ("你没有退出。")
End If
End Sub
