信息网络传播视听节目许可证：1910564号 增值电信业务经营许可证：粤B2-20060339号 粤ICP备09017694号-2
营业性演出许可证：穗天演440106120029 粤公网安备 44010602000141号
违法和不良信息举报：www.12377.cn 举报电话：12377 12318 全国文化市场举报网站
Copyright (C) 2004-2026 KuGou.All Rights Reserved
|
发布动态
Private Sub Command1_Click()
Dim a As Double, b As Double, c As Double, d As Double, x1 As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b * b - 4 * a * c
If d >= 0 Then
If d > 0 Then
Label6.Caption = "该方程有两个不同的实数根"
x1 = (-b + Sqr(d)) / (2 * a)
X2 = (-b - Sqr(d)) / (2 * a)
Else
Label6.Caption = "该方程有两个相同的实数根"
x1 = -b / (2 * a)
X2 = -b / (2 * a)
End If
Text4.Text = Str(x1)
Text5.Text = Str(X2)
Else
Label6.Caption = "该方程没有实数根"
Text4.Text = ""
Text5.Text = ""
End If
End Sub
[p65]
|