Πώς να οικοδομήσουμε μια Υπολογιστών Πίνακας

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

Ξεκινήστε το Excel , ανοίξτε ένα νέο υπολογιστικό φύλλο , και κρατήστε πατημένο το "Alt " και " F11 " για να εισάγετε το Visual Basic Editor. Επιλέξτε "Εισαγωγή " και " ενότητα " και κάντε κλικ στη νέα ενότητα για να ξεκινήσει η αντιγραφή κώδικα . 2

Πληκτρολογήστε τον παρακάτω κωδικό .

Sub TestArray ( ) « Σχόλια ξεκινήσει με παράθεση αυτού του μηνύματος sign'Activate φύλλο εργασίας και να πάει σε A1Worksheets κυττάρων ( " Φύλλο1 " ) ActivateApplication.Goto αναφοράς : . . = Φύλλα εργασίας ( " Sheet1" ) Range ( "A1" )

« Ρύθμιση ένα 2 - διαστάσεων που έχει 5 θέσεις στην πρώτη διάσταση και 5 θέσεις στη δεύτερη dimensionDim Vis ( 1 έως 5 , 1 έως 5 ) As Integer

'loop Έναρξη Outer σε ένθετα βρόχο structureFor i = 1 έως 5

' Έναρξη εσωτερικό βρόχο σε ένθετα βρόχο structureFor a = 1 Για να 5'Store μια τιμή σε array ( Για αυτό το παράδειγμα , το πρόγραμμα απλά μετράει και αποθηκεύει ) Vis (Ι , α) = ( I * 5 ) + α - 5'Put την αξία πίνακα σε σας υπολογιστικό φύλλο ώστε να μπορείτε να δείτε itActiveCell.Value = Vis (Ι , α) « Μετακίνηση προς τα κάτω κατά ένα κελί για spreadsheetActiveCell.Offset σας ( rowOffset : = 1 , columnOffset : = 0 ) . Activate'end του εσωτερικού loopNext aActiveCell.Offset ( rowOffset : = -5 , columnOffset : . = 1 ) Activate'end του εξωτερικού loopNext IEnd Sub
εικόνων 3

Σημειώστε ότι έχετε ορίσει ένα 2 - διαστάσεων πίνακα με την ανακοίνωση, "Dim Vis ( 1 Προς 5 , 1 έως 5 ) As Integer . "
Η 4

Σημειώστε τα ένθετα βρόχους που δημιουργούνται με δύο " For ... Next καταστάσεις. "
5

Εκτελέστε το πρόγραμμα κλικ στο μπλε τρίγωνο στο " Run" , και κάντε κλικ στο πράσινο "X" στην πάνω αριστερή για να επιστρέψετε στο φύλλο και να δείτε την έξοδο του προγράμματος . Εξετάστε το υπολογιστικό φύλλο και να κατανοήσουν ότι μια 2 - διαστάσεων πίνακα που διαθέτει δομή 5x5 έχει 25 θέσεις αποθήκευσης . Επιβεβαιώστε ότι το φύλλο σας φαίνεται κάτι σαν αυτό :

1 6 11 16 212 7 12 17 223 8 13 18 234 9 14 19 245 10 15 20 25

Η