Question

vb中的lable caption属性的参数是什么，以下是我编的程序，可是他老是出现参数不可选错误

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val.Text1(0).Text
b = Val.Text1(0).Text
c = Val.Text1(0).Text
d = b ^ 2 - 4 * a * c
lable2.Caption = a * x ^ 2 + b * x + c = 0

If d > 0 Then
x = (-b + d ^ (1 / 2)) / (2 * a)
y = (-b + d ^ (1 / 2)) / (2 * a)
lable2.Caption = lable2.Caption & "的两实根为" & x & "和" & y

ElseIf d = 0 Then
x = (-b + d ^ (1 / 2)) / (2 * a)
lable2.Caption = lable2.Caption & "的两相同实根为" & x

ElseIf d < 0 Then
x = "没有实根"
lable2.Caption = lable2.Caption & x
End If

End Sub
急~~有没有哪位好心人给出答案啊，或者直接把正确答案发过来
多谢了,真的很急~~，而且我已经按下述方法改了，可还是错误424！！！！！

Answer 1

lable.caption 是String 属性的。 如果要把int 转换成String 推荐用CStr. 例如：
dim a as Integer(or Long).
Lable2.Caption = CStr(a);
不过看你的用法 有可能出现小数点后好几位的情况。如果直接用CStr的话 可能会按照 科学计数法按换算。
例如：
Dim a as Single
a = 0.000001; // 这个也等于 a = 10 E-06;
如果直接CStr。
Lable2.Caption = CStr(a) //结果是 10E-06 而不是 0.000001.
所以你可以直接用"&".
Lable2.Caption = &a.

另外"lable2.Caption = a * x ^ 2 + b * x + c = 0" 为什么这样写。。。。

Answer 2

里面好多错误啊，我帮你修改了，我已调试完毕
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1(0).Text)
b = Val(Text1(1).Text)
c = Val(Text1(2).Text)
d = b ^ 2 - 4 * a * c
Label2.Caption = a & "* x ^ 2 +" & b & "* x + " & c & "= 0"

If d > 0 Then
x = (-b + d ^ (1 / 2)) / (2 * a)
y = (-b - d ^ (1 / 2)) / (2 * a)
Label2.Caption = Label2.Caption & "的两实根为" & x & "和" & y

ElseIf d = 0 Then
x = (-b + d ^ (1 / 2)) / (2 * a)
Label2.Caption = Label2.Caption & "的两相同实根为" & x

ElseIf d < 0 Then
x = "没有实根"
Label2.Caption = Label2.Caption & x
End If

End Sub
若还不能通过，请把整个工程发给我，我帮你看看，qw623577789@163.com

Answer 3

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1(0).Text) 'val函数 括号
b = Val(Text1(1).Text) 'textbox数组控件 下标应该是不相同的赋值给不同变量
c = Val(Text1(2).Text)
d = b ^ 2 - 4 * a * c
Label2.Caption = a & " * x ^ 2 + " & b & " * x + " & c & " = 0" '控件名拼写错误 字符串得用双引号
If d > 0 And a <> 0 Then 'a有可能为0 基于除数不能为零 还得加个限制条件
x = (-b + d ^ (1 / 2)) / (2 * a)
y = (-b + d ^ (1 / 2)) / (2 * a)
Label2.Caption = Label2.Caption & "的两实根为" & x & "和" & y

ElseIf d = 0 And a <> 0 Then
x = (-b + d ^ (1 / 2)) / (2 * a)
Label2.Caption = Label2.Caption & "的两相同实根为" & x

ElseIf d < 0 Then
x = "没有实根"
Label2.Caption = Label2.Caption & x
End If

End Sub

追问

非常感谢你细致耐心的回答，我已经按你说的改了可还是错误424

追答

控件名你对上了没啊？

追问

对上了，非常郁闷，还是错误424，
还有一个问题请教，我输入了x=ab
想用print输出x的值，即ab
该怎么输

追答

Text1(0).Text 有3个数组控件 你都对上啦？
x=a* b

Answer 4

大概看一下,应该是部分格式和函数出错了.首先,Val函数后面要用括号;其次,标签label属性,在代码中你写成了lable...还有,代码中多次出现text1(0),你写的控件数组可能不对..

Answer 5

你解释下这一句你想干什么？
lable2.Caption = a * x ^ 2 + b * x + c = 0
用两次等号，不出错才怪。

追问

就是想在标签框中显示ax^2+bx+c=0

追答

那你就得加引号，写成label2.Caption =" a * x ^ 2 + b * x + c = 0"
你这样写就成了表达式了。
另外，你的上面几个句子应该写成a = Val(Text1(0).Text)