Come programmare equazioni di secondo grado in Visual Basic

Una equazione di secondo grado è un polinomio di secondo grado che ha la forma " . Ax ^ 2 + bx + c = 0 " La "a ", "b" e "c" sono le costanti e " x " è la variabile . Quando si risolve un'equazione di secondo grado , è necessario che i valori delle costanti e risolvere per x , che produce sempre due valori , chiamati le "radici ". In Visual Basic, è possibile scrivere un programma o una funzione che richiede all'utente di immettere i valori di a, b ​​e c , trovare le radici e quindi visualizzare i valori nel modulo. Istruzioni
1

Aprire un nuovo programma di Visual Basic . Fare doppio clic sulla funzione " pulsante " per aggiungere Button1 al form. Fare doppio clic sullo strumento "Etichetta" due volte per aggiungere Label1 e Label2 alla forma .

2 Fare doppio clic su " Button1 " sul form per aprire la finestra del codice . Digitare il seguente codice :

Dim A As Decimal = InputBox ( " Immettere un : " ) per

Dim b come decimale = InputBox ( "Inserire B : " ) per

Dim c come decimale = InputBox ( "Inserire C : " ) per

quadratica ( a, b ​​, c ) per

le prime tre righe richiedere all'utente i valori delle costanti . Si chiama quindi un sub chiamata " quadratica " e passa le costanti come argomenti ad esso .
3

Inserire il cursore al di fuori dei Button1 sub . Digitare il seguente codice : Private Sub

quadratica ( ByVal una come decimale , b ByVal come decimale , ByVal c come decimale ) per

radici Dim ( 1 ) As String Dim

x1 , x2 , disco come decimale disco

= b ^ 2 - 4 * a * c

La prima riga crea i sub quadratiche e accetta tre argomenti . Viene quindi definito un array con due elementi per le due radici . Si crea quindi tre variabili decimali e assegna il valore del discriminante , che determina il numero di radici dell'equazione quadratica ha
4

digitare il seguente codice : .

Disco > = 0 Then

x1 = ( - b + Math.Sqrt (disco) ) /( 2 * a ) per

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

il "se " assegni di funzione per vedere se il valore del discriminante è maggiore o uguale a zero , il che significa l'equazione ha uno o due radici. E poi risolve per x . Se il discriminante è minore di zero , l'equazione non ha radici reali e la parte "else" esegue , che visualizza le radici complesse equazioni
5

digitare il seguente codice : .

Label1.Text = radici ( 0 ) per

Label2.Text = roots ( 1 ) per

End Sub

Queste righe di codice semplicemente visualizzare le radici sulle etichette e chiudere blocco di codice del quadratica del sub .
6

Salvare il programma Visual Basic . Premere il tasto " F5 " per eseguirla.

• Come accedere alla FlexGrid in VB6 
• Come query in VB Script