Jak programować równania kwadratowe w Visual Basic

Visual Basic może rozwiązywać równania kwadratowe

Krok 1

Otwórz nowy program Visual Basic. Dwukrotnie kliknij przycisk narzędzia, aby dodać Button1 do formularza. Dwukrotnie kliknij dwa razy narzędzie "Etykieta", aby dodać do formularza etykiety Label1 i Label2.

Krok 2

Kliknij dwukrotnie "Button1" w formularzu, aby otworzyć okno kodu. Wpisz następujący kod: Dim a As Decimal = InputBox ("Enter A:") Dim b Jako Decimal = InputBox ("Enter B:") Dim c Jako Decimal = InputBox ("Enter C:") Kwadratowy (a, b, c)

Pierwsze trzy linie proszą użytkownika o wartości stałych. Następnie udaje się do suba zwanego "Kwadratowym" i przekazuje stałe jako argumenty do niego.

Krok 3

Wyjmij kursor z podmenu Przycisk1. Wpisz następujący kod: Private Sub Quadratic (ByVal to As Decimal, ByVal b Jako dziesiętny, ByVal c Jako dziesiętny) Dim roots (1) As String Dim x1, x2, disc Jako dysk dziesiętny = b ^ 2 - 4 * a * c

Pierwszy wiersz tworzy czworokątny sub i akceptuje trzy argumenty. Następnie zdefiniuj wybór z dwoma elementami dla dwóch korzeni. Następnie utwórz trzy wartości dziesiętne i przypisz wartość dyskryminatora, która określa liczbę pierwiastków, które ma równanie kwadratowe.

Krok 4

Wpisz następujący kod: Jeśli dysk> = 0 Następnie x1 = (-b + Math.Sqrt (dysk)) / (2 * a) x2 = (-b - Math.Sqrt (dysk)) / (2 * a) katalog główny (0) = x1.ToString roots (1) = x2.ToString Else roots (0) = "(-" & b.ToString & "+ Sqrt (" & disc.ToString & ")) / (2 " & a. ToString & ")" roots (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 " & a.ToString & ")" Zakończ jeśli

Funkcja "if" jest ustawiona, jeśli wartość dyskryminatora jest większa lub równa zero, co oznacza, że równanie ma jeden lub dwa pierwiastki. Następnie rozwiązaj x. Jeśli dyskryminator jest mniejszy od zera, równanie nie ma prawdziwych korzeni i wykonywana jest część "else", pokazująca złożone równania root.