Cum se programează ecuațiile patrate în Visual Basic

Visual Basic poate rezolva ecuații patrate

Pasul 1

Deschideți un nou program Visual Basic. Faceți dublu clic pe butonul instrumentului pentru a adăuga butonul1 la formular. Faceți dublu-clic pe instrumentul "Etichetă" de două ori pentru a adăuga Label1 și Label2 la formular.

Pasul 2

Faceți dublu clic pe "Buton1" din formular pentru a deschide fereastra de cod. Scrieți următorul cod: Dim a As Decimal = InputBox ("Enter A:") Dim b Ca Decimal = InputBox ("Enter B:") Dim c Ca Decimal = InputBox c)

Primele trei linii cer utilizatorului valorile constantelor. Apoi el merge la un sub-numit "Quadratic" și trece constantele ca argumente pentru el.

Pasul 3

Scoateți cursorul din butonul Sub1. Scrieți următorul cod: Private Sub Quadratic (ByVal la ca zecimal, ByVal b ca zecimal, ByVal c ca zecimal) Dim rădăcini (1) ca șir Dim x1, x2, disc Ca disc zecimal = b ^ 2 - 4 * a * c

Prima linie creează subdiviziunea Quadratic și acceptă cele trei argumente. Apoi definiți o selecție cu două elemente pentru cele două rădăcini. Apoi creați trei variabile zecimale și atribuiți valoarea discriminantului, care determină numărul de rădăcini pe care le are ecuația patratică.

Pasul 4

Scrieți următorul cod: Dacă discul = = 0 Atunci x1 = (-b + Math.Sqrt (disc)) / (2 * a) x2 = (-b - Math.Sqrt (0) = x1.ToString rădăcini (1) = x2.ToString Rădăcini diferite (0) = "(-" & b.ToString & "+ Sqrt (" & disc.ToString & ")) / (2 " &. ToString & ")" rădăcini (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 " & a.ToString & ")

Funcția "if" este setată dacă valoarea discriminantului este mai mare sau egală cu zero, ceea ce înseamnă că ecuația are una sau două rădăcini. Apoi rezolva x. Dacă discriminantul este mai mic decât zero, ecuația nu are rădăcini reale, iar partea "else" este executată, prezentând ecuațiile rădăcini complexe.