Eine quadratische Gleichung ist ein Polynom zweiten Grades , die die Form hat " . Ax ^ 2 + bx + c = 0" Das "a", "b" und "c" sind die Konstanten und "x " ist die Variable . Wenn Sie eine quadratische Gleichung zu lösen, müssen Sie die Werte der Konstanten und lösen nach x , das ergibt immer zwei Werte , die so genannte " Wurzeln. " In Visual Basic können Sie schreiben ein Programm oder eine Funktion , die es dem Benutzer, die a, b und c Werte eingeben , die Wurzeln und zeigt dann die Werte auf dem Formular auffordert. Anleitung
1

Öffnen Sie ein neues Visual Basic-Programm . Doppelklicken Sie auf den "Button" Werkzeug, um Button1 zum Formular hinzufügen . Doppelklicken Sie auf das "Label"- Tool zweimal Label1 und Label2 zum Formular hinzufügen .
2

Doppelklicken Sie auf " Button1 " auf dem Formular, um den Code zu öffnen. Geben Sie den folgenden Code: Dim a

Wie Decimal = InputBox ("Geben Sie A: " )

Dim b als Dezimalzahl = InputBox ("Geben B :") Dim

c Wie Decimal = InputBox ("Geben Sie C :")

Quadratisch ( a, b, c)

die ersten drei Zeilen der Benutzer aufgefordert, für die Werte der Konstanten . Dann ruft ein Untermenü namens " Quadratisch " und leitet die Konstanten als Argumente an sie .
3

Setzen Sie den Cursor außerhalb der Button1 Sub . Geben Sie den folgenden Code ein: Private Sub

Quadratisch ( ByVal a Wie Decimal , ByVal b Wie Decimal , ByVal c Wie Decimal)

Dim Wurzeln (1 ) As String Dim

x1, x2, Disc als Dezimalzahl

Disc = b ^ 2 - 4 * a * c

Die erste Zeile erstellt die quadratische sub und akzeptiert drei Argumente . Es definiert dann ein Array mit zwei Elementen für die beiden Wurzeln. Es erstellt dann drei Dezimalstellen Variablen und weist den Wert der Diskriminanzfunktion , die die Anzahl der Wurzeln der quadratischen Gleichung hat bestimmt
4

Geben Sie den folgenden Code: .

Wenn Disc > = 0 Then

x1 = ( -b + Math.Sqrt (disc ) ) /(2 * a)

x2 = ( -b - Math.Sqrt (disc ) ) /(2 * a)

Wurzeln (0) = x1.ToString

Wurzeln (1) = x2.ToString

Else

Wurzeln (0) = " ( - " & b.ToString & " + Sqrt ( " & disc.ToString &") ) /(2 * " & a.ToString &") "

Wurzeln (1) =" ( - " & b.ToString & " - Sqrt ( " & disc.ToString & ") ) /(2 * " & a.ToString & ") " End If

Die "if" -Funktion prüft um festzustellen, ob der Wert der Diskriminanzanalyse ist größer als oder gleich Null ist , was bedeutet, die Gleichung einen oder zwei Wurzeln. Es löst dann für x . Wenn die Diskriminante kleiner als Null ist , hat die Gleichung keine reellen Wurzeln und die "else "-Teil führt , was zeigt die komplexen Wurzeln Gleichungen
5

Geben Sie den folgenden Code: .

Label1.Text = Wurzeln (0)

Label2.Text = Wurzeln ( 1) german

End Sub