输入框（ Input Box）

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

语法 (Syntax)

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

参数描述 (Parameter Description)

• Prompt - 必需参数。 在对话框中显示为消息的字符串。 提示的最大长度约为1024个字符。 如果消息扩展到多行，则可以使用回车字符（Chr（13））或每行之间的换行符（Chr（10））分隔行。

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

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

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

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

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

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

例子 (Example)

让我们通过在两个输入框（一个用于长度，一个用于宽度）的帮助下在运行时从用户获取值来计算矩形的面积。

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

输出 (Output)

Step 1 - 要执行相同操作，请使用功能名称进行呼叫，然后按Enter键，如以下屏幕截图所示。

Step 2 - 执行时，显示第一个输入框（长度）。 在输入框中输入一个值。

Step 3 - 输入第一个值后，显示第二个输入框（宽度）。

Step 4 - 输入第二个号码后，单击“确定”按钮。 该区域显示如下面的屏幕截图所示。