vb一元二次方程求实根虚根程序
答案:2 悬赏:50
解决时间 2021-01-06 01:33
- 提问者网友：树红树绿
- 2021-01-05 08:11
vb一元二次方程求实根虚根程序
最佳答案
- 二级知识专家网友：鱼忧
- 2021-01-05 09:28
界面：
代码：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
Label8.Caption = ""
Label9.Caption = ""
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d = 0 Then
Label8.Caption = "x1=x2=" & -b / (2 * a)
ElseIf d > 0 Then
Label8.Caption = "x1=" & (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Label9.Caption = "x2=" & (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Else
Label8.Caption = "x1=" & -b / (2 * a) & "-" & Sqr(4 * a * c - b ^ 2) / (2 * a) & "i"
Label9.Caption = "x2=" & -b / (2 * a) & "+" & Sqr(4 * a * c - b ^ 2) / (2 * a) & "i"
End If
End Sub运行效果
代码：
Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
Label8.Caption = ""
Label9.Caption = ""
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d = 0 Then
Label8.Caption = "x1=x2=" & -b / (2 * a)
ElseIf d > 0 Then
Label8.Caption = "x1=" & (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Label9.Caption = "x2=" & (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Else
Label8.Caption = "x1=" & -b / (2 * a) & "-" & Sqr(4 * a * c - b ^ 2) / (2 * a) & "i"
Label9.Caption = "x2=" & -b / (2 * a) & "+" & Sqr(4 * a * c - b ^ 2) / (2 * a) & "i"
End If
End Sub运行效果
全部回答
- 1楼网友：人间朝暮
- 2021-01-05 10:12
有计算公式吗？
有公式我就可以做出来的。
有公式我就可以做出来的。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯