UC知道用VB解一元二次方程 我的代码哪错了
来源：百度知道 编辑：UC知道 时间：2024/06/10 15:26:11
小弟刚学了没几下，GGJJ帮帮忙啊！
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x1 = Val(Text4.Text)
x2 = Val(Text5.Text)
Dim a As Single
Dim b As Single
Dim c As Single
Dim x1 As Single
Dim x2 As Single
Dim f As Double
d = b ^ 2 - 4 * a * c
If a = 0 Then
MsgBox ("一次相系数不得为零")
ElseIf d < 0 Then
MsgBox ("无解")
Else
f = Sqr(d)
x1 = (-b + f) / (2 * a): x2 = (-b - f) / (2 * a)
End If
End Sub
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
x1 = Val(Text4.Text)
x2 = Val(Text5.Text)
Dim a As Single
Dim b As Single
Dim c As Single
Dim x1 As Single
Dim x2 As Single
Dim f As Double
d = b ^ 2 - 4 * a * c
If a = 0 Then
MsgBox ("一次相系数不得为零")
ElseIf d < 0 Then
MsgBox ("无解")
Else
f = Sqr(d)
x1 = (-b + f) / (2 * a): x2 = (-b - f) / (2 * a)
End If
End Sub
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim x1 As Single
Dim x2 As Single
Dim f As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If a = 0 Then
MsgBox ("二次相系数不得为零")
ElseIf d < 0 Then
MsgBox ("无解")
Else
f = Sqr(d)
x1 = (f - b) / (2 * a)
x2 = (-b - f) / (2 * a)
Text4.Text = x1
Text5.Text = x2
End If
End Sub
============================
变量声明最好放在最前面，不然的话，如果你给该变量赋了值，VB就自动帮你声明了，你又声明，结果就出现了重复声明的错误
你把代码贴上来，我们现场给你指出错误，否则我们怎么知道你错在哪里
代码?