En andragradsekvation är ett andragradspolynom som har formen "ax^2 + bx + c = 0." "a", "b" och "c" är konstanterna och "x" är variabeln. När du löser en andragradsekvation måste du ha värdena på konstanterna och lösa för x, vilket alltid ger två värden, kallade "rötterna". I Visual Basic, du kan skriva ett program eller en funktion som uppmanar användaren att ange a-, b- och c-värdena, hitta rötterna och sedan visa värdena på form.
Steg 1
Öppna ett nytt Visual Basic-program. Dubbelklicka på "Button"-verktyget för att lägga till Button1 i formuläret. Dubbelklicka på "Etikett"-verktyget två gånger för att lägga till Label1 och Label2 i formuläret.
Dagens video
Steg 2
Dubbelklicka på "Knapp1" i formuläret för att öppna kodfönstret. Skriv följande kod:
Dim a As Decimal = InputBox("Ange A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Ange C: ") Kvadratisk (a, b, c)
De första tre raderna uppmanar användaren att ange värdena för konstanterna. Den anropar sedan en sub som kallas "Quadratic" och skickar konstanterna som argument till den.
Steg 3
Sätt in markören utanför Button1 sub. Skriv följande kod:
Privat Sub kvadratisk (ByVal a Som decimal, ByVal b Som decimal, ByVal c Som decimal) Dim rötter (1) Som sträng Dim x1, x2, skiva Som decimal skiva = b ^ 2 - 4 * a * c
Den första raden skapar den kvadratiska suben och accepterar tre argument. Den definierar sedan en array med två objekt för de två rötterna. Den skapar sedan tre decimalvariabler och tilldelar diskriminantens värde, som bestämmer antalet rötter andragradsekvationen har.
Steg 4
Skriv följande kod:
Om skiva >= 0 Då är x1 = (-b + Math. Sqrt (skiva)) / (2 * a) x2 = (-b - Math. Sqrt (skiva)) / (2 * a) rötter (0) = x1.ToString rötter (1) = x2.ToString Andra rötter (0) = "(-" & b. ToString & "+Sqrt(" & skiva. ToString & "))/(2_" & a. ToString & ")" rötter (1) = "(-" & b. ToString & "-Sqrt(" & skiva. ToString & "))/(2_" & a. ToString & ")" End If
"Om"-funktionen kontrollerar om värdet på diskriminanten är större än eller lika med noll, vilket betyder att ekvationen har en eller två rötter. Det löser sedan för x. Om diskriminanten är mindre än noll, har ekvationen inga reella rötter och "annat"-delen körs, vilket visar de komplexa rotekvationerna.
Steg 5
Skriv följande kod:
Etikett1.Text = rötter (0) Etikett2.Text = rötter (1) End Sub
Dessa kodrader visar helt enkelt rötterna på etiketterna och stänger sedan Quadratic subs kodblock.
Steg 6
Spara Visual Basic-programmet. Tryck på "F5" för att köra den.
