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 trueora 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

 

---