Kvadratická rovnica je polynóm druhého stupňa, ktorý má tvar "ax^2 + bx + c = 0." "a", "b" a "c" sú konštanty a "x" je premenná. Keď riešite kvadratickú rovnicu, musíte mať hodnoty konštánt a riešiť x, čo vždy dáva dve hodnoty, nazývané „odmocniny“. In Visual Basic, môžete napísať program alebo funkciu, ktorá vyzve užívateľa, aby zadal hodnoty a, b a c, našiel korene a potom zobrazil hodnoty na formulár.
Krok 1
Otvorte nový program Visual Basic. Dvakrát kliknite na nástroj "Button" a pridajte Button1 do formulára. Dvakrát kliknite na nástroj "Štítok", aby ste do formulára pridali Label1 a Label2.
Video dňa
Krok 2
Dvojitým kliknutím na tlačidlo „Button1“ vo formulári otvoríte okno s kódom. Zadajte nasledujúci kód:
Dim a As Decimal = InputBox("Zadajte A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Zadajte C: ") Kvadratické (a, b, c)
Prvé tri riadky vyzývajú používateľa na zadanie hodnôt konštánt. Potom zavolá sub s názvom „Quadratic“ a odovzdá jej konštanty ako argumenty.
Krok 3
Vložte kurzor mimo podpoložku Button1. Zadajte nasledujúci kód:
Private Sub Quadratic (ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) Dim root (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
Prvý riadok vytvára kvadratickú podskupinu a prijíma tri argumenty. Potom definuje pole s dvoma položkami pre dva korene. Potom vytvorí tri desatinné premenné a priradí hodnotu diskriminantu, ktorý určí počet koreňov, ktoré má kvadratická rovnica.
Krok 4
Zadajte nasledujúci kód:
Ak disk >= 0, potom x1 = (-b + Mat. Sqrt (disk)) / (2 * a) x2 = (-b - Mat. Sqrt (disk)) / (2 * a) korene (0) = x1.ToString korene (1) = x2.ToString Ostatné korene (0) = "(-" & b. ToString & "+Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" korene (1) = "(-" & b. ToString & "-Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" End If
Funkcia „if“ kontroluje, či je hodnota diskriminantu väčšia alebo rovná nule, čo znamená, že rovnica má jeden alebo dva korene. Potom sa to rieši pre x. Ak je diskriminant menší ako nula, rovnica nemá žiadne skutočné korene a vykoná sa časť „ostatná“, ktorá zobrazí rovnice komplexných koreňov.
Krok 5
Zadajte nasledujúci kód:
Label1.Text = korene (0) Label2.Text = korene (1) End Sub
Tieto riadky kódu jednoducho zobrazia korene na štítkoch a potom zatvoria blok kódu kvadratickej podskupiny.
Krok 6
Uložte program Visual Basic. Pre spustenie stlačte "F5".