UC知道求“一元二次方程”程序代码
来源：百度知道 编辑：UC知道 时间：2024/04/28 17:50:54
最近学编程，用的是VB语言
现在要实际操作了，8好混了。。。最近要做一个一元二次方程的程序，就是你输入系数它给你判断有没有解，有解还要求出这两个解。
主要是那个求解的过程，貌似要什么分支结构的说，呵呵，偶上课都么听，希望各位高手们都伸出援助之手咯。。。。
现在要实际操作了，8好混了。。。最近要做一个一元二次方程的程序，就是你输入系数它给你判断有没有解，有解还要求出这两个解。
主要是那个求解的过程，貌似要什么分支结构的说，呵呵，偶上课都么听，希望各位高手们都伸出援助之手咯。。。。
Private Sub Form_Load()
Dim a, b, c, x, y
a = InputBox("a", , 2)
b = InputBox("b", , 4)
c = InputBox("c", , 1)
If b ^ 2 - 4 * a * c < 0 Then
MsgBox "无解"
Else
x = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
y = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "解得：" & x & "，" & y
End If
End Sub
zhbandnegro@163.com.不过我不懂VB.C++和java倒是可以写出来.一元二次方程很容易的.
例如,声明三个变量,a, b, c.这是一元二次方程的系数.要求用户输入.
有根的条件是:b*b-4*a*c >=0;
当b*b-4*a*c = 0时,有单根.
当b*b-4*a*c > 0时,有双根.
求根公式是: x = (-b[+|-]spr(b*b-4*a*c))/2a