Jak programovat kvadratické rovnice v jazyce Visual Basic

Visual Basic může vyřešit kvadratické rovnice

Krok 1

Otevřete nový program jazyka. Poklepáním na tlačítko nástroje přidejte do formuláře tlačítko1. Dvakrát klikněte na nápis "Label" dvakrát, abyste do formuláře přidali štítky Label1 a Label2.

Krok 2

Poklepáním na tlačítko "Button1" ve formuláři otevřete okno kódu. Zadejte následující kód: Dim a As Decimal = InputBox ("Enter A:") Dim b Jako desetinné = InputBox ("Enter B:") Dim c As Decimal = InputBox ("Enter C:") c)

První tři řádky se od uživatele ptají na hodnoty konstant. Poté jde na dílčí díl nazvaný "Quadratic" a předává konstanty jako argumenty.

Krok 3

Vyjměte kurzor z podružného tlačítka1. Napište následující kód: Private Sub Quadratic (ByVal jako As Decimal, ByVal b Jako desetinný, ByVal c Jako desetinný) Dim kořenů (1) Jako String Dim x1, x2, disk As Decimal disk = b ^ 2 - 4 * a * c

První řádek vytvoří podmnožinu Quadratic a přijme tři argumenty. Pak definujte výběr s dvěma prvky pro dva kořeny. Pak vytvořte tři desetinné proměnné a přiřaďte hodnotu diskriminátoru, který určuje počet kořenů, který má kvadratická rovnice.

Krok 4

Napište následující kód: Pokud disk> = 0 Pak x1 = (-b + Math.Sqrt (disk)) / (2 * a) x2 = (-b - Math.Sqrt (0) = x1.ToString kořeny (1) = x2.ToString Jiné kořeny (0) = "(-" & b.ToString & "+ Sqrt (" & disk.ToString & ")) / (2 " &. ToString & ")" kořeny (1) = "(-" & b.ToString & "-Sqrt (" & disk.ToString & ")) / (2 " & a.ToString & ")

Funkce "if" je nastavena, pokud je hodnota diskriminátoru větší nebo rovna nule, což znamená, že rovnice má jeden nebo dva kořeny. Pak vyřešit x. Pokud je diskriminátor menší než nula, rovnice nemá žádné skutečné kořeny a část "else" je provedena, ukazující komplexní kořenové rovnice.