Ruutvõrrand on teise astme polünoom, mille kuju on "ax^2 + bx + c = 0". "a", "b" ja "c" on konstandid ja "x" on muutuja. Ruutvõrrandi lahendamisel peavad teil olema konstantide väärtused ja lahendama x, mis annab alati kaks väärtust, mida nimetatakse "juurteks". sisse Visual Basicu abil saate kirjutada programmi või funktsiooni, mis palub kasutajal sisestada a-, b- ja c-väärtused, leida juured ja kuvada väärtused vormi.
Samm 1
Avage uus Visual Basicu programm. Topeltklõpsake tööriistal "Nupp", et lisada vormile Button1. Topeltklõpsake tööriista "Silt" kaks korda, et lisada vormile Label1 ja Label2.
Päeva video
2. samm
Koodiakna avamiseks topeltklõpsake vormil nuppu "Button1". Sisestage järgmine kood:
Dim a As Decimal = InputBox("Sisestage A: ") Dim b As Decimal = InputBox("Sisesta B: ") Dim c As Decimal = InputBox("Sisesta C: ") Ruut (a, b, c)
Esimesed kolm rida nõuavad kasutajalt konstantide väärtusi. Seejärel kutsub see välja alam nimega "Kvadraat" ja edastab konstandid sellele argumentidena.
3. samm
Sisestage kursor nupust Button1 väljapoole. Sisestage järgmine kood:
Privaatne alamruudukujuline (ByVal a kümnendkohana, ByVal b kümnendkohana, ByVal c kümnendkohana) hämarad juured (1) stringina Dim x1, x2, ketas kümnendsüsteemina ketas = b ^ 2 - 4 * a * c
Esimene rida loob ruutarvulise alam ja võtab vastu kolm argumenti. Seejärel määratleb see kahe juure jaoks kahe elemendiga massiivi. Seejärel loob see kolm kümnendmuutujat ja määrab diskriminandi väärtuse, mis määrab ruutvõrrandi juurte arvu.
4. samm
Sisestage järgmine kood:
Kui ketas >= 0, siis x1 = (-b + matemaatika. Sqrt (ketas)) / (2 * a) x2 = (-b – matemaatika. Sqrt (ketas)) / (2 * a) juured (0) = x1.ToString juured (1) = x2.ToString Else juured (0) = "(-" & b. ToString & "+Sqrt(" & ketas. ToString & "))/(2_" & a. ToString & ")" juured (1) = "(-" & b. ToString & "-Sqrt(" & disc. ToString & "))/(2_" & a. ToString & ")" End If
Funktsioon "kui" kontrollib, kas diskriminandi väärtus on nullist suurem või sellega võrdne, mis tähendab, et võrrandil on üks või kaks juurt. Seejärel lahendab see x. Kui diskriminant on nullist väiksem, pole võrrandil tegelikke juuri ja käivitub osa "muu", mis kuvab keeruliste juurvõrrandi.
5. samm
Sisestage järgmine kood:
Silt1.Tekst = juured (0) Silt2.Tekst = juured (1) End Sub
Need koodiread kuvavad lihtsalt siltidel olevad juured ja sulgevad seejärel Quadratic sub koodiploki.
6. samm
Salvestage programm Visual Basic. Selle käivitamiseks vajutage "F5".