Πώς μπορείτε να διαπιστώσετε αν ένα σημείο Διατίθεται σε VB Array

Όταν ασχολούμαστε με πίνακες στη Visual Basic ( VB ), είναι σημαντικό να καταλάβουμε πώς να αναζητήσετε τον πίνακα για να βρείτε συγκεκριμένα σημεία. Ένας πίνακας είναι μια λίστα διέταξε αντικείμενα , όπως χορδές ή ακέραιοι . Ένας πίνακας μπορεί να αποθηκεύσει τις τιμές , όπως τα ονόματα των εργαζομένων » , μια λίστα με τους αριθμούς ή ακόμα και προτάσεις από ένα βιβλίο . Η εύρεση ενός στοιχείου σε έναν πίνακα περιλαμβάνει τη δημιουργία ενός βρόχου για να μετακινηθείτε μέσα από τα στοιχεία της σειράς και μια επιταγή σύγκρισης για να δείτε εάν το στοιχείο ταιριάζει με αυτό που ψάχνετε . Οδηγίες
Η

1 Ανοίξτε το αρχείο προέλευσης VB σας σε ένα πρόγραμμα επεξεργασίας όπως το Microsoft Visual Basic . 2

να αναγνωρίσει μια σειρά από έγχορδα και προετοιμαστεί με αξίες , προσθέτοντας τον παρακάτω κώδικα σε λειτουργία σας :

Δημ. myArray ( ) As String = { " πράσινο " , "μπλε" , " κίτρινο "}

Εναλλακτικά , μπορείτε να δημιουργήσετε έναν πίνακα ακεραίων με τον κώδικα :

Δημ. myArray ( ) As Integer = { 11 , 24 , 12 }
εικόνων 3

Loop μέσω της συστοιχίας και την αναζήτηση για όλα τα στοιχεία που ταιριάζουν με το String που ψάχνετε από την προσθήκη του κώδικα :

Dim searchItem As String = " blue "

δείκτη Dim ως Long

Για index = LBound ( myArray ) να UBound ( myArray )

Αν ( String.Compare ( myArray ( index ) , searchItem ) = 0 ) τότε

MsgBox ( "Βρέθηκαν : " + + searchItem "στο Ευρετήριο:" + CStr ( index ) )

Επόμενη

το « LBound " και " UBound " λειτουργίες καθορίζουν την αρχή και το τέλος του πίνακα , ώστε να μην χρειάζεται να κώδικα σε αριθμούς που μπορεί να αλλάξει αργότερα . Μέσα από το " για την επόμενη " loop ελέγχει αν κάθε στοιχείο του πίνακα είναι ίση με το στοιχείο της αναζήτησης , και αν ναι, εμφανίζει ένα πλαίσιο μηνύματος που δείχνει ευρετήριο πίνακα έχει την τιμή . Η λειτουργία " CStr " μετατρέπει έναν αριθμό σε String για την εμφάνιση . Χρησιμοποιώντας το παράδειγμα , ένα μήνυμα θα εμφανιστεί παρουσιάζοντας "Βρέθηκαν : μπλε στο Index : 1." Εναλλακτικά , μπορείτε να αναζητήσετε μια σειρά ακεραίων με τον κωδικό :

Δημ. searchItem ως Integer = 12

Dim δείκτη ως Long

Για index = LBound ( myArray ) να UBound ( myArray )

Αν ( myArray ( index ) = searchItem ) στη συνέχεια

MsgBox ( "Βρέθηκαν : " + Cstr ( searchItem ) + "στο Ευρετήριο:" + CStr ( index ) )

Next
Η

4 Αποθηκεύστε το αρχείο VB , να συγκεντρώνουν και να εκτελέσετε το πρόγραμμα για να αναζητήσετε τον πίνακα για στοιχεία που να ταιριάζουν .
Η
εικόνων