En andregradsligning er et andregradspolynom som har formen "ax^2 + bx + c = 0." "a", "b" og "c" er konstantene og "x" er variabelen. Når du løser en andregradsligning, må du ha verdiene til konstantene og løse for x, som alltid gir to verdier, kalt "røttene". I Visual Basic, du kan skrive et program eller en funksjon som ber brukeren om å angi a-, b- og c-verdiene, finne røttene og deretter vise verdiene på form.
Trinn 1
Åpne et nytt Visual Basic-program. Dobbeltklikk på "Button"-verktøyet for å legge til Button1 i skjemaet. Dobbeltklikk på "Etikett"-verktøyet to ganger for å legge til Label1 og Label2 i skjemaet.
Dagens video
Steg 2
Dobbeltklikk "Knapp1" på skjemaet for å åpne kodevinduet. Skriv inn følgende kode:
Dim a As Desimal = InputBox("Skriv inn A: ") Dim b As Desimal = InputBox("Skriv inn B: ") Dim c As Desimal = InputBox("Skriv inn C: ") Kvadratisk (a, b, c)
De tre første linjene ber brukeren om verdiene til konstantene. Den kaller deretter en sub kalt "Kvadratisk" og sender konstantene som argumenter til den.
Trinn 3
Sett inn markøren utenfor Button1-suben. Skriv inn følgende kode:
Privat Sub kvadratisk (ByVal a Som desimal, ByVal b Som desimal, ByVal c Som desimal) Dim røtter (1) Som streng Dim x1, x2, plate Som desimal plate = b ^ 2 - 4 * a * c
Den første linjen oppretter den kvadratiske undergruppen og godtar tre argumenter. Den definerer deretter en matrise med to elementer for de to røttene. Den lager deretter tre desimalvariabler og tildeler verdien av diskriminanten, som bestemmer antall røtter den kvadratiske ligningen har.
Trinn 4
Skriv inn følgende kode:
Hvis platen >= 0 Da er x1 = (-b + Math. Sqrt (plate)) / (2 * a) x2 = (-b - Math. Sqrt (plate)) / (2 * a) røtter (0) = x1.ToString røtter (1) = x2.ToString Else røtter (0) = "(-" & b. ToString & "+Sqrt(" & plate. ToString & "))/(2_" & a. ToString & ")" røtter (1) = "(-" & b. ToString & "-Sqrt(" & plate. ToString & "))/(2_" & a. ToString & ")" End If
"Hvis"-funksjonen sjekker for å se om verdien av diskriminanten er større enn eller lik null, noe som betyr at ligningen har en eller to røtter. Det løser da for x. Hvis diskriminanten er mindre enn null, har ligningen ingen reelle røtter og "annet"-delen utføres, som viser de komplekse røtterligningene.
Trinn 5
Skriv inn følgende kode:
Label1.Text = røtter (0) Label2.Text = røtter (1) End Sub
Disse kodelinjene viser bare røttene på etikettene og lukker deretter den kvadratiske subs kodeblokk.
Trinn 6
Lagre Visual Basic-programmet. Trykk "F5" for å kjøre den.
