使用msgbox函数和msgbox过程

1、本题只需要一个窗体，无需进行界面对象设计，要知道用户单击了哪一个键，需对msgbox函数的返回的整数进行判断，而非msgbox过程。

2、因为按钮是“是”和“否”，按钮类型为严重错误型，默认按钮为第二个，所以按钮的参数的值应为：vbyesno+vbcritical+vbdefaultbutton2

3、用msgbox过程显示用户单击了哪个按钮的信息

1、编写窗体（设其姓名为form1）click事件。

即在窗体上写入一个command1命令按钮，然后我们可以在程序代码窗口对象下拉列表框中选中form，这时我们可以在代码列表框中看到如下的代码。

Private Sub Command1_Click()

End Sub

2、输入代码

Private Sub Command1_Click()

Dim msg As String * 40, style%, titl$, response%

msg = "do you want to continue?"  '定义信息

style = vbYesNo + vbCritical + vbDefaultButton2 '定义按钮

titl = "msgbox demonstration" '定义标题

response = MsgBox(msg, style, titl)

If response = vbYes Then '用户单击"是"按钮

MsgBox "用户单击yes按钮"

Else ''用户单击"否"按钮

MsgBox "用户单击no按钮"

End If

End Sub