A másodfokú egyenlet egy másodfokú polinom, amelynek alakja "ax^2 + bx + c = 0". Az "a", "b" és "c" az állandók, az "x" pedig a változó. Ha másodfokú egyenletet old meg, rendelkeznie kell az állandók értékeivel, és meg kell oldania x-et, ami mindig két értéket ad, ezeket "gyököknek" nevezzük. Ban ben A Visual Basic segítségével olyan programot vagy függvényt írhat, amely felszólítja a felhasználót, hogy adja meg az a, b és c értékeket, keresse meg a gyökereket, majd jelenítse meg az értékeket a forma.
1. lépés
Nyisson meg egy új Visual Basic programot. Kattintson duplán a "Button" eszközre az 1. gomb hozzáadásához az űrlaphoz. Kattintson duplán a "Címke" eszközre, hogy hozzáadja a Label1-et és a Label2-t az űrlaphoz.
A nap videója
2. lépés
Kattintson duplán a "Button1" gombra az űrlapon a kódablak megnyitásához. Írja be a következő kódot:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Quadratic (a, b, c)
Az első három sor az állandók értékét kéri a felhasználótól. Ezután meghív egy "Quadratic" nevű alegységet, és átadja neki az állandókat argumentumként.
3. lépés
Helyezze a kurzort a Button1 almenüen kívülre. Írja be a következő kódot:
Privát szub-négyzetes (ByVal a As Decimális, ByVal b As Decimális, ByVal c As Decimális) Dim gyökök (1) As String Dim x1, x2, disc As Decimális lemez = b ^ 2 - 4 * a * c
Az első sor létrehozza a másodfokú alcsoportot, és három argumentumot fogad el. Ezután meghatároz egy tömböt két elemmel a két gyökér számára. Ezután három decimális változót hoz létre, és hozzárendeli a diszkrimináns értékét, amely meghatározza a másodfokú egyenlet gyökeinek számát.
4. lépés
Írja be a következő kódot:
Ha lemez >= 0, akkor x1 = (-b + Math. Sqrt (lemez)) / (2 * a) x2 = (-b - Math. Sqrt (lemez)) / (2 * a) gyökér (0) = x1.ToString gyökér (1) = x2.ToString Else gyökér (0) = "(-" & b. ToString & "+Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" gyökök (1) = "(-" & b. ToString & "-Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" End If
Az "if" függvény ellenőrzi, hogy a diszkrimináns értéke nagyobb-e vagy egyenlő-e nullával, ami azt jelenti, hogy az egyenletnek egy vagy két gyöke van. Ezután x-re oldja meg. Ha a diszkrimináns kisebb, mint nulla, az egyenletnek nincs valódi gyöke, és az "else" rész végrehajtásra kerül, amely megjeleníti az összetett gyökegyenleteket.
5. lépés
Írja be a következő kódot:
Címke1.Szöveg = gyökök (0) Címke2.Szöveg = gyökök (1) End Sub
Ezek a kódsorok egyszerűen megjelenítik a gyökereket a címkéken, majd bezárják a Quadratic al kódblokkját.
6. lépés
Mentse el a Visual Basic programot. Nyomja meg az "F5" gombot a futtatáshoz.
