| |
|
|
| |
| 求解方程 |
|
[ 2008-11-19 21:11:00 | By: 快乐虫 ] |
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a = 0 Then
If b = 0 Then
If c = 0 Then
X1 = "无穷解"
X2 = "无穷解"
Else
X1 = "无解"
X2 = "无解"
End If
Else
X1 = -c / b
X2 = -c / b
End If
Else
k = b ^ 2 - 4 * a * c
If k >= 0 Then
X1 = (-b + Sqr(k)) / (2 * a)
X2 = (-b - Sqr(k)) / (2 * a)
Else
X1 = -b / (2 * a) + Sqr(Abs(k)) & "i"
X2 = -b / (2 * a) - Sqr(Abs(k)) & "i"
End If
End If
Text4 = X1
Text5 = X2
End Sub
|
|
| |
|
