vb解二次函數(shù)代碼問題!
代碼如下
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single
Dim n As Single,m As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If b ^ 2 - 4 * a * c < 0 Then
Label3.Caption = "無解"
Else
n = -b + (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * a
m = -b - (b ^ 2 - 4 * a * c) ^ (1 / 2) / 2 * a
Label3.Caption = "" + CStr(n) + " " + CStr(m) + ""
End If
End Sub
請問 哪錯了?