vb程序改错 求解一元二次方程（ax^2+bx+c=0）的程序求解一元二次方程（ax^2+bx+c=0）的程序Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,d As IntegerDim x1 As Single,x2 As SingleInputBox ("a=")InputBox

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/12 07:03:40
vb程序改错 求解一元二次方程（ax^2+bx+c=0）的程序求解一元二次方程（ax^2+bx+c=0）的程序Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,d As IntegerDim x1 As Single,x2 As SingleInputBox (

vb程序改错 求解一元二次方程（ax^2+bx+c=0）的程序求解一元二次方程（ax^2+bx+c=0）的程序Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,d As IntegerDim x1 As Single,x2 As SingleInputBox ("a=")InputBox
vb程序改错 求解一元二次方程（ax^2+bx+c=0）的程序
求解一元二次方程（ax^2+bx+c=0）的程序
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer,d As Integer
Dim x1 As Single,x2 As Single
InputBox ("a=")
InputBox ("b=")
InputBox ("c=")
d = Sqr(b * b - 4 * a * c)
x1 = (-b + d) / (2 * a)
x1 = (-b - d) / (2 * a)
Print "x1="; x1,"x2="; x2
End Sub
请问错在哪里

vb程序改错 求解一元二次方程（ax^2+bx+c=0）的程序求解一元二次方程（ax^2+bx+c=0）的程序Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,d As IntegerDim x1 As Single,x2 As SingleInputBox ("a=")InputBox
两处错误,第一个,没有赋值过程 ,应该改为：
a=InputBox ("a=")
b=InputBox ("b=")
c=InputBox ("c=")
第二个：x1 = (-b - d) / (2 * a)应该是
x2 = (-b - d) / (2 * a)
另外d有开方过程 ,最好设为 double而不是 integer
最好再加个判断判别式的过程：
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer,d As Double
Dim x1 As Single,x2 As Single
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
d = b * b - 4 * a * c
If d < 0 Then
MsgBox "判别式小于0"
Exit Sub
End If
d = Sqr(d)
x1 = (-b + d) / (2 * a)
x2 = (-b - d) / (2 * a)
Print "x1="; x1,"x2="; x2
End Sub

vb程序改错 求解一元二次方程（ax^2+bx+c=0）的程序求解一元二次方程（ax^2+bx+c=0）的程序Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Integer,d As IntegerDim x1 As Single,x2 As SingleInputBox (a=)InputBox 设计一个程序求解一元二次方程ax+by=c dx+ey=g 一元二次方程求根公式式如何用VB程序编辑 vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2 用VB解一元二次方程ax^2+bx+c=0的流程图 一元二次方程ax^2+bx+c=0的解x VB怎么写? 用VB设计一个求解一元二次方程Ax2+Bx+C=0的程序(A、B、C的值是任意的). Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根如果没有根则给出相应的提示信息 1、编写一程序,求一元二次方程ax^2+bx+c=0(a0)的解 用vb做：输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2 java编程 求解一元二次方程：ax^2+bx+c=0编写一个程序,求解一元二次方程：ax^2+bx+c=0 .参数a,b及c从命令行输入.提示：需要用到 java.lang.Math 类,Math 类中提供了多种用于科学计算的方法,例如开方 sq 一元二次方程ax^2+bx+c=0的解x VB代码及添加的控件 一元二次方程x^2+b^2+2ax+a^2=0,求解,谢谢 用MATLAB求解一元二次方程ax^2 +bx+c=0的根 用VB编写一个解一元二次方程 AX2+BX+C=0的程序 求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到：1 当a＝0 的 情况2 有复数解的情况 大神求解一元二次方程, 求解一元二次方程题