Kvadrātvienādojums ir otrās pakāpes polinoms, kura forma ir "ax^2 + bx + c = 0". "a", "b" un "c" ir konstantes, un "x" ir mainīgais. Atrisinot kvadrātvienādojumu, jums ir jābūt konstantu vērtībām un jāatrisina x, kas vienmēr dod divas vērtības, ko sauc par "saknēm". In Visual Basic, varat uzrakstīt programmu vai funkciju, kas liek lietotājam ievadīt a, b un c vērtības, atrast saknes un pēc tam parādīt vērtības formā.
1. darbība
Atveriet jaunu Visual Basic programmu. Veiciet dubultklikšķi uz rīka "Button", lai pievienotu veidlapai pogu 1. Divreiz veiciet dubultklikšķi uz rīka "Label", lai pievienotu veidlapai Label1 un Label2.
Dienas video
2. darbība
Veidlapā veiciet dubultklikšķi uz pogas "Button1", lai atvērtu koda logu. Ievadiet šādu kodu:
Dim a As Decimal = InputBox("Ievadiet A: ") Dim b As Decimal = InputBox("Ievadiet B: ") Dim c As Decimal = InputBox("Enter C: ") Kvadrātiskais (a, b, c)
Pirmajās trīs rindās lietotājam tiek prasīts norādīt konstantu vērtības. Pēc tam tas izsauc apakšgrupu ar nosaukumu "Kvadrātiskais" un nodod tai konstantes kā argumentus.
3. darbība
Ievietojiet kursoru ārpus apakšpogas Button1. Ievadiet šādu kodu:
Privāts apakškvadrātiskais (ByVal a kā decimāls, ByVal b kā decimāls, ByVal c kā decimāls) Dim saknes (1) kā virkne Dim x1, x2, disks Kā decimāls disks = b ^ 2 - 4 * a * c
Pirmajā rindā tiek izveidota kvadrātiskā apakšdaļa un tiek pieņemti trīs argumenti. Pēc tam tas definē masīvu ar diviem vienumiem divām saknēm. Pēc tam tas izveido trīs decimāldaļas mainīgos un piešķir diskriminanta vērtību, kas nosaka kvadrātvienādojuma sakņu skaitu.
4. darbība
Ievadiet šādu kodu:
Ja disks >= 0, tad x1 = (-b + matem. Sqrt (disks)) / (2 * a) x2 = (-b — matem. Sqrt (disks)) / (2 * a) saknes (0) = x1.ToString saknes (1) = x2.ToString Else saknes (0) = "(-" & b. ToString & "+Sqrt(" & disks. ToString & "))/(2_" & a. ToString & ")" saknes (1) = "(-" & b. ToString & "-Sqrt(" & disks. ToString & "))/(2_" & a. ToString & ")" Beigas Ja
Funkcija "ja" pārbauda, vai diskriminanta vērtība ir lielāka vai vienāda ar nulli, kas nozīmē, ka vienādojumam ir viena vai divas saknes. Pēc tam tas atrisina x. Ja diskriminants ir mazāks par nulli, vienādojumam nav reālu sakņu un tiek izpildīta daļa "cits", kas parāda sarežģītos sakņu vienādojumus.
5. darbība
Ievadiet šādu kodu:
Iezīme1.Teksts = saknes (0) Iezīme2.Teksts = saknes (1) Beigas apakš.
Šīs koda rindas vienkārši parāda saknes uz etiķetēm un pēc tam aizver kvadrātiskā apakškoda koda bloku.
6. darbība
Saglabājiet programmu Visual Basic. Nospiediet "F5", lai to palaistu.