Kvadratna enačba je polinom druge stopnje, ki ima obliko "ax^2 + bx + c = 0." "a", "b" in "c" so konstante, "x" pa je spremenljivka. Ko rešujete kvadratno enačbo, morate imeti vrednosti konstant in rešiti za x, ki vedno daje dve vrednosti, imenovani "koreni". V Visual Basic, lahko napišete program ali funkcijo, ki uporabnika pozove, da vnese vrednosti a, b in c, poišče korenine in nato prikaže vrednosti na oblika.
Korak 1
Odprite nov program Visual Basic. Dvokliknite orodje »Button«, da dodate gumb Button1 v obrazec. Dvakrat kliknite orodje »Oznaka«, da obrazcu dodate Label1 in Label2.
Video dneva
2. korak
Dvokliknite "Button1" na obrazcu, da odprete okno s kodo. Vnesite naslednjo kodo:
Dim a Kot decimalno = InputBox("Enter A: ") Dim b Kot decimalno = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Kvadratično (a, b, c)
Prve tri vrstice uporabnika pozovejo k vrednostim konstant. Nato pokliče podnožje, imenovano "Kvadratično" in mu posreduje konstante kot argumente.
3. korak
Vstavite kazalec zunaj podnožja Button1. Vnesite naslednjo kodo:
Zasebni podkvadratični (ByVal a kot decimalni, ByVal b kot decimalni, ByVal c kot decimalni) Dim koreni (1) kot niz Dim x1, x2, disk Kot decimalni disk = b ^ 2 - 4 * a * c
Prva vrstica ustvari kvadratni sub in sprejme tri argumente. Nato definira matriko z dvema elementoma za dva korena. Nato ustvari tri decimalne spremenljivke in dodeli vrednost diskriminante, ki določa število korenov, ki jih ima kvadratna enačba.
4. korak
Vnesite naslednjo kodo:
Če je disk >= 0, potem je x1 = (-b + Math. Sqrt (disk)) / (2 * a) x2 = (-b - Math. Sqrt (disk)) / (2 * a) koreni (0) = x1.ToString koreni (1) = x2.ToString Drugi koreni (0) = "(-" & b. ToString & "+Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" koreni (1) = "(-" & b. ToString & "-Sqrt(" & disk. ToString & "))/(2_" & a. ToString & ")" Konec Če
Funkcija "če" preveri, ali je vrednost diskriminanta večja ali enaka nič, kar pomeni, da ima enačba en ali dva korena. Nato se reši za x. Če je diskriminanta manjša od nič, enačba nima pravih korenov in se izvede del "drugo", ki prikaže kompleksne korenske enačbe.
5. korak
Vnesite naslednjo kodo:
Label1.Text = roots (0) Label2.Text = roots (1) End Sub
Te vrstice kode preprosto prikažejo korenine na oznakah in nato zaprejo kodni blok kvadratne podpore.
6. korak
Shranite program Visual Basic. Pritisnite "F5", da ga zaženete.
