Ako naprogramovať kvadratických rovníc v jazyku Visual Basic

kvadratická rovnica druhého stupňa polynóm , ktorý má tvar " ax ^ 2 + bx + c = 0 " . " " , " B " a "c " sú konštanty a " x " je premenná . Keď vyriešiť kvadratickú rovnicu , musíte mať hodnoty konštánt a riešenie pre x , čo vždy prináša dve hodnoty , tzv " korene " . V aplikácii Visual Basic , môžete napísať program alebo funkciu , ktorá vyzve užívateľa na zadanie A , B a C hodnoty , nájsť korene a potom zobrazenie hodnôt vo formulári . Pokyny dovolená 1

Otvorte nový program jazyka . Double - kliknite na " tlačidlo " nástroj pridať Button1 formulára . Double - kliknite na " Label " nástroj dvakrát pridať Label1 a Label2 do formulára .
2

Double - kliknite na " Button1 " na formulári otvorte okno kód . Zadajte nasledujúci kód :

Dim a As Decimal = InputBox ( " Zadajte " )

Dim b ako desatinné = InputBox ( " Zadajte B " )

Dim c ako desatinné = InputBox ( " Zadajte c : " )

kvadratické ( a , b , c)

Prvé tri riadky vyzve užívateľa k hodnotám konštánt . Potom zavolá sub s názvom " kvadratické " a odovzdá konštanty ako argumenty k nej .
3

Vložte kurzor mimo sub Button1 . Zadajte nasledujúci kód :

Private Sub kvadratická ( byval ako desatinné , ByVal b As Decimal , byval c ako desatinné )

Dim korene ( 1 ) As String Dim

x1 , x2 , disk ako desatinné

disk = b ^ 2 - 4 * a * c

Prvý riadok vytvorí kvadratické sub a prijíma tri argumenty . To potom definuje pole s dvoma položkami pre dva korene . To potom vytvára tri desatinné premenné a priraďuje hodnotu discriminant , ktorý určuje počet koreňov kvadratickej rovnice má
4

zadajte nasledujúci kód : .

Ak disk > = 0 Then

x1 = ( - b + Math.Sqrt ( disk ) ) /( 2 * )

x2 = ( - b - Math.Sqrt ( disk ) ) /( 2 * ) Spojené

korene ( 0 ) = x1.ToString

korene ( 1 ) = x2.ToString

Else

korene ( 0 ) = " ( - " a b.ToString a " + sqrt ( " & disc.ToString a " ) ) /( 2 * " a a.ToString a " ) " Spojené

korene ( 1 ) = " ( - " a b.ToString a " - sqrt ( " & disc.ToString & " ) ) /( 2 * " & a.ToString & " ) "

End If

" keby " funkčné kontroly , či je hodnota discriminant je väčší alebo rovný nule , čo znamená , že rovnica má jeden alebo dva korene . To potom rieši pre x . Ak diskriminačné je menšia ako nula , rovnica nemá reálne korene a " iný " časť vykoná , ktorá zobrazuje komplexné korene rovnice
5

zadajte nasledujúci kód : .

Label1.Text = korene ( 0 )

Label2.Text = korene ( 1 )

End Sub

Tieto riadky kódu jednoducho zobraziť korene na etiketách a zatvorte blok kódu kvadratická ponorky .
6

Uložiť programu Visual Basic . Stlačením tlačidla " F5 " , aby ho spustiť .

• Predchádzajúca strana: Ako získať prístup k FlexGrid vo VB6 
• Ďalšia strana: Ako vyhľadávať v VB Script