How to Program kvadratiske likninger i Visual Basic

En kvadratisk likning er et annengrads polynom som har formen "ax ^ 2 + bx + c = 0." "A", "b" og "c" er konstanter, og "x" er en variabel. Når du løse en kvadratisk likning, må du ha verdiene av konstantene og løse for x, som alltid gir to verdier, kalt "røtter". I Visual Basic, kan du skrive et program eller en funksjon som ber brukeren om å oppgi A, B og C-verdier, finne røttene og deretter vise verdiene på skjemaet.

Bruksanvisning

1 Åpne en ny Visual Basic program. Dobbeltklikk på "Button" verktøyet for å legge Button1 til skjemaet. Dobbeltklikk på "Label" -verktøyet to ganger for å legge Label1 og Label2 til skjemaet.

2 Dobbeltklikk på "Button1" på skjemaet for å åpne kodevinduet. Skriv inn følgende kode:

Dim en som desimal = InputBox ( "Skriv A:")

Dim b som desimal = InputBox ( "Skriv B:")

Dim c som desimal = InputBox ( "Skriv C:")

Kvadratisk (a, b, c)

De tre første linjene spør brukeren om verdiene av konstantene. Det kaller da en sub som heter "kvadratisk" og passerer konstantene som argumenter til den.

3 Sett markøren utenfor Button1 sub. Skriv inn følgende kode:

Private Sub Kvadratisk (ByVal en som desimal, ByVal b som desimal, ByVal c som desimal)

Dim røtter (1) som String

Dim x1, x2, plate som desimal

plate = b ^ 2 - 4

a c

Den første linjen skaper kvadratisk sub og aksepterer tre argumenter. Den definerer deretter en matrise med to elementer for de to røttene. Det skaper da tre desimaler variabler og tildeler verdien av diskriminant, som bestemmer antall røtter kvadratisk likning har.

4 Skriv inn følgende kode:

Hvis platen> = 0 Then

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

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

røtter (0) = x1.ToString

røtter (1) = x2.ToString

Ellers

røtter (0) = "(-" & b.ToString & "+ sqrt (" & disc.ToString & ")) / (2 *" & a.ToString & ")"

røtter (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 *" & a.ToString & ")"

Slutt om

"Hvis" funksjons sjekker for å se om verdien av den diskriminanten er større enn eller lik null, noe som betyr at ligningen har en eller to røtter. Deretter løser for x. Hvis discriminant er mindre enn null, har ligningen ingen reelle røtter og "annet" delen utfører, som viser de komplekse røtter ligninger.

5 Skriv inn følgende kode:

Label1.Text = røtter (0)

Label2.Text = røtter (1)

End Sub

Disse linjer med kode bare vise røttene på etikettene og lukk kvadratisk under kode blokk.

6 Lagre Visual Basic-programmet. Trykk "F5" for å kjøre den.