Question

我必须编写一个程序来计算二次方程并找到它的根。必须通过MsgBox-es显示根，并且必须通过InputBox-es输入变量A，B和C 。现在我写了这个，但它不知何故不起作用，我无法弄清楚为什么。 **我是Visual Basic的新手..

lpCurrentDirectory

结束班

http://imgur.com/hIcDxFv＆lt; - 屏幕视图

Answer 1

哦，问题只是因为x1和x2必须在Str（）..

中

If Det > 0 Then
        x1 = (-B + Math.Sqrt(Det)) / (2 * A)
        x2 = (-B - Math.Sqrt(Det)) / (2 * A)
        MsgBox("The roots are " + Str(x1) + " and " + Str(x2) + " ! ", 64, "2 Roots")
    ElseIf Det = 0 Then
        x = -B / (2 * A)
        MsgBox("The roots are " + Str(x) + " ! ", 64, "1 Double Root")

二次方程式Visual Basic 2010+

1 个答案: