Kuinka ohjelmoida toisen asteen yhtälöitä Visual Basicissa

Neliöyhtälö on toisen asteen polynomi, jonka muoto on "ax^2 + bx + c = 0". "a", "b" ja "c" ovat vakioita ja "x" on muuttuja. Kun ratkaiset toisen asteen yhtälön, sinulla on oltava vakioiden arvot ja ratkaistava x, joka tuottaa aina kaksi arvoa, joita kutsutaan "juuriksi". Sisään Visual Basic, voit kirjoittaa ohjelman tai funktion, joka kehottaa käyttäjää syöttämään a-, b- ja c-arvot, etsimään juuret ja näyttämään arvot sitten muodossa.

Vaihe 1

Avaa uusi Visual Basic -ohjelma. Kaksoisnapsauta "Button"-työkalua lisätäksesi Button1 lomakkeeseen. Kaksoisnapsauta "Label"-työkalua kahdesti lisätäksesi Label1 ja Label2 lomakkeeseen.

Päivän video

Vaihe 2

Kaksoisnapsauta "Button1" lomakkeella avataksesi koodiikkunan. Kirjoita seuraava koodi:

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

Ensimmäiset kolme riviä kehottavat käyttäjää antamaan vakioiden arvot. Sitten se kutsuu aliosaa nimeltä "Quadratic" ja välittää vakiot argumentteina sille.

Vaihe 3

Aseta kohdistin Button1-alialueen ulkopuolelle. Kirjoita seuraava koodi:

Yksityinen subquadratic (ByVal a Desimaalina, ByVal b Desimaalina, ByVal c Desimaalina) Dim juuret (1) Merkkijonona Dim x1, x2, levy Desimaalina levy = b ^ 2 - 4 * a * c

Ensimmäinen rivi luo neliön aliarvon ja hyväksyy kolme argumenttia. Sitten se määrittää taulukon, jossa on kaksi kohdetta kahdelle juurelle. Sitten se luo kolme desimaalimuuttujaa ja määrittää erottimen arvon, joka määrittää toisen yhtälön juurten lukumäärän.

Vaihe 4

Kirjoita seuraava koodi:

Jos levy >= 0, niin x1 = (-b + matem. Sqrt (levy)) / (2 * a) x2 = (-b - Matem. Sqrt (levy)) / (2 * a) juuret (0) = x1.ToString roots (1) = x2.ToString Else juuret (0) = "(-" & b. ToString & "+Sqrt(" & levy. ToString & "))/(2_" & a. ToString & ")" juuret (1) = "(-" & b. ToString & "-Sqrt(" & levy. ToString & "))/(2_" & a. ToString & ")" End If

"Jos"-funktio tarkistaa, onko erottimen arvo suurempi tai yhtä suuri kuin nolla, mikä tarkoittaa, että yhtälöllä on yksi tai kaksi juuria. Sitten se ratkaisee x: n. Jos erottaja on pienempi kuin nolla, yhtälöllä ei ole todellisia juuria ja "else"-osa suoritetaan, joka näyttää monimutkaiset juuriyhtälöt.

Vaihe 5

Kirjoita seuraava koodi:

Label1.Text = juuret (0) Tunniste2.Teksti = juuret (1) End Sub

Nämä koodirivit näyttävät yksinkertaisesti tarrojen juuret ja sulkevat sitten Quadratic-alikoodilohkon.

Vaihe 6

Tallenna Visual Basic -ohjelma. Paina "F5" suorittaaksesi sen.