InputBox函数提示用户输入值。输入值后，如果用户单击“确定”按钮或按键盘上的ENTER键，InputBox函数将在文本框中返回文本。如果用户单击“取消”按钮，该函数将返回一个空字符串(“”)。

句法

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

参数说明

• 提示-必需的参数。在对话框中显示为消息的字符串。提示的最大长度约为1024个字符。如果消息扩展到多于一个线路，则该线路可以用回车字符(CHR(13))或各行之间的换行字符(CHR(10))分离。

• 标题-可选参数。对话框标题栏中显示的String表达式。如果标题留为空白，则应用程序名称将放置在标题栏中。

• 默认值-可选参数。用户希望在文本框中显示的默认文本。

• XPos-可选参数。 X轴的位置表示水平距离屏幕左侧的距离。如果留为空白，则输入框为水平居中。

• YPos-可选参数。 Y轴的位置表示垂直于屏幕左侧的提示距离。如果留为空白，则输入框为垂直居中。

• Helpfile-可选参数。一个字符串表达式，用于标识用于为对话框提供上下文相关帮助的帮助文件。

• 上下文-可选参数。一个数字表达式，用于标识帮助作者分配给相应帮助主题的帮助上下文编号。如果提供了上下文，则还必须提供帮助文件。

例

让我们在运行时借助两个输入框(一个代表长度，一个代表宽度)从用户处获取值来计算矩形的面积。

Function findArea() 
   Dim Length As Double 
   Dim Width As Double 
   
   Length = InputBox("Enter Length ", "Enter a Number") 
   Width = InputBox("Enter Width", "Enter a Number") 
   findArea = Length * Width 
End Function

输出

步骤1-要执行相同的操作，请使用函数名称进行调用，然后按Enter，如以下屏幕截图所示。

步骤2-执行后，将显示第一个输入框(长度)。在输入框中输入一个值。

步骤3-输入第一个值后，将显示第二个输入框(宽度)。

步骤4-输入第二个数字后，单击确定按钮。显示该区域，如以下屏幕快照所示。