En andengradsligning er en andengradspolynomiet der har form ". Ax ^ 2 + bx + c = 0" "A ", " b" og "c" er konstanter og " x" er variabel. Når du løse en andengradsligning , skal du have de værdier af konstanterne og løse for x , som altid giver to værdier , kaldet " rødder ". I Visual Basic , kan du skrive et program eller en funktion , der beder brugeren om at indtaste a, b ​​og c -værdier , finde rødderne og derefter vise værdierne på formularen. Instruktioner
1

Åbn et nyt Visual Basic -program. Dobbeltklik på " Button " værktøj til at tilføje Button1 til formularen . Dobbeltklik på "Label " værktøj to gange for at tilføje Label1 og Label2 til formularen .
2

Dobbeltklik på " Button1 " på formularen for at åbne koden vinduet. Indtast følgende kode : Hej

Dim a Som Decimal = InputBox ("Indtast A :")

Dim b Som Decimal = InputBox ("Indtast B :")

Dim c Som Decimal = InputBox ("Indtast C :")

Kvadratiske (a, b, c)

de tre første linjer bede brugeren om værdierne af konstanterne . Derefter kalder en sub kaldet " Kvadratisk " og passerer konstanterne som argumenter til det.
3

Sæt markøren uden for Button1 sub. Indtast følgende kode : Hej

Private Sub Kvadratisk ( ByVal a Som Decimal , ByVal b Som Decimal , ByVal C som Decimal )

Dim rødder (1) As String

Dim x1 , x2 , disc Som Decimal

skive = b ^ 2 - 4 * a * c

Den første linje skaber den kvadratiske sub og accepterer tre argumenter . Derefter definerer et array med to elementer til de to rødder. Det opretter derefter tre decimaler variabler og tildeler værdien af ​​diskriminant , som bestemmer antallet af rødder andengradsligning har
4

Indtast følgende kode : .
P Hvis disken > = 0 Then

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

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

rødder ( 0) = x1.ToString

rødder ( 1) = x2.ToString

Else

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

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

End If

"hvis" funktionen checks at se, om værdien af ​​diskriminant er større end eller lig med nul , hvilket betyder, at ligningen har en eller to rødder . Derefter løser for x. Hvis diskriminant er mindre end nul , ligningen har ingen reelle rødder og " else" delen udfører , som viser de komplekse rødder ligninger
5

Indtast følgende kode : .

Label1.Text = rødder ( 0)

Label2.Text = rødder (1)

End Sub

Disse linjer kode simpelthen vise rødder på etiketterne og derefter lukke den kvadratiske sub kode blok.
6

Gem Visual Basic-program . Tryk på " F5 " for at køre den.