请问我用VB写的解一元二次方程的程序哪里错了 应该怎么改?Inputbox aInputbox bInputbox cp=b^2-4*a*cIf p>=0 ThenPrint (-b+Sqr(p))/(2*a)Print (-b+Spr(p))/(2*a)ElsePrint "无解"End ifEnd SubPS这个方程已经先化为一般式才

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/03 05:23:21
请问我用VB写的解一元二次方程的程序哪里错了 应该怎么改?Inputbox aInputbox bInputbox cp=b^2-4*a*cIf p>=0 ThenPrint (-b+Sqr(p))/(2*a)Print (-b+Spr(p))/(2*a)ElsePrint

请问我用VB写的解一元二次方程的程序哪里错了 应该怎么改?Inputbox aInputbox bInputbox cp=b^2-4*a*cIf p>=0 ThenPrint (-b+Sqr(p))/(2*a)Print (-b+Spr(p))/(2*a)ElsePrint "无解"End ifEnd SubPS这个方程已经先化为一般式才
请问我用VB写的解一元二次方程的程序哪里错了 应该怎么改?
Inputbox a
Inputbox b
Inputbox c
p=b^2-4*a*c
If p>=0 Then
Print (-b+Sqr(p))/(2*a)
Print (-b+Spr(p))/(2*a)
Else
Print "无解"
End if
End Sub
PS
这个方程已经先化为一般式才输入的

请问我用VB写的解一元二次方程的程序哪里错了 应该怎么改?Inputbox aInputbox bInputbox cp=b^2-4*a*cIf p>=0 ThenPrint (-b+Sqr(p))/(2*a)Print (-b+Spr(p))/(2*a)ElsePrint "无解"End ifEnd SubPS这个方程已经先化为一般式才
解方程当然要化为一般式求解了,
Print (-b+Sqr(p))/(2*a)
Print (-b-Spr(p))/(2*a) 这行要改为负号
我一般和你写得一样,不喜欢写成开方Sqr函数,下面那样也是相等的
(-b+Sqr(p))/(2*a) ＝(-b+p^0.5)/(2*a)
另外这个求根公式也支持,虚数求解的,楼主为何不一次做完

开求方应该是SQR
第二个 Print (-b+Spr(p))/(2*a)
应该是 Print (-b-Sqr(p))/(2*a)，即+改为-

p没有定义

请问我用VB写的解一元二次方程的程序哪里错了 应该怎么改?Inputbox aInputbox bInputbox cp=b^2-4*a*cIf p>=0 ThenPrint (-b+Sqr(p))/(2*a)Print (-b+Spr(p))/(2*a)ElsePrint 无解End ifEnd SubPS这个方程已经先化为一般式才 用VB编写一个解一元二次方程 AX2+BX+C=0的程序 用VB程序编写：问题;创建一个工程来计算一元二次方程的根.要求 输入一元二次方程的系数,求出方程的根 VB 二次开发autocad2008中,请问如何利用VB控制获得捕捉?例如：我用VB写程序捕捉某弧度的圆心的坐标 一元二次方程ax^2+bx+c=0的解x VB怎么写? 解一元二次方程 程序我什么也不会,也没有什么vb,大侠给个解二元一次方程程序,感激不尽 VB 解一元二次方程程序设计写成INPUT那种的 求方程ax2+bx+c=0的根 的VB程序求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到：1 当a＝0 的 情况2 有复数解的情况 用VB解一元二次方程ax^2+bx+c=0的流程图 有关C语言解一元二次方程问题我写的程序如下,在输入a,b,c后,所输入的值没有赋值到a,b,c里,请问我的问题出在哪里,请指教,先谢啦.：#include#include#includemain(){double a,b,c;double d=0,x1=0,x2=0;printf( ) VB程序编程:画出求一元二次方程的流程图1:应该有实根的解2：应该有虚根的解 用VB设计一个求解一元二次方程Ax2+Bx+C=0的程序(A、B、C的值是任意的). 解一元二次方程的程序可解复数 一元二次方程求根公式式如何用VB程序编辑 如何用VB求一元二次方程的虚数解（一定是虚数解）. Vb编程,编写一个一元二次方程的求解程序,要求能够判断方程是否有根如果没有根则给出相应的提示信息 解一元二次方程的 哪里有降次——解一元二次方程的软件