VB中程序问题,急!

来源：百度知道 编辑：UC知道 时间：2024/06/24 18:27:21
Private Sub Command1_Click()
Dim Text1 As String
Dim Text4 As String
Dim Text5 As String
Dim Text2 As String
Dim Text3 As String
a = Text1.Text
b = Text2.Text
c = Text3.Text
Text4.Text = "(-b + Sqr(b ^ 2 - 4 * a * c))"
Text5.Text = "(-b - Sqr(b ^ 2 - 4 * a * c))"
这个程序哪里有错,我想做一个解二次函数根的小程序
按照所说的做了,为什么仍出现未找到方法或数据成员的提示啊

Private Sub Command1_Click()
Dim a as single,b as single,c as single,del as single
a = val(Text1.Text)
b = val(Text2.Text)
c =val( Text3.Text)
del=Sqr(b ^ 2 - 4 * a * c)
if del <0 then
Text4.Text ="无实根！"
Text5.Text ="无实根！"
else
Text4.Text = (-b + del)/(2*a)
Text5.Text = (-b - del)/(2*a)
end if
end sub

Text4.Text = "(-b + Sqr(b ^ 2 - 4 * a * c))"
明显就错了 不能用引号将表达式引起来这样就成了字符串了

你把Dim Text1 As String
Dim Text4 As String
Dim Text5 As String
Dim Text2 As String
Dim Text3 As String去掉，因为它们是控件，没有必要定义类型，
dim a as double
a=val(text1.text)
b,c同理
还有Text4.Text = "(-b + Sqr(b ^ 2 - 4 * a * c))"把引号去掉，不去的话，意思是说你直接把这个(-b + Sqr(b ^ 2 - 4 * a * c))字符串放入textbox中，而不是求的值。

Dim Text1 As String
Dim Text4 As String
Dim Text5 As String
Dim Text2 As String
Dim Text3 As String
删除了吧,看下文应该是控件

Priv