En kvadratisk ekvation är en andra gradens polynom som har formen " . Ax ^ 2 + bx + c = 0 " Den " a ", " b" och " c " är konstanter och " x " är variabeln . När du löser en kvadratisk ekvation , måste du ha värdena på konstanterna och lösa för x , som alltid ger två värden , som kallas " rötter . " I Visual Basic kan du skriva ett program eller en funktion som uppmanar användaren att ange a, b och c -värden , hitta rötterna och sedan visa värdena på blanketten . Instruktioner
1
Öppna ett nytt Visual Basic-program . Dubbelklicka på " knappen " verktyg för att lägga Button1 till formuläret . Dubbelklicka på " Label " verktyg två gånger för att lägga Label1 och Label2 till formuläret .
2
Dubbelklicka på " Button1 " på formuläret för att öppna koden fönstret . Skriv följande kod :
Dim a Som Decimal = InputBox ( " Ange A : " ) katalog
Dim b Som Decimal = InputBox ( " Enter B : " ) katalog
Dim c Såsom Decimal = InputBox ( "Enter C: " ) katalog
Kvadratiska (a , b, c ) katalog
de första tre raderna uppmana användaren för värden på konstanterna . Det kräver då en sub som heter " Kvadratisk " och passerar de konstanter som argument till det .
3
Sätt markören utanför Button1 sub . Skriv följande kod :
Private Sub Kvadratisk ( ByVal en som decimaltal , ByVal b Som Decimal , ByVal c Som Decimal ) katalog
Dim rötter ( 1 ) As String
Dim x1 , x2 , skiva Som Decimal
skiva = b ^ 2 - 4 * a * c
första raden skapar Kvadratiska sub och accepterar tre argument . Det definierar sedan en array med två punkter för de två rötterna . Det skapar sedan tre decimaler variabler och tilldelar värdet av diskriminantanalys , vilket avgör antalet rötter den kvadratiska ekvationen har
4
Skriv följande kod : .
P Om skivan > = 0 Then
x1 = ( - b + Math.sqrt ( skiva) ) /( 2 * a ) katalog
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
"om" funktionskontroller för att se om värdet av diskriminantanalys är större än eller lika med noll , vilket betyder att ekvationen har ett eller två rötter. Det löser sedan för x . Om diskriminantanalys är mindre än noll , har ekvationen inga reella rötter och den " andra " delen utför , vilket visar de komplexa rötter ekvationerna
5
Skriv följande kod : .
Label1.Text = rötter ( 0 ) katalog
Label2.Text = rötter ( 1 ) katalog
End Sub
Dessa rader kod visas bara rötterna på etiketterna och stäng sedan den kvadratiska sub s kodblock .
6
Spara Visual Basic-program . Tryck " F5 " för att köra den . Addera
