vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,单击输入并计算按钮调用InputBox函数,分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数,输入完毕后将三个数字分别显示在

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

vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,单击输入并计算按钮调用InputBox函数,分别将任意的三个数字赋值给二次方程ax2+bx+c=0中的三个系数,输入完毕后将三个数字分别显示在
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 Sub