VB中 inputbox函数 的用法

来源：百度知道 编辑：UC知道 时间：2024/05/05 22:03:01
Private Sub Command1_Click()
l = InputBox("l=")
s = InputBox("s=")
d = l * l / 4 - 4 * s
If d >= 0 Then
X1 = (l / 2 + Sqr(d)) / 2
X2 = (l / 2 - Sqr(d)) / 2
Print X1, X2
Else
Print "no"
End If
End Sub

Private Sub Command2_Click()
a = InputBox("a=")
b = InputBox("b=")
Max = (a + b) / 2
Print Max
End Sub

请问inputbox的返回类型是字符串,所以第二个程序结果会出错,但为什么第一个程序结果又没有错,会运行呢?请教各位VB高手,偶是VB菜鸟

由于inputbox返回的都是string，如果要运算，就要把string转换成intrger或者其他数值形式

l = Cdbl(InputBox("l="))
s = Cdbl(InputBox("s="))
a = Cdbl(InputBox("a="))
b = Cdbl(InputBox("b="))

最好定义一下l、s、a、b、d为double型

在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

语法

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

InputBox 函数的语法具有以下几个命名参数：

部分 描述
Prompt 必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决定。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。
Title 可选的。显示对话框标题栏中的字符串表达式。如果省略 title，则把应用程序名放入标题栏中。
Default 可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略 default，则文本框为空。
Xpos 可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略 xpos，则对话框会在水平方向居中。
Ypos 可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。
Helpfile 可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相关的帮助。如果已提供 helpfile，则也必须提供 context。
Context