Office 2013 VBA编程技巧：Inpuox函数详解与应用实例.pdfVIP

5.3输入输出语句

在VBA中包含了几个常用的输入与输出语句。输入语句可以用于获得用户输入参数。输

出语句可以为用户显示部分提示信息，有时开发者还可以根据这些输出调试程序。本节中介绍的

语句包括InputBox函数、MsgBox函数以及Print语句。

5.3.1InputBox函数——提示输入内容

InputBox函数用于获取输入，该函数将显示一个输入框，等待用户输入。用户在其

中输入内容并单击“确定”按钮后，该输入内容将作为该函数的返回值。当用户单击“取消”按钮

后，该框不返回任何结果。该框显示效果如图5-7所示，其对应代码如下。

Subtest()

InputBox输入选择的内容

EndSub

程序员可以通过InputBox函数的参数对该窗

口进行自定义。

图5-7InputBox

调用InputBox函数的语法结构如下。

返回值=InputBox(Prompt,[title][,default][,xpos,ypos][,helpfile,context])

InputBox函数的返回值为文本框内容的字符串。即无论用户在框中输入的是数字

还是字符，其返回值始终都是字符型。当用户单击“确定”按钮，返回文本框中的内容；单

击“取消”按钮，将返回一个零长度字符串。该函数的调用格式中，参数数量较多。其中Prompt、

Title和Default参数较为常用。以下是这3个参数的详细说明。

❑Prompt：必选参数，指定显示在输入框中的提示信息，最大长度为1024个字

符。

❑Title：可选参数，指定输入框的标题信息。

❑Default：可选参数，指定文本框中默认的显示内容。

下面的Sub示例过程通过InputBox函数，显示输入框从用户获取圆半径，然后将

该圆的面积显示到信息框中。该过程的建立步骤如下。

（1）新建工作簿，进入VBE，添加新的模块，然后在该模块的代码窗口中输入如下代码。

SubConRound()

ConstPi3.1415926定义常量Pi

DimrAsDouble

DimaAsDouble

r=InputBox(请输入圆的半径)获取圆半径

a=2*Pi*r计算圆周长

MsgBox(圆的周长为：a)显示圆周长

EndSub

（2）运行程序代码，弹出一个输入框要求输入圆半径，这里输入3，如图5-8所

示。

（3）单击“确定”按钮，程序计算周长，并把结果显示出来，如图5-9所示。

图5-9显示圆周长结果

图5-8输入圆半径

说明：如果Prompt参数即需要显示的信息包含了多行字符串，则可以在各行间使用回

车符Chr(13)、换行符Chr(10)来分隔各行信息。当将包含这些字符的字符串显示出来时，字

符串将在该处重新开始一段或换行。

5.3.2MsgBox函数——显示信息

MsgBox函数可以使用框的形式显示一些简单的错误、警告或提示信息给用户，等

待用户的相应操作。在弹出的框中，用户的操作都通过单击相应的按钮完成。这些按钮

被赋予了特殊的值，用户单击相应按钮后，函数将以该值作为返回值。该函数弹出的框

如图5-10所示，其对应的代码如下。

Subtest()

MsgBox显示信息的框,vbInformation

EndSub

MsgBox函数的调用格式有两种：一种是不返回值的

过程调用，通常用于显示提示信息；一种是具有返回图5-10