En kvadratisk likning er et annengrads polynom som har form " . Ax ^ 2 + bx + c = 0 " Den "a ", "b" og " c" er konstanter , og "x " er den variable . 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 å skrive inn a, b ​​og c -verdier , finne røttene og deretter vise verdiene på skjemaet. Instruksjoner
en

Åpne et nytt 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 koden vinduet. Skriv inn følgende kode :

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

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

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

kvadratisk ( a, b , c )

de tre første linjene spør brukeren om verdiene av konstantene . Det krever da en sub som heter " kvadratisk " og sender konstanter som argumenter til det .
3

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

Private Sub Quadratic ( 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 den kvadratiske sub og aksepterer tre argumenter . Den definerer deretter en matrise med to elementer for de to røttene . Det skaper deretter tre desimaler variabler og tilordner verdien av discriminant , som bestemmer antall røtter likningen har
4

Skriv inn følgende kode : .
P Hvis platen > = 0 Then

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

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

røtter ( 0 ) = x1.ToString

røtter ( 1 ) = x2.ToString

Else

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

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

End If

"hvis" funksjonskontrollert for å se om verdien av diskriminant er større enn eller lik null , som betyr at ligningen har en eller to røtter . Det løser deretter 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 linjene med kode bare vise røttene på etikettene og deretter lukke kvadratisk sub kode blokk .
6

Lagre Visual Basic program . Trykk "F5 " for å kjøre den.