Question

VB中输入方程ax2+bx+c=0的三个系数a、b、c（设a不等于零），求方程的根（要求输出时保留小数点两位）。

不讨论△的情况

Answer 1

Dim a As Double, b As Double, c As Double
Dim x1 As Double, x2 As Double
'添加5个文本框，前面3个输入系数的值，后面2个输出结果

a = Val(Text1.Text)
b = Val(Text2.Text)

c = Val(Text3.Text)

if b*b-4*a*c>=0 Then ‘有根
x1 = (-b + Sqr(b * b - 4 * a * c)) / 2 * a '直接使用求根公式
x2 = (-b - Sqr(b * b - 4 * a * c)) / 2 * a
Text4.Text = Format(x1, "0.00")
Text5.Text = Format(x2, "0.00")

else
Text4.Text = "<无解>"

Text5.Text = "<无解>"

End if
PS：VB版本6.0
也可以直接在代码里给a,b,c赋值。不使用文本框的话输出使用如下形式（显示在窗体上）
Print Format(x1, "0.00"), Format(x2, "0.00")

Answer 2

ax2+bx+c=0 应该是：a^2+bx+c=0吧？
x1=round((-b+sqr(b^2+4*a*c)),2)
x2=round((-b-sqr(b^2+4*a*c)),2)

Answer 3

Private Sub Command1_Click()
a = InputBox("系数a")
b = InputBox("系数b")
c = InputBox("系数c")

b2_4ac = b * b - 4 * a * c

If b2_4ac > 0 Then MsgBox "X1=" & Format(-(b - Sqr(b2_4ac)) / (2 * a), "0.00") & "; X2=" & Format(-(b + Sqr(b2_4ac)) / (2 * a), "0.00"), vbOKOnly, "结果"

If b2_4ac = 0 Then MsgBox "X1=X2=" & Format(-b / (2 * a), "0.00"), vbOKOnly, "结果"

If b2_4ac < 0 Then MsgBox "无实数根"
End Sub

Answer 4

△是什么，话说ax2+bx+c=0中的2是平方根？你真的是学编程的吗？还是说你要这个公式的VB表达式？

追问

我当然不是学编程的·！
输入方程ax^2+bx+c=0的三个系数a、b、c（设a不等于零），求方程的根（要求输出时保留小数点两位）。不讨论△的情况。老师给的题，只是复制了过来。