Πώς να Προσπελαύνετε έναν πίνακα σε Visual Basic

Ένας πίνακας είναι μια συλλογή από αντικείμενα ή μεταβλητές αποθηκεύονται σε μια ακολουθία . Μερικές φορές θα πρέπει να διασχίσει μια σειρά για να ολοκληρωθεί μια εργασία , όπως η διαλογή του πίνακα ή την αναζήτηση για μια συγκεκριμένη λέξη-κλειδί . Στη Visual Basic , μπορείτε να διασχίσει μια σειρά ένα στοιχείο κάθε φορά, χρησιμοποιώντας μια μεταβλητή δείκτη , ή να διασχίσει ολόκληρο τον πίνακα, χρησιμοποιώντας ένα βρόχο . Επειδή Visual Basic χρησιμοποιεί το μηδέν - indexing , θα πρέπει να το λάβουν αυτό υπόψη όταν διέρχονται από το πίνακα για να αποφευχθεί ένα μήνυμα λάθους δείκτη όρια . Οδηγίες
Η

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

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

Dim στοιχεία ( ) As String = Νέα String ( 4 ) { " πρώτο " , " δεύτερο " , " τρίτη " , " τέταρτο " , " πέμπτη "}

Dim arrayIndex As Integer = 0

Η πρώτη γραμμή δηλώνει έναν πίνακα με πέντε στοιχεία - με τους δείκτες μηδέν έως το τέσσερα - και προετοιμάζει τους . Το δεύτερο δηλώνει ένα μετρητή δείκτη που θα χρησιμοποιήσετε με τη σειρά εικόνων
3

Ανοίξτε το " Form1_Load " sub και πληκτρολογήστε την ακόλουθη γραμμή : .

Label1.Text = στοιχεία ( arrayIndex )

Αυτό εμφανίζει το πρώτο στοιχείο του πίνακα για τον έλεγχο ετικέτα
Η

4 Ανοίξτε το " Button1_Click " sub και εισάγετε τα ακόλουθα : .

Εάν arrayIndex = items.Length - 1 τότε

arrayIndex = 0

Label1.Text = στοιχεία ( arrayIndex )

υπόλοιπα

arrayIndex + = 1

Label1.Text = στοιχεία ( arrayIndex )

End If

Αυτή η λειτουργία διασχίζει μια σειρά ένα στοιχείο κάθε φορά . Κατά τη διάρκεια της εκτέλεσης , όταν κάνετε κλικ σε αυτό το κουμπί , η ετικέτα εμφανίζει το επόμενο στοιχείο του πίνακα . Αν ο δείκτης είναι στο τελευταίο στοιχείο , πηγαίνει πίσω στην αρχή του πίνακα και εμφανίζει το πρώτο στοιχείο
5

Ανοίξτε το " Button2_Click " sub και εισάγετε τα ακόλουθα : .

για i = 0 Για να items.Length - 1

MsgBox ( τα στοιχεία (i ) )

Επόμενο

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