InputValue
InputValue函数用于显示一个对话框，获得用户输入的单个值。
这样我们就无需为一些简单的输入工作而专门设计窗口，直接使用InputValue函数即可。
语法：
InputValue(Variant, Caption，Description)
InputValue(Variant, Caption，Description,
Items)
InputValue(Variant, Caption，Description,
MultiLine)
Variant:
用于接收数据的变量
Caption： 字符型，设置对话框标题
Description： 字符型，设置对话框说明
Items：
字符型，指定下拉列表项目，例如"Foxtable|Excel|Access"
MultiLine： 逻辑型，设置为True，可以输入多行文本
InputValue会返回一个逻辑值，如果用户在对话框中单击的是确定按钮，则返回True，否则返回False。
示例一
Dim
Val As
Date = Date.Today
If
InputValue(Val,
"筛选","请输入日期:")
Then
Output.Show(Val)
End
If
示例二
Dim
Val As Integer = 5示例三
Dim
Val
As
String
=
"Foxtable"
If
InputValue(Val,
"选择",
"请选择一个产品:",
"Foxtable|Excel|Access")
Then
Output.Show(Val)
End
If