一元二次方程求解
Option Explicit
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single
Dim detal As Single
Dim rc As Single
Dim sb As Single
Dim sq1 As String, sq2 As String
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If a <> 0 Then
detal = b ^ 2 - 4 * a * c
rc = -b / (2 * a)
If detal > 0 Then
sb = Sqr(detal) / (2 * a)
Label5.Caption = "该方程有两个不同的解"
sq1 = "x1=" & Format((rc + sb), "0.##")
sq2 = "x2=" & Format((rc - sb), "0.##")
Label6.Caption = sq1 & " " & sq2
ElseIf detal = 0 Then
Label5.Caption = "该方程有两个相同的解"
Label6.Caption = "x1=x2=" & Format(rc, "0.##")
Else
Label5.Caption = "该方程有两个共轭的解(即该方程无解)"
Label6.Caption = "共轭的解到大学才学,在此不解"
End If
Else '即A=0
If b = 0 Then
Label5.Caption = "该方程无意义"
Else
Label5.Caption = "该方程为一元一次方程,只有一个解"
sq1 = c / (-b)
Label6.Caption = "x=" & sq1
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Label5.FontSize = 14
Label5.FontName = "隶书"
Label6.FontSize = 14
Label6.FontName = "隶书"
End Sub
附件: 您所在的用户组无法下载或查看附件
