I cicli iterativi.

 I cicli che analizzeremo sono il ciclo for…next e il ciclo do..loop
per farlo dobbiamo avere bene in mente il concetto di vettore (array)
L' array è un nuovo tipo di variabile, che associa ad un indice (un numero intero) un valore, che può essere anche una stringa. Ma procediamo con un esempio. Supponiamo di associare un identificativo ad un nome in una tabella:

                            

Identificativo Valore
1 Umberto
2 Marco
3 Lucia
4 Donatella
Vogliamo scorrere tutti i dati di questa tabella e visualizzarne il contenuto in un campo di testo.
Allora definiamo l'array:
Dim tabella(1 To 4) As String 
(questo nella nella sezione generale della form in dichiarazioni) 

riempiamo ora l'array nell'evento load del form (questo evento si verifica quando lanciamo il programma)
Private Sub Form_Load()
tabella(1) = "umberto"
tabella(2) = "marco"
tabella(3) = "lucia"
tabella(4) = "donatella"

End Sub
nel bottoncino (evento click) mettiamo il seguente codice:
For i = 1 To 4
Text1.Text = Text1.Text & tabella(i) & vbCrLf
Next i
 il valore "i"  viene incrementato ogni volta fino al valore 4 ; il carattere vbCrLf è stato aggiunto per andare a capo; le propietà di text1 multiline è stata impostata a true

ora facciamo la stessa cosa col ciclo do .. loop

la sua sintassi è questa:

do
<istruzione1>

loop until <condizione>


L'istruzione viene ripetuta finchè non è verificata la condizione
Attenzione a non creare dei cicli infiniti; ciò succede perché la condizione non viene mai verificata  ;ma torniamo al nostro esempio 
Dim i
i = 1
Do
Text1.Text = Text1.Text & tabella(i) & vbCrLf
i = i + 1
Loop Until i = 5
Scarica l'esempio array.zip

Torna all' indice