2. 编写一程序 求解一元二次方程：aX2+bX+c=0.参数a b及c从命令行做参数输入

问题补充：

2. 编写一程序,求解一元二次方程：aX2+bX+c=0.参数a、b及c从命令行做参数输入

答案：

自己写的代码,应该跟你们学校要求的差不多：（VB）

首先搞三个text框,分别输入系数a,b,c；再一个command按钮

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

c = Val(Text3.Text)

delta = b ^ 2 - 4 * a * c

If delta >= 0 Then

X1 = (-b + Sqr(delta)) / 2 * a

X2 = (-b - Sqr(delta)) / 2 * a

Print X1,X2

ElseMsgBox 方程无实数根!,0,错误

End IfEnd Sub