Kvadratinė lygtis yra antrojo laipsnio daugianomas, kurio forma yra "ax^2 + bx + c = 0". „a“, „b“ ir „c“ yra konstantos, o „x“ yra kintamasis. Kai sprendžiate kvadratinę lygtį, turite turėti konstantų reikšmes ir išspręsti x, kuri visada duoda dvi reikšmes, vadinamas "šaknimis". Į Visual Basic, galite parašyti programą arba funkciją, kuri ragina vartotoją įvesti a, b ir c reikšmes, rasti šaknis ir tada rodyti reikšmes forma.
1 žingsnis
Atidarykite naują „Visual Basic“ programą. Dukart spustelėkite įrankį „Mygtukas“, kad pridėtumėte 1 mygtuką į formą. Du kartus spustelėkite įrankį „Etiketė“, kad pridėtumėte „Label1“ ir „Label2“ prie formos.
Dienos vaizdo įrašas
2 žingsnis
Dukart spustelėkite „Button1“ formoje, kad atidarytumėte kodo langą. Įveskite šį kodą:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Kvadratinis (a, b, c)
Pirmos trys eilutės ragina vartotoją įvesti konstantų reikšmes. Tada jis iškviečia pogrupį, pavadintą „Kvadratinis“ ir perduoda jam konstantas kaip argumentus.
3 veiksmas
Įveskite žymeklį už mygtuko 1 sub. Įveskite šį kodą:
Privatus sub kvadratinis (ByVal a Kaip dešimtainis, ByVal b Kaip dešimtainis, ByVal c Kaip dešimtainis) Mažos šaknys (1) Kaip eilutė Dim x1, x2, diskas Kaip dešimtainis diskas = b ^ 2 - 4 * a * c
Pirmoje eilutėje sukuriamas kvadratinis pogrupis ir priimami trys argumentai. Tada jis apibrėžia masyvą su dviem elementais dviem šaknims. Tada sukuriami trys dešimtainiai kintamieji ir priskiriama diskriminanto reikšmė, kuri nustato kvadratinės lygties šaknų skaičių.
4 veiksmas
Įveskite šį kodą:
Jei diskas >= 0, tada x1 = (-b + matematika. Sqrt (diskas)) / (2 * a) x2 = (-b – matematika. Sqrt (diskas)) / (2 * a) šaknys (0) = x1.ToString šaknys (1) = x2.ToString Else šaknys (0) = "(-" & b. ToString & "+Sqrt(" & diskas. ToString & "))/(2_" & a. ToString & ")" šaknys (1) = "(-" & b. ToString & "-Sqrt(" & diskas. ToString & "))/(2_" & a. ToString & ")" Pabaiga If
Funkcija „jei“ patikrina, ar diskriminanto reikšmė yra didesnė arba lygi nuliui, o tai reiškia, kad lygtis turi vieną ar dvi šaknis. Tada jis išsprendžia x. Jei diskriminantas yra mažesnis už nulį, lygtis neturi tikrųjų šaknų ir vykdoma dalis „kita“, kuri rodo sudėtingas šaknų lygtis.
5 veiksmas
Įveskite šį kodą:
Etiketė1.Tekstas = šaknys (0) Etiketė2.Tekstas = šaknys (1) Pabaiga
Šios kodo eilutės tiesiog parodo šaknis etiketėse ir uždaro kvadratinio sub kodo bloką.
6 veiksmas
Išsaugokite „Visual Basic“ programą. Paspauskite „F5“, kad paleistumėte.
