Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

Πώς να βρείτε τη μέγιστη αξία σε ένα Array σε Visual Basic

Οι πίνακες είναι μεταβλητές που χρησιμοποιούνται στον προγραμματισμό για να κρατήσει μια λίστα με τους αριθμούς ή χαρακτήρες . Η εύρεση της μέγιστης τιμής αριθμό σε μια σειρά απαιτεί από εσάς να βρόχο μέσα σε κάθε τιμή . Αυτό χρησιμοποιείται επίσης σε μια μέθοδο που ονομάζεται « διαλογή φούσκα », που σημαίνει ότι κάθε αξία συγκρίνεται και καταγράφεται ως αύξουσα σειρά . Μπορείτε να χρησιμοποιήσετε ένα είδος φούσκα για να βρείτε τη μέγιστη τιμή για έναν πίνακα στη Visual Basic . Οδηγίες
Η 1

προετοιμαστεί τις μεταβλητές που απαιτούνται . Υπάρχουν τρεις μεταβλητές που απαιτούνται για να βρόχο μέσω του πίνακα για να βρείτε την υψηλότερη τιμή : ο πίνακας που περιέχει τις τιμές , μια προσωρινή μεταβλητή να βρόχο μέσα σε κάθε τιμή πίνακα και μια μεταβλητή για να κρατήσει την υψηλότερη τιμή . Αυτές οι μεταβλητές αρχικοποιούνται χρησιμοποιώντας τον ακόλουθο κώδικα :

Δημ. myArray ( 2 ), όπως IntegerDim i ως IntegerDim maxValue ως IntegermyArray ( 0 ) = 1myArray ( 1 ) = 2myArray ( 2 ) = 3

Ανακοίνωση η συστοιχία αρχικοποιείται με αριθμούς, 1 , 2 και 3. Αφού ο κώδικας τελειώσει την εκτέλεση , η μέγιστη τιμή που εμφανίζεται είναι 3 . 2

Αποκτήστε την πρώτη τιμή του πίνακα και να το θέσει στην μεταβλητή maxValue . Η μεταβλητή αυτή χρησιμοποιείται για να συγκρίνουμε κάθε τιμή του πίνακα. Εάν η επόμενη τιμή στη λίστα συστοιχία είναι υψηλότερη από την τρέχουσα τιμή , τότε maxValue κατέχει το μέγιστο αριθμό. Ο κώδικας είναι παρακάτω:

maxValue = myArray ( 0 )
εικόνων 3

Loop μέσα σε κάθε τιμή του πίνακα για να βρείτε τη μέγιστη τιμή . Ο κώδικας είναι παρακάτω:

Για i = 0 Για να myArray.GetUpperBound ( ) - 1Αν maxValue Η 4

Εκτυπώστε το οδηγεί στο παράθυρο εντοπισμού σφαλμάτων. Αυτό χρησιμοποιείται για τη δοκιμή σύνταξη κώδικα σας και τη λογική για τυχόν λάθη . Τα παρακάτω κώδικα εκτυπώνει " 3 " μετά την βρόχος έχει τελειώσει :

Εκτύπωση maxValue
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα