Eine quadratische Gleichung ist ein Polynom zweiten Grades, das die Form "ax^2 + bx + c = 0" hat. "a", "b" und "c" sind die Konstanten und "x" ist die Variable. Wenn Sie eine quadratische Gleichung lösen, müssen Sie die Werte der Konstanten haben und nach x auflösen, was immer zwei Werte ergibt, die als "Wurzeln" bezeichnet werden. In Visual Basic können Sie ein Programm oder eine Funktion schreiben, die den Benutzer auffordert, die a-, b- und c-Werte einzugeben, die Wurzeln zu finden und dann die Werte auf dem. anzuzeigen Form.
Schritt 1
Öffnen Sie ein neues Visual Basic-Programm. Doppelklicken Sie auf das Tool "Button", um Button1 zum Formular hinzuzufügen. Doppelklicken Sie zweimal auf das Tool "Label", um Label1 und Label2 zum Formular hinzuzufügen.
Video des Tages
Schritt 2
Doppelklicken Sie im Formular auf "Button1", um das Codefenster zu öffnen. Geben Sie den folgenden Code ein:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Quadratisch (a, b, c)
Die ersten drei Zeilen fragen den Benutzer nach den Werten der Konstanten. Es ruft dann einen Sub namens "Quadratic" auf und übergibt ihm die Konstanten als Argumente.
Schritt 3
Fügen Sie den Cursor außerhalb des Sub Button1 ein. Geben Sie den folgenden Code ein:
Private Sub Quadratic (ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) Dim Roots (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
Die erste Zeile erstellt den quadratischen Sub und akzeptiert drei Argumente. Es definiert dann ein Array mit zwei Elementen für die beiden Wurzeln. Es erstellt dann drei Dezimalvariablen und weist den Wert der Diskriminante zu, die die Anzahl der Wurzeln der quadratischen Gleichung bestimmt.
Schritt 4
Geben Sie den folgenden Code ein:
Wenn Scheibe >= 0 Dann x1 = (-b + Math. Sqrt (Disc)) / (2 * a) x2 = (-b - Math. Sqrt (Disc)) / (2 * a) Wurzeln (0) = x1.ToString Wurzeln (1) = x2.ToString Sonst Wurzeln (0) = "(-" & b. ToString & "+Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" Wurzeln (1) = "(-" & b. ToString & "-Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" End If
Die Funktion "if" prüft, ob der Wert der Diskriminante größer oder gleich Null ist, was bedeutet, dass die Gleichung eine oder zwei Wurzeln hat. Es löst dann nach x auf. Wenn die Diskriminante kleiner als null ist, hat die Gleichung keine reellen Wurzeln und der "sonst"-Teil wird ausgeführt, der die komplexen Wurzelgleichungen anzeigt.
Schritt 5
Geben Sie den folgenden Code ein:
Label1.Text = Wurzeln (0) Label2.Text = Wurzeln (1) End Sub
Diese Codezeilen zeigen einfach die Wurzeln auf den Labels an und schließen dann den Codeblock des quadratischen Subs.
Schritt 6
Speichern Sie das Visual Basic-Programm. Drücken Sie "F5", um es auszuführen.
