Avviare Excel , aprire un nuovo foglio di calcolo , e tenere premuto "Alt" e " F11 " per inserire l'editor di Visual Basic. Selezionare "Inserisci" e "Modulo " e fare clic nel nuovo modulo per avviare la copia del codice .
2
Digitare il seguente codice .
Sub TestArray ( ) ' I commenti iniziano con citazione sign'Activate foglio di lavoro e vai a A1Worksheets cellulari ( " Foglio1 " ) ActivateApplication.Goto . Riferimento: . = Worksheets ( " Foglio1 " ) Range ("A1 " ) Setup
' una matrice a 2 dimensioni con 5 posti nella prima dimensione e 5 posti in secondo dimensionDim Vis (da 1 a 5 , da 1 a 5) As Integer
' Inizia ciclo esterno in structureFor ciclo nidificato i = 1 To 5
' start ciclo interno in structureFor ciclo nidificato a = 1 Per 5'Store un valore in array ( per questo esempio, il programma semplicemente conteggi e negozi ) Vis (I , a) = ( I * 5) + a - 5'Put il valore della matrice nella vostra foglio di calcolo in modo da poter vedere itActiveCell.Value = Vis (I , a) 'Sposta in basso di una cella sul tuo spreadsheetActiveCell.Offset ( rowOffset : = 1 , columnOffset : = 0 ) . Activate'end di interiore loopNext aActiveCell.Offset ( rowOffset : = -5 , columnOffset : . = 1) Activate'end di esterno loopNext iend Sub
3
noti che è stata definita una matrice a 2 dimensioni nella dichiarazione, " Dim Vis ( 1 a 5 , da 1 a 5) come numero intero . "
4
noti i cicli annidati creati con due" For ... Next dichiarazioni . "
5
eseguire il programma di clic sul triangolo blu sotto " Run" , e fare clic sul verde "X" in alto a sinistra per tornare al foglio di calcolo e visualizzare l' output del programma . Rivedere il foglio di calcolo e capire che una matrice a 2 dimensioni che ha una struttura 5x5 dispone di 25 posizioni di memoria . Verificare che il foglio di calcolo simile a questa :
1 6 11 16 212 7 12 17 223 8 13 18 234 9 14 19 245 10 15 20 25
Programmazione © www.354353.com