1、按钮的配置可以通过MsgBox 函数的第2 个参数来设置，即：
MsgBox 提示内容, 对话框按钮代码
2、(1)当自变值为0 或省略时〈见代码1 和代码2 ），对话框中只有一个按钮
3、代码1
Sub 对话框()
MsgBox "当前工作表的名称为：" & Chr(10) & ActiveSheet.Name,0
End Sub
参数为0
4、代码2，参数缺省
Sub 对话框()
MsgBox "当前工作表的名称为：" & Chr(10) & ActiveSheet.Name
End Sub
5、<2>当参数为1时
Sub 对话框()
MsgBox "当前工作表的名称为：" & Chr(10) & ActiveSheet.Name,1
End Sub
6、<3>当参数为2时
Sub 对话框()
MsgBox "当前工作表的名称为：" & Chr(10) & ActiveSheet.Name,2
End Sub
7、<4>当参数为3时
Sub 对话框()
MsgBox "当前工作表的名称为：" & Chr(10) & ActiveSheet.Name,3
End Sub
8、<5>当参数为4时
Sub 对话框()
MsgBox "当前工作表的名称为：" & Chr(10) & ActiveSheet.Name,4
End Sub
9、<5>当参数为3时
Sub 对话框()
MsgBox "当前工作表的名称为：" & Chr(10) & ActiveSheet.Name,5
End Sub
