Μια τετραγωνική εξίσωση είναι ένα πολυώνυμο δεύτερου βαθμού που έχει τη μορφή "ax^2 + bx + c = 0." Τα "a", "b" και "c" είναι οι σταθερές και το "x" είναι η μεταβλητή. Όταν λύνετε μια τετραγωνική εξίσωση, πρέπει να έχετε τις τιμές των σταθερών και να λύσετε για το x, το οποίο δίνει πάντα δύο τιμές, που ονομάζονται "ρίζες". Σε Visual Basic, μπορείτε να γράψετε ένα πρόγραμμα ή μια συνάρτηση που ζητά από τον χρήστη να εισαγάγει τις τιμές a, b και c, να βρει τις ρίζες και στη συνέχεια να εμφανίσει τις τιμές στο μορφή.
Βήμα 1
Ανοίξτε ένα νέο πρόγραμμα της Visual Basic. Κάντε διπλό κλικ στο εργαλείο "Button" για να προσθέσετε το Button1 στη φόρμα. Κάντε διπλό κλικ στο εργαλείο "Ετικέτα" δύο φορές για να προσθέσετε Ετικέτες1 και Ετικέτες2 στη φόρμα.
Το βίντεο της ημέρας
Βήμα 2
Κάντε διπλό κλικ στο "Button1" στη φόρμα για να ανοίξετε το παράθυρο κώδικα. Πληκτρολογήστε τον ακόλουθο κωδικό:
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)
Οι τρεις πρώτες γραμμές ζητούν από τον χρήστη τις τιμές των σταθερών. Στη συνέχεια καλεί ένα δευτερεύον που ονομάζεται "Quadratic" και του μεταβιβάζει τις σταθερές ως ορίσματα.
Βήμα 3
Εισαγάγετε τον κέρσορα έξω από το δευτερεύον κουμπί Button1. Πληκτρολογήστε τον ακόλουθο κωδικό:
Private Sub Quadratic (ByVal a As Decimal, ByVal b as Decimal, ByVal c as Decimal) Dim ρίζες (1) Ως String Dim x1, x2, disc As Decimal disc = b ^ 2 - 4 * a * c
Η πρώτη γραμμή δημιουργεί το δευτερεύον τετραγωνικό και δέχεται τρία ορίσματα. Στη συνέχεια ορίζει έναν πίνακα με δύο στοιχεία για τις δύο ρίζες. Στη συνέχεια δημιουργεί τρεις δεκαδικές μεταβλητές και εκχωρεί την τιμή του διαχωριστή, η οποία καθορίζει τον αριθμό των ριζών που έχει η τετραγωνική εξίσωση.
Βήμα 4
Πληκτρολογήστε τον ακόλουθο κωδικό:
Αν δίσκος >= 0 Τότε x1 = (-b + Μαθ. Sqrt (δίσκος)) / (2 * α) x2 = (-b - Μαθ. Sqrt (δίσκος)) / (2 * a) roots (0) = x1.ToString roots (1) = x2.ToString Else roots (0) = "(-" & b. ToString & "+Sqrt(" & δίσκος. ToString & "))/(2_" & a. ToString & ")" ρίζες (1) = "(-" & β. ToString & "-Sqrt(" & δίσκος. ToString & "))/(2_" & a. ToString & ")" Τέλος Εάν
Η συνάρτηση "αν" ελέγχει εάν η τιμή του διαχωριστή είναι μεγαλύτερη ή ίση με μηδέν, πράγμα που σημαίνει ότι η εξίσωση έχει μία ή δύο ρίζες. Στη συνέχεια λύνει το x. Εάν η διάκριση είναι μικρότερη από το μηδέν, η εξίσωση δεν έχει πραγματικές ρίζες και εκτελείται το τμήμα "άλλο", το οποίο εμφανίζει τις εξισώσεις μιγαδικών ριζών.
Βήμα 5
Πληκτρολογήστε τον ακόλουθο κωδικό:
Label1.Text = roots (0) Label2.Text = roots (1) End Sub
Αυτές οι γραμμές κώδικα απλώς εμφανίζουν τις ρίζες στις ετικέτες και στη συνέχεια κλείνουν το μπλοκ κώδικα του τετραγωνικού δευτερεύοντος.
Βήμα 6
Αποθηκεύστε το πρόγραμμα της Visual Basic. Πατήστε "F5" για να το εκτελέσετε.
