Πώς να Program Quadratic Εξισώσεις σε Visual Basic

A τετραγωνική εξίσωση είναι ένα πολυώνυμο δευτέρου βαθμού που έχει τη μορφή " ax ^ 2 + bx + c = 0 . " Το "a ", " b" και " c" είναι οι σταθερές και "Χ" είναι η μεταβλητή . Όταν θα λύσει μια τετραγωνική εξίσωση , θα πρέπει να έχετε τις τιμές των σταθερών και λύσουμε ως προς x , το οποίο αποδίδει πάντα δύο τιμές , που ονομάζεται «ρίζες ». Στη Visual Basic , μπορείτε να γράψετε ένα πρόγραμμα ή μια λειτουργία που προτρέπει το χρήστη να εισάγετε τις τιμές a , b και c, βρείτε τις ρίζες και στη συνέχεια να εμφανίσετε τις τιμές στη φόρμα . Οδηγίες
Η

1 Ανοίξτε ένα νέο πρόγραμμα της Visual Basic . Κάντε διπλό κλικ στο " κουμπί" εργαλείο Button1 για να προσθέσετε στη φόρμα . Κάντε διπλό κλικ στο " Ετικέτα " εργαλείο φορές Label1 και Label2 να προσθέσετε στη φόρμα . 2

διπλό κλικ στο " Button1 " στη φόρμα για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε τον ακόλουθο κώδικα :

Dim ένα ως δεκαδικά = InputBox ( " Πληκτρολογήστε A : " )

Dim b ως δεκαδικά = InputBox ( " Πληκτρολογήστε Β : " )

Dim γ ως δεκαδικά = InputBox ( " Πληκτρολογήστε C : " )

Τετραγωνικού ( a, b, c )

Οι τρεις πρώτες γραμμές ζητήσει από το χρήστη για τις τιμές των σταθερών . Καλεί στη συνέχεια μια υπο ονομάζεται " Τετραγωνικού » και περνά τις σταθερές ως επιχειρήματα για να το .
Εικόνων 3

Τοποθετήστε το δρομέα έξω από το υπο Button1 . Πληκτρολογήστε τον ακόλουθο κώδικα :

Private Sub Τετραγωνικού ( ByVal ένα ως δεκαδικά , ByVal b ως δεκαδικά , ByVal c ως δεκαδικά )

Dim ρίζες ( 1 ) Όπως String Dim

x1 , x2 , δίσκος ως δεκαδικά

δίσκο = β ^ 2-4 * a * c

η πρώτη γραμμή δημιουργεί την τετραγωνική sub και δέχεται τρία επιχειρήματα . Στη συνέχεια, ορίζει έναν πίνακα με δύο στοιχεία για τις δύο ρίζες . Στη συνέχεια, δημιουργεί τρία δεκαδικά μεταβλητές και αναθέτει την τιμή της διακρίνουσας , η οποία καθορίζει τον αριθμό των ριζών της εξίσωσης έχει
Η

4 Πληκτρολογήστε τον ακόλουθο κώδικα : .

Αν ο δίσκος > = 0 τότε

x1 = ( - b + Math.sqrt (δίσκος ) ) /( 2 * α)

x2 = ( -b - Math.sqrt (δίσκος ) ) /( 2 * α)

ρίζες ( 0 ) = x1.ToString

ρίζες ( 1 ) = x2.ToString

Else

ρίζες ( 0 ) = " ( - " & b.ToString & " + Sqrt ( " & disc.ToString & " ) ) /( 2 * " & a.ToString & " ) "

ρίζες ( 1 ) = " ( - " & b.ToString & " - Sqrt ( " & disc.ToString & " ) ) /( 2 * " & a.ToString & " ) "

End If

Τα "αν" οι έλεγχοι λειτουργίας για να δούμε εάν η τιμή της διακρίνουσας είναι μεγαλύτερη από ή ίση με το μηδέν , πράγμα που σημαίνει ότι η εξίσωση έχει μία ή δύο ρίζες. Στη συνέχεια, λύνει για x . Αν η διακρίνουσα είναι μικρότερη του μηδενός , η εξίσωση δεν έχει πραγματικές ρίζες και το « άλλο» τμήμα εκτελεί , η οποία εμφανίζει τις σύνθετες ρίζες εξισώσεων
5

Πληκτρολογήστε τον ακόλουθο κώδικα : .

Label1.Text = ρίζες ( 0 )

Label2.Text = ρίζες ( 1 )

End Sub

Αυτές οι γραμμές κώδικα απλά εμφανίζουν τις ρίζες στις ετικέτες και στη συνέχεια κλείστε το μπλοκ κώδικα του Τετραγωνικού υποβρυχίου .
Η 6

Αποθηκεύστε το πρόγραμμα της Visual Basic . Πατήστε το πλήκτρο " F5 " για να το τρέξει .
Η
εικόνων