Ripetere le azioni con i cicli

Nei programmi spesso è necessario svolgere molte volte una determinata azione, variando solamente alcuni parametri. I comandi descritti in questa sezione eseguono ripetutamente le stesse istruzioni, finché non si verifica una determinata condizione.

Il ciclo "For.. Next" esegue ripetutamente un blocco di codice incrementando (o decrementando) una variabile specifica, finche l'indice non raggiunge il valore indicato dall'attributo "To". Esempio:

	Sub CicloFor()
    	   For i = 1 To 10
        	MsgBox "Il valore incremento è " & i, _ 
		vbInformation, "Ciclo For"
    	   Next
	End Sub

Ora prova a sostituire la riga

"For i = 1 To 10"

con

"For i = 10 To 1 step -1"

Il ciclo "Do… loop" continua ad eseguire il codice fino a quando non è soddisfatta una condizione. Se non viene specificata una condizione d’interruzione, o se la condizione non è impostata in modo non corretto, il ciclo continua all’infinito.

Esistono tre tipologie di ciclo "Do":

Ripeti finchè la condizione non risulta falsa (cicla per falso).

	Sub CicloDo()
    	   i = 1
    	   Do
        	MsgBox "Il valore incremento è " & i, _ 
		vbInformation, "Ciclo For"
        	i = i + 1
    	   Loop Until i > 10
	End Sub

Ripeti finchè la condizione non risulta vera (cicla per vero).

	Sub CicloDo()
	    i = 1
	    Do While i < 10
	        MsgBox "Il valore incremento è " & i, _ 
		vbInformation, "Ciclo For"
	        i = i + 1
	    Loop
	End Sub

Uscita anticipata dal ciclo:

	Sub CicloDo()
	    i = 1
	    Do
	        MsgBox "Il valore incremento è " & i, _ 
		vbInformation, "Ciclo For"
	        i = i + 1
	        If i > 10 Then Exit Do
	    Loop
	End Sub