请问我用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/02 11:01:01
![请问我用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](/uploads/image/z/1138182-6-2.jpg?t=%E8%AF%B7%E9%97%AE%E6%88%91%E7%94%A8VB%E5%86%99%E7%9A%84%E8%A7%A3%E4%B8%80%E5%85%83%E4%BA%8C%E6%AC%A1%E6%96%B9%E7%A8%8B%E7%9A%84%E7%A8%8B%E5%BA%8F%E5%93%AA%E9%87%8C%E9%94%99%E4%BA%86+%E5%BA%94%E8%AF%A5%E6%80%8E%E4%B9%88%E6%94%B9%3FInputbox+aInputbox+bInputbox+cp%3Db%5E2-4%2Aa%2AcIf+p%3E%3D0+ThenPrint+%28-b%2BSqr%28p%29%29%2F%282%2Aa%29Print+%28-b%2BSpr%28p%29%29%2F%282%2Aa%29ElsePrint+%22%E6%97%A0%E8%A7%A3%22End+ifEnd+SubPS%E8%BF%99%E4%B8%AA%E6%96%B9%E7%A8%8B%E5%B7%B2%E7%BB%8F%E5%85%88%E5%8C%96%E4%B8%BA%E4%B8%80%E8%88%AC%E5%BC%8F%E6%89%8D)
请问我用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没有定义