Kvadratická rovnice je polynom druhého stupně, který má tvar "ax^2 + bx + c = 0." "a", "b" a "c" jsou konstanty a "x" je proměnná. Když řešíte kvadratickou rovnici, musíte mít hodnoty konstant a řešit x, což vždy dává dvě hodnoty, nazývané „kořeny“. v Visual Basic, můžete napsat program nebo funkci, která vyzve uživatele, aby zadal hodnoty a, b a c, našel kořeny a poté zobrazil hodnoty na formulář.
Krok 1
Otevřete nový program jazyka Visual Basic. Poklepáním na nástroj "Button" přidejte do formuláře Button1. Dvakrát klikněte na nástroj "Label" a přidejte do formuláře Label1 a Label2.
Video dne
Krok 2
Poklepáním na "Button1" ve formuláři otevřete okno kódu. Zadejte následující kód:
Dim a As Decimal = InputBox("Zadejte A: ") Dim b As Decimal = InputBox("Zadejte B: ") Dim c As Decimal = InputBox("Zadejte C: ") Kvadratické (a, b, c)
První tři řádky vyzve uživatele k zadání hodnot konstant. Poté zavolá sub nazvanou „Quadratic“ a předá jí konstanty jako argumenty.
Krok 3
Vložte kurzor mimo dílčí Button1. Zadejte následující kód:
Private Sub Quadratic (ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) Dim kořeny (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
První řádek vytvoří kvadratický dílčí a přijímá tři argumenty. Potom definuje pole se dvěma položkami pro dva kořeny. Poté vytvoří tři desítkové proměnné a přiřadí hodnotu diskriminantu, který určuje počet kořenů kvadratické rovnice.
Krok 4
Zadejte následující kód:
Pokud disk >= 0, pak x1 = (-b + Mat. Sqrt (disk)) / (2 * a) x2 = (-b - Mat. Sqrt (disk)) / (2 * a) kořeny (0) = x1.ToString kořeny (1) = x2.ToString Else kořeny (0) = "(-" & b. ToString & "+Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" kořeny (1) = "(-" & b. ToString & "-Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" End If
Funkce "if" kontroluje, zda je hodnota diskriminantu větší nebo rovna nule, což znamená, že rovnice má jeden nebo dva kořeny. Pak se to vyřeší pro x. Pokud je diskriminant menší než nula, rovnice nemá žádné skutečné kořeny a vykoná se část „jinak“, která zobrazí komplexní rovnice odmocnin.
Krok 5
Zadejte následující kód:
Label1.Text = kořeny (0) Label2.Text = kořeny (1) End Sub
Tyto řádky kódu jednoduše zobrazí kořeny na štítcích a poté zavřou blok kódu kvadratické podskupiny.
Krok 6
Uložte program jazyka Visual Basic. Pro spuštění stiskněte "F5".
