请问我用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/08/27 14:16:33
请问我用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没有定义