MsgBox函数    产生消息框，并返回一个表示命令按钮已被单击的值

MsgBox函数用来产生一个消息框。消息框用来显示简短的消息，并要求用户作出一定的响应。例如，报告操作错误或向用户提示信息。看完这些消息以后，可选取一个按钮来关闭该对话框。

下图所示的消息框就是使用MsgBox函数产生的，它提示用户在文本框中没有输入任何内容。

    创建该消息框的代码如下：

   Msg = MsgBox("您没有在文本框中输入任何内容", 48, "提示")

    这里我们通过编写一个程序，来讲解如何在程序中使用MsgBox函数创建消息框。

      实例使用消息框1

    这个程序包含一个文本框和一个按钮，在文本框中输入内容后单击按钮则所输入的内容就显示在窗体中；如果在文本框中没有输入任何内容，则击按钮后会弹出一个提示框，告诉用户没有在文本框中输入任何内容， 上图所。下面是编制这个小程序的具体过程。

首先，在窗体中放置一个文本框控件，设置它的Text属性的值为空，再放置一个按钮控件，设置它的Caption属性的值为“确定”。文本框与按钮的名称均使用系统默认的名称。双击按钮控件，打开代码窗口，为按钮的Click

  事件编写如下代码：

Private Sub Command1_Click()
If Text1.Text = "" Then
Msg = MsgBox("您没有在文本框中输入任何内容", 48+1, "提示")
Else
Print Text1.Text
End If
End Sub

在上面的程序段中，使用了一个分支结构来判断文本框中是否输入了内容。运行该程序，直接单击[确定]按钮，则弹出如图所示的消息框。再次运行程序，在文本框中输入内容后，单击[确定]按钮，则不会出现消息框，且在窗体中显示用户输入的内容。显示图案和数字关系为（16 ，32 ，48 ，64 ），数字后面的加数分别为：

0
1
2
3
4