Kvadratna jednadžba je polinom drugog stupnja koji ima oblik "ax^2 + bx + c = 0." "a", "b" i "c" su konstante, a "x" je varijabla. Kada rješavate kvadratnu jednadžbu, morate imati vrijednosti konstanti i riješiti za x, što uvijek daje dvije vrijednosti, koje se nazivaju "korijeni". U Visual Basic, možete napisati program ili funkciju koja traži od korisnika da unese vrijednosti a, b i c, pronađe korijene i zatim prikaže vrijednosti na oblik.
Korak 1
Otvorite novi Visual Basic program. Dvaput kliknite na alat "Button" da biste dodali Button1 u obrazac. Dvaput kliknite alat "Oznaka" dvaput da dodate Label1 i Label2 u obrazac.
Video dana
Korak 2
Dvaput kliknite "Button1" na obrascu da biste otvorili prozor koda. Upišite sljedeći kod:
Dim a kao decimalni = InputBox("Enter A: ") Dim b Kao decimalni = InputBox("Enter B: ") Dim c Kao decimalni = InputBox("Enter C: ") Kvadratni (a, b, c)
Prva tri retka od korisnika traže vrijednosti konstanti. Zatim poziva sub nazvan "Kvadratični" i prosljeđuje mu konstante kao argumente.
Korak 3
Umetnite pokazivač izvan podmeta Button1. Upišite sljedeći kod:
Privatni podkvadratični (ByVal a kao decimalni, ByVal b kao decimalni, ByVal c kao decimalni) Dim korijeni (1) kao niz Dim x1, x2, disk Kao decimalni disk = b ^ 2 - 4 * a * c
Prvi red stvara kvadratni pod i prihvaća tri argumenta. Zatim definira niz s dvije stavke za dva korijena. Zatim stvara tri decimalne varijable i dodjeljuje vrijednost diskriminanta, koji određuje broj korijena kvadratne jednadžbe.
4. korak
Upišite sljedeći kod:
Ako je disk >= 0 Tada je x1 = (-b + Math. Sqrt (disk)) / (2 * a) x2 = (-b - Math. Sqrt (disk)) / (2 * a) korijeni (0) = x1.ToString korijeni (1) = x2.ToString Drugi korijeni (0) = "(-" & b. ToString & "+Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" korijeni (1) = "(-" & b. ToString & "-Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" Kraj Ako
Funkcija "if" provjerava je li vrijednost diskriminanta veća ili jednaka nuli, što znači da jednadžba ima jedan ili dva korijena. Tada se rješava za x. Ako je diskriminant manji od nule, jednadžba nema pravih korijena i izvršava se dio "drugo", koji prikazuje složene korijenske jednadžbe.
Korak 5
Upišite sljedeći kod:
Oznaka1.Tekst = korijeni (0) Oznaka2.Tekst = korijeni (1) Kraj pod
Ove linije koda jednostavno prikazuju korijene na oznakama, a zatim zatvaraju blok koda Quadratic sub.
Korak 6
Spremite program Visual Basic. Pritisnite "F5" da biste ga pokrenuli.
