Równanie kwadratowe to wielomian drugiego stopnia, który ma postać „ax^2 + bx + c = 0”. „a”, „b” i „c” to stałe, a „x” to zmienna. Kiedy rozwiązujesz równanie kwadratowe, musisz mieć wartości stałych i rozwiązać x, co zawsze daje dwie wartości, zwane „pierwiastkami”. w Visual Basic, możesz napisać program lub funkcję, która prosi użytkownika o wprowadzenie wartości a, b i c, znalezienie pierwiastków, a następnie wyświetlenie wartości na Formularz.
Krok 1
Otwórz nowy program Visual Basic. Kliknij dwukrotnie narzędzie „Przycisk”, aby dodać Przycisk1 do formularza. Dwukrotnie kliknij narzędzie „Etykieta”, aby dodać do formularza Label1 i Label2.
Wideo dnia
Krok 2
Kliknij dwukrotnie przycisk „Button1” na formularzu, aby otworzyć okno kodu. Wpisz następujący kod:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Kwadratowy (a, b, c)
Pierwsze trzy wiersze pytają użytkownika o wartości stałych. Następnie wywołuje sub o nazwie „Quadratic” i przekazuje do niego stałe jako argumenty.
Krok 3
Umieść kursor poza podrzędną Button1. Wpisz następujący kod:
Prywatny Sub Kwadratowy (ByVal a jako dziesiętny, ByVal b jako dziesiętny, ByVal c jako dziesiętny) Dim pierwiastki (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
Pierwsza linia tworzy podrzędną kwadratową i akceptuje trzy argumenty. Następnie definiuje tablicę z dwoma elementami dla dwóch pierwiastków. Następnie tworzy trzy zmienne dziesiętne i przypisuje wartość dyskryminatora, który określa liczbę pierwiastków równania kwadratowego.
Krok 4
Wpisz następujący kod:
Jeśli dysk >= 0 Wtedy x1 = (-b + Matematyka. Sqrt (dysk)) / (2 * a) x2 = (-b - Matematyka. Sqrt (dysk)) / (2 * a) pierwiastki (0) = x1.ToString pierwiastki (1) = x2.ToString Inne pierwiastki (0) = "(-" & b. ToString & "+Sqrt(" i dysk. ToString & "))/(2_" & za. ToString & ")" korzenie (1) = "(-" & b. ToString & "-Sqrt(" i dysk. ToString & "))/(2_" & za. ToString i „)” Koniec, jeśli
Funkcja „jeśli” sprawdza, czy wartość dyskryminatora jest większa lub równa zero, co oznacza, że równanie ma jeden lub dwa pierwiastki. Następnie rozwiązuje x. Jeśli dyskryminator jest mniejszy od zera, równanie nie ma pierwiastków rzeczywistych i wykonywana jest część „inna”, która wyświetla złożone równania pierwiastków.
Krok 5
Wpisz następujący kod:
Label1.Text = korzenie (0) Label2.Text = korzenie (1) End Sub
Te wiersze kodu po prostu wyświetlają korzenie na etykietach, a następnie zamykają blok kodu podrzędnego Quadratic.
Krok 6
Zapisz program Visual Basic. Naciśnij "F5", aby go uruchomić.
