MacroFacili: Vettori statici

I vettori sono semplicemente delle sequenze di variabili tutti dello stesso tipo con un ordine preciso, è possibile accedere al singolo valore attraverso il suo indice.

A differenza dai vettori dinamici la dimensione non può variare dopo la dichiarazione e gli elementi devono essere assegnati singolarmente.

Azione	Come fare
Dichiarazione	Dim Vettore(Da_Indice To A_Indice) As TipoDato
Dichiarazione	Dim Vettore(NrElementi) As TipoDato
Accedere all'elemento	Vettore(i)
Prima e ultimo indice del vettore	LBound(Vettore) - Ubound(Vettore)
Numero di elementi	NrElementi = LBound(Vettore) - Ubound(Vettore) + 1
Azzera (o mette un stringa vuota)	Erase Vettore
Convertire in stringa	Stringa = Join(Vettore, ":")

Ad esempio l'istruzione qui sotto definisce un vettore di 5 elementi di testo:

Dim Nome(1 to 5) As String

per leggere o scrivere l'iesimo elemento scriveremo:

xxx = Nome(indice) o Nome(indice) = xxx

Avendo ad esempio un vettore con il punteggio di 5 squadre da azzerare possiamo utilizzare un ciclo For:

Dim Punteggi(1 To 5) As Integer
For I = 1 to 5
Punteggi(I) = 0
Next I

Una soluzione più elegante (e comoda) per scorrere tutti gli elementi di un vettore è utilizzare le funzioni
LBound e UBound:

For I = LBound(Punteggi) To UBound(Punteggi)
Punteggi(I) = 0
Next I

Oppure utilizzando la sintassi For Each

For Each Punteggio In Punteggi
Punteggio = 0
Next

Un esempio di definizione e assegnazione dei valori ad un vettore

Dim Frutti(1 To 3) As String
Frutti(1) = "Arancia"
Frutti(2) = "Mela"
Frutti(3) = "Banana"

Non esiste una funzione per calcolare il numero di elementi di un vettore, ma si possono usare la funzioni LBound e UBound in questo modo:

Dim = UBound(Frutti) - LBound(Frutti) + 1

Matrici

Una matrice non è altro che un vettore con un numero di dimensioni maggiore di 1: per creare una matrice (un vettore di vettori) la sintassi è questa:

Dim Nome_Matrice(Da_Indice1 To A_Indice1 ,
Da_Indice2 To A_Indice2) As Tipo_Dato