作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/14 10:53:07
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
Else
MsgBox "方程无实数根!",0,"错误"
End If
End Su