请问excel 2007怎么样解一元二次方程?
发布网友
发布时间：2024-10-20 15:34
共4个回答
热心网友
时间：2024-10-31 00:25
D1输入
=(-B1+SQRT(B1*B1+4*A1*C1))/(2*A1)
E1输入
=(-B1+SQRT(B1*B1-4*A1*C1))/(2*A1)
分别为两个解
如果显示错误值，说明delta小于0，无解
热心网友
时间：2024-10-31 00:25
将1，-3,2三个数字分别输入A1，B1，C1三个单元格
D1输入
=(-B1+SQRT(B1*B1-4*A1*C1))/(2*A1)
E1输入
=(-B1-SQRT(B1*B1-4*A1*C1))/(2*A1)
分别为两个解
如果显示错误值，说明delta小于0，无解
特此更正，请后面的童鞋们注意。
热心网友
时间：2024-10-31 00:26
Private Sub Command1_Click()
Dim a As Double
Dim b As Double
Dim c As Double
Dim p As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
p = (b * b - 4 * a * c)
If p < 0 Then
MsgBox "无实数解"
ElseIf p = 0 Then
X1 = (-b) / (2 * a)
Text4.Text = Str(X1)
X2 = X1
Text5.Text = Str(X2)
ElseIf p > 0 Then
X1 = ((-b) + Sqr(p)) / (2 * a)
Text4.Text = X1
X2 = ((-b) - Sqr(p)) / (2 * a)
Text5.Text = X2
End If
End Sub
热心网友
时间：2024-10-31 00:26
