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 chieda all'utente di inserire i valori a, b e c, trovare le radici e quindi visualizzare i valori sul modulo.
Passo 1
Apri un nuovo programma Visual Basic. Fare doppio clic sullo strumento "Button" per aggiungere Button1 al form. Fare doppio clic sullo strumento "Etichetta" due volte per aggiungere Label1 ed Label2 al form.
Video del giorno
Passo 2
Fare doppio clic su "Button1" 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
Inserisci 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) 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 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 (disco)) / (2 * a) x2 = (-b - Math. Sqrt (disco)) / (2 * a) radici (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 "if" verifica se il valore del discriminante è maggiore o uguale a zero, il che significa che l'equazione ha una o due radici. Quindi risolve per x. Se il discriminante è minore di zero, l'equazione non ha radici reali e viene eseguita la parte "else", che visualizza 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 Quadratic.
Passaggio 6
Salva il programma Visual Basic. Premi "F5" per eseguirlo.
