Come programmare equazioni di secondo grado in Visual Basic

Visual Basic può risolvere equazioni di secondo grado

Passaggio 1

Aprire un nuovo programma Visual Basic. Fare doppio clic sul pulsante dello strumento per aggiungere Button1 al modulo. Fare doppio clic sullo strumento "Etichetta" due volte per aggiungere Label1 e Label2 al modulo.

Passaggio 2

Fare doppio clic su "Button1" nel modulo per aprire la finestra del codice. Scrivi il seguente codice: Dim a As Decimal = InputBox ("Enter A:") Dim b As Decimal = InputBox ("Enter B:") Dim c As Decimal = InputBox ("Enter C:") Quadratic (a, b, c)

Le prime tre righe chiedono all'utente i valori delle costanti. Quindi passa a un sottotitolo chiamato "Quadratic" e passa le costanti come argomenti a lui.

Passaggio 3

Prendi il cursore fuori dal pulsante secondario1. Scrivi il seguente codice: Quadreria sub privata (daVal a As decimale, ByVal b Decimal, ByVal c Decimal) Dim roots (1) As String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c

La prima riga crea il sub Quadratic e accetta i tre argomenti. Quindi definire una selezione con due elementi per le due radici. Quindi creare tre variabili decimali e assegnare il valore del discriminante, che determina il numero di radici che ha l'equazione quadratica.

Passaggio 4

Scrivi il seguente codice: Se disco> = 0 Quindi x1 = (-b + Math.Sqrt (disco)) / (2 * a) x2 = (-b - Math.Sqrt (disco)) / (2 * a) radici (0) = x1.ToString roots (1) = x2.ToString Else roots (0) = "(-" & b.ToString & "+ Sqrt (" & disc.ToString & ")) / (2 " & a. ToString & ")" roots (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 " & a.ToString & ")" End If

La funzione "se" è impostata se il valore del discriminante è maggiore o uguale a zero, il che significa che l'equazione ha una o due radici. Quindi risolvi x. Se il discriminante è inferiore a zero, l'equazione non ha radici reali e la parte "else" viene eseguita, mostrando le equazioni di radice complesse.