En andengradsligning er et andengradspolynomium, der har formen "ax^2 + bx + c = 0." "a", "b" og "c" er konstanterne og "x" er variablen. Når du løser en andengradsligning, skal du have værdierne af konstanterne og løse for x, som altid giver to værdier, kaldet "rødderne". I Visual Basic, du kan skrive et program eller en funktion, der beder brugeren om at indtaste a-, b- og c-værdierne, finde rødderne og derefter vise værdierne på form.
Trin 1
Åbn et nyt Visual Basic-program. Dobbeltklik på "Knap"-værktøjet for at tilføje Button1 til formularen. Dobbeltklik på "Etiket"-værktøjet to gange for at tilføje Label1 og Label2 til formularen.
Dagens video
Trin 2
Dobbeltklik på "Knap1" på formularen for at åbne kodevinduet. Indtast følgende kode:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Kvadratisk (a, b, c)
De første tre linjer beder brugeren om værdierne af konstanterne. Den kalder derefter en sub kaldet "Kvadratisk" og sender konstanterne som argumenter til den.
Trin 3
Indsæt markøren uden for Button1 sub. Indtast følgende kode:
Privat Sub kvadratisk (ByVal a Som decimal, ByVal b Som decimal, ByVal c Som decimal) Dim rødder (1) Som streng Dim x1, x2, disk Som decimal disk = b ^ 2 - 4 * a * c
Den første linje opretter den kvadratiske sub og accepterer tre argumenter. Den definerer derefter en matrix med to elementer for de to rødder. Den opretter derefter tre decimalvariable og tildeler værdien af diskriminanten, som bestemmer antallet af rødder andengradsligningen har.
Trin 4
Indtast følgende kode:
Hvis disk >= 0 Så er x1 = (-b + Math. Sqrt (disk)) / (2 * a) x2 = (-b - Math. Sqrt (disk)) / (2 * a) rødder (0) = x1.ToString rødder (1) = x2.ToString Andet rødder (0) = "(-" & b. ToString & "+Sqrt(" & disk. ToString & "))/(2_" & en. ToString & ")" rødder (1) = "(-" & b. ToString & "-Sqrt(" & disk. ToString & "))/(2_" & en. ToString & ")" End If
"Hvis"-funktionen kontrollerer, om værdien af diskriminanten er større end eller lig med nul, hvilket betyder, at ligningen har en eller to rødder. Det løser så for x. Hvis diskriminanten er mindre end nul, har ligningen ingen reelle rødder, og "andet"-delen udføres, som viser de komplekse rødder-ligninger.
Trin 5
Indtast følgende kode:
Label1.Text = rødder (0) Label2.Text = rødder (1) End Sub
Disse kodelinjer viser simpelthen rødderne på etiketterne og lukker derefter den kvadratiske subs kodeblok.
Trin 6
Gem Visual Basic-programmet. Tryk på "F5" for at køre det.
