Een kwadratische vergelijking is een tweedegraads polynoom dat de vorm heeft " ax ^ 2 + bx + c = 0 . " De "a ", " b" en " c" dan de constanten en " x " is de variabele . Wanneer u het oplossen van een vierkantsvergelijking , moet u de waarden van de constanten te hebben en op te lossen voor x , die altijd levert twee waarden , genaamd de ' roots '. In Visual Basic , kunt u een programma of functie die de gebruiker vraagt om de a , b en c waarden in te voeren , vindt de wortels en dan weer de waarden op het formulier schrijven. Instructies
1 Open een nieuwe Visual Basic -programma . Dubbelklik op de functie " knop" om Button1 toe te voegen aan het formulier . Dubbelklik op de functie " Label " tweemaal om Label1 en Label2 toevoegen aan het formulier .
Dubbelklik op " Button1 " 2 op het formulier om het venster code te openen . Typ de volgende code :
Dim a als decimale = InputBox ("Geef A : " ) Dim b
als decimale = InputBox ( " Vul B : ' ) op Twitter Dim c als decimale = InputBox ( " Voer C : " ) Quadratic
( a , b , c ) op Twitter de eerste drie regels vraagt de gebruiker om de waarden van de constanten . Het roept dan een sub genaamd " Kwadratische " en passeert de constanten als argumenten aan.
3 Plaats de cursor buiten het Button1 sub. Typ de volgende code : Private Sub Quadratic
( ByVal een als decimale , ByVal b als decimale , ByVal c als decimale ) Dim wortels
( 1 ) als Koord
Dim x1 , x2 , schijf als decimale disc
= b ^ 2 - 4 * a * c
de eerste regel maakt de kwadratische sub en accepteert drie argumenten . Het definieert dan een array met twee punten voor de twee wortels . Het creëert dan drie decimalen variabelen en wijst de waarde van de discriminant , waarvan het aantal wortels de vierkantsvergelijking heeft bepaalt
4 Typ de volgende code : .
Als schijf > = 0 x1 dan
= ( - b + Math.Sqrt ( disc) ) /( 2 * a ) x2
= ( -b - Math.Sqrt ( disc) ) /( 2 * a ) wortels
( 0 ) = x1.ToString wortels
( 1 ) = x2.ToString
zelf wortels
( 0 ) = " ( - " & b.ToString & " + Sqrt ( " & disc.ToString & " ) ) /( 2 * " & a.ToString &" ) " roots
( 1 ) = " ( - " & b.ToString & " - Sqrt ( " & disc.ToString & " ) ) /( 2 * " & a.ToString & " ) " Eind
Als
De "als " -functie controles te zien of de waarde van de discriminant groter dan of gelijk aan nul , waardoor de vergelijking een of twee wortels . Het lost vervolgens voor x . Als de discriminant kleiner is dan nul , de vergelijking heeft geen echte wortels en de " andere " gedeelte uitgevoerd , dat de complexe wortels vergelijkingen weergeven
Type 5 de volgende code : .
Label1.Text = wortels ( 0 ) Label2.Text = wortels
( 1 ) End Sub
Deze regels code gewoon de wortels op de etiketten weergeven en sluit vervolgens de Quadratic sub 's codeblok .
6 Sla de Visual Basic -programma . Druk op " F5 " om het uit te voeren .
|
