Kako programirati kvadratne enačbe v Visual Basicu

Kvadratna enačba je polinom druge stopnje, ki ima obliko "ax^2 + bx + c =0." "a", "b" in "c" so konstante in "x" je spremenljivka. Ko rešujete kvadratno enačbo, morate imeti vrednosti konstant in rešiti x, kar vedno prinese dve vrednosti, imenovani "korenine". V Visual Basicu lahko napišete program ali funkcijo, ki pozove uporabnika, da vnese vrednosti a, b in c, poišče korenine in nato prikaže vrednosti na obrazcu.

1. korak

Odprite nov program Visual Basic. Dvokliknite orodje »Gumb«, da obrazcu dodate Gumb1. Dvakrat dvokliknite orodje »Oznaka«, da obrazcu dodate Oznako1 in Oznako2.

2. korak

Dvokliknite "Button1" na obrazcu, da odprete okno s kodo. Vnesite to kodo:

Dim a As Decimal =InputBox("Enter A:") Dim b As Decimal =InputBox("Enter B:") Dim c As Decimal =InputBox("Enter C:") Quadratic(a, b, c)

Prve tri vrstice zahtevajo od uporabnika vrednosti konstant. Nato pokliče sub z imenom "Quadratic" in mu posreduje konstante kot argumente.

3. korak

Kazalec vstavite izven sub Button1. Vnesite to kodo:

Private Sub Quadratic(ByVal a kot decimalno, ByVal b kot decimalno, ByVal c kot decimalno) Dim roots(1) Kot niz Dim x1, x2, disk Kot decimalni disk =b ^ 2 - 4 * a * c

Prva vrstica ustvari Quadratic 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 to kodo:

Če je disk>=0, potem je x1 =(-b + Math.Sqrt(disc)) / (2 * a) x2 =(-b - Math.Sqrt(disc)) / (2 * a) roots(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 &")" End If

Funkcija "if" preveri, ali je vrednost diskriminante večja ali enaka nič, kar pomeni, da ima enačba en ali dva korena. Nato reši za x. Če je diskriminanta manjša od nič, enačba nima dejanskih korenin in se izvede del »else«, ki prikaže kompleksne koreninske enačbe.

5. korak

Vnesite to kodo:

Label1.Text =roots(0) Label2.Text =roots(1) End Sub

Te vrstice kode preprosto prikažejo korenine na nalepkah in nato zaprejo kodni blok Quadratic sub.

6. korak

Shranite program Visual Basic. Pritisnite "F5", da ga zaženete.