vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,

问题描述：

vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,
单击输入并计算按钮调用InputBox函数,分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数,输入完毕后将三个数字分别显示在三个text控件中,程序自动判断三个数字能否构成二次方程,如果能则在Msgbox中计算得出方程的实根,如果不能构成二次方程则利用Msgbox提示“此方程不是二次方程”；如果方程没有实根,也利用Msgbox提示“此方程没有实根”

1个回答分类：综合 2014-09-30

问题解答：

我来补答

Sub Command1_Click()
Dim Delta As Single
Dim a As Single,b As Single,c As Single
Dim x1 As Single,x2 As Single
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
Delta = b ^ 2 - 4 * a * c
If Delta > 0 Then
x1 = (-1 * b - Sqr(Delta)) / (2 * a)
x2 = (-1 * b + Sqr(Delta)) / (2 * a)
Else
MsgBox "方程没有实数根!"
Exit Sub
End If
Text4 = x1
Text5 = x2
End Sub
Sub Command2_Click()
Unload Me
End Su

展开全文阅读

上一页：pass..

下一页：复合函数求值域