帮忙编个VB程序~！

来源：百度知道 编辑：UC知道 时间：2024/07/08 01:37:40
若一元二次方程ax2（平方）+bx+c=0有两个实根，请编程计算方程的根。要求系数a,b,c用文本框从键盘上输入，方程的根用标签输出

要求：用VB6.0 企业版
大致的运算思想我懂 可VB编不来 高手帮个忙拉

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = 0 Then
MsgBox "二次项系数不能为零",vbExclamation, "Error"
Exit Sub
End If
Disc = b ^ 2 - 4 * a * c
If Disc > 0 Then
X1 = (-b - Sqr(Disc)) / (2 * a)
X2 = (-b + Sqr(Disc)) / (2 * a)
Label6.Caption = "x1=" & X1 & "," & "x2=" & X2
ElseIf Disc = 0 Then
X1 = (-b + Sqr(Disc)) / (2 * a)
Label6.Caption = "x1=x2=" & X1
Else
Label6.Caption = "无实数解"
End If
End Sub

你给我思路，我帮你编？

Private Sub Form_Click()
Dim a As Long, b As Long, c As Long, delta As double,x1 As double, x2 As double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
delta=b^2-4*a*c
if delta>0 then
x1=(sqr(delta)-b)/(2*a)
x2=(-1*sqr(delta)-b )/(2*a)
label1.caption= "x1