作业帮 > 综合 > 作业

如何用vb设计计算二次方程的根的程序

来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/05/09 17:24:01
如何用vb设计计算二次方程的根的程序
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single,d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d > 0 Then
Label8.Caption = (-b + Sqr(d)) / (2 * a)
Label10.Caption = (-b - Sqr(d)) / (2 * a)
Else
If d = 0 Then
Label8.Caption = -b / (2 * a)
Label9.Caption = -b / (2 * a)
Else
If d < 0 Then
tl = MsgBox("无实数根!",vbOKOnly + vbExclamation,"系统提示")
End If
End Sub
帮忙看看哪里出错了?
如何用vb设计计算二次方程的根的程序
elseif连起来就行了
Private Sub Command1_Click()
Dim a As Single,b As Single,c As Single,d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d > 0 Then
Label8.Caption = (-b + Sqr(d)) / (2 * a)
Label10.Caption = (-b - Sqr(d)) / (2 * a)
ElseIf d = 0 Then
Label8.Caption = -b / (2 * a)
Label9.Caption = -b / (2 * a)
ElseIf d < 0 Then
tl = MsgBox("无实数根!",vbOKOnly + vbExclamation,"系统提示")
End If
End Su
如何用vb设计计算二次方程的根的程序 一元二次方程求根公式式如何用VB程序编辑 用VB设计一个计算圆的面积的程序 用VB设计一个计算银行存款利息的程序 如何用vb设计极坐标曲线的画法 VBA问题.如何用do-loop语句设计程序计算球体、立方体、圆柱体的表面积? 二、设计简单的VB程序计算函数的值 自己设计一个简单的VB程序,计算下列VB函数的值.提示：为简单起见,可 如何用vfp设计猜奇偶数的简单程序 如何用vb设计一个程序,可以将输入的10个以上的数字 按大小顺序排列出来,可以给我思路,也可以给我答案. 如何用VB编 “求任意两个数的和”的程序 如何用VB求一元二次方程的虚数解（一定是虚数解）. 如何用Fix(N)和Int(N)实现四舍五入取整?用VB,完整的程序.