Come programmare equazioni quadratiche in Visual Basic

Un'equazione quadratica è un polinomio di secondo grado che ha la forma "ax^2 + bx + c =0". "a", "b" e "c" sono le costanti e "x" è la variabile. Quando risolvi un'equazione quadratica, devi avere i valori delle costanti e risolvere per x, che produce sempre due valori, chiamati "radici". In Visual Basic, puoi scrivere un programma o una funzione che richiede all'utente di inserire i valori a, b e c, trovare le radici e quindi visualizzare i valori nel modulo.

Passaggio 1

Aprire un nuovo programma Visual Basic. Fare doppio clic sullo strumento "Pulsante" per aggiungere Button1 al modulo. Fare doppio clic sullo strumento "Etichetta" due volte per aggiungere Etichetta1 e Etichetta2 al modulo.

Passaggio 2

Fare doppio clic su "Pulsante1" nel modulo per aprire la finestra del codice. Digita 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 richiedono all'utente i valori delle costanti. Quindi chiama un sub chiamato "Quadratic" e gli passa le costanti come argomenti.

Passaggio 3

Inserire il cursore al di fuori del sub Button1. Digita il seguente codice:

Private Sub Quadratic(ByVal a As Decimal, ByVal b As Decimal, ByVal c As Decimal) Radici tenui(1) As String Dim x1, x2, disc As Decimal disc =b ^ 2 - 4 * a * c

La prima riga crea il sub quadratico e accetta tre argomenti. Quindi definisce un array con due elementi per le due radici. Quindi crea tre variabili decimali e assegna il valore del discriminante, che determina il numero di radici dell'equazione quadratica.

Passaggio 4

Digita il seguente codice:

Se disco>=0 Allora x1 =(-b + Math.Sqrt(disc)) / (2 * a) x2 =(-b - Math.Sqrt(disc)) / (2 * a) roots(0) =x1 .ToString radici(1) =x2.ToString Else radici(0) ="(-" &b.ToString &"+Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" radici(1) ="(-" &b.ToString &"-Sqrt(" &disc.ToString &"))/(2_" &a.ToString &")" End If

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

Passaggio 5

Digita il seguente codice:

Label1.Text =radici(0) Label2.Text =radici(1) End Sub

Queste righe di codice visualizzano semplicemente le radici sulle etichette e quindi chiudono il blocco di codice del sub quadratico.

Passaggio 6

Salva il programma Visual Basic. Premi "F5" per eseguirlo.