二次复根求解器

Question

无法使控制台正确地打印复杂根。

If quad4ac < 0 Then

        Dim quad4acComplex As Long = quad4ac * -1
        Dim quadiComplex As Long = -1
        Dim quadrComplex As Long

        Console.WriteLine(vbNewLine & "Your Roots Are Complexed!" & vbNewLine)

        quadrComplex = (-quadCoB / (2 * quadCoA) & "+" & (quad4ac * -1) ^ 0.5 / (2 * quadCoA))
        Console.WriteLine(quadrComplex)

似乎导致控制台崩溃。

Answer 1

您正在尝试将字符串值赋值给long值，然后打印长值。我真的不知道你想做什么。如果要打印出计算值，请尝试：

quadrComplex = CType((-quadCoB / (2 * quadCoA) + (quad4ac * -1) ^ 0.5 / (2 * quadCoA)), Long)
Console.Writeline(quadrComplex.Tostring)

如果要打印表达式，请尝试

Dim quadrComplex as String
quadrComplex = "(-" & quadCoB.Tostring & " / (2 * " & quadCoA.ToString & ") + (" & quad4ac.ToString & " * -1) ^ 0.5 / (2 * " & quadCoA.ToString & "))"
Console.Writeline(quadrComplex)

您应该考虑在程序中启用Option Strict。这样，编译器就会强迫您自己使用正确的类型转换。这避免了许多错误。

Answer 2

你想在这里用符号&做什么？

.(2* quadCoA) & "+“& (quad4ac *-1)

问题是&是VB.NET中的字符串级联，当然不能分配给Long。

您期望控制台在这一行打印什么？

Console.WriteLine(quadrComplex)

你的答案将介于这两个问题之间。