新建一个窗体,在窗体上添加一个命令按钮,然后在代码窗口中添加以下代码:
===============================================
Private Sub Command1_Click()
Const msg1 As String="请在这里输入你想显示的一段话!"
Const msg2 As String="这里是对话框要显示的标题."
MsgBox msg1,vbOkOnly,msg2 '此处代码一定不能添加()
End Sub
===============================================
记住,1楼的代码会出现编译错误,在不需要返回值的时候就不能添加(),而在需要返回值的时候就一定要添加().
Private Sub CommandButton1_Click()
MsgBox ("OK?")
End Sub