Capire come funzionano i loop in Visual Basic 6 ( VB6 ) è importante perché permette di eseguire blocchi di codice più volte . I due principali tipi di loop sono "per" e loops "fare" . Un ciclo "per" è una versione abbreviata di un ciclo " do" che viene utilizzato quando il numero di iterazioni è noto in anticipo . Alcuni usi di un loop stanno leggendo in righe da un file , nome di stampa di tutti da un elenco di dipendenti e di smistamento attraverso un array in cerca di un valore specifico . Istruzioni
1

Aprire il file di codice sorgente in Visual Basic 6
2

Aggiungere un ciclo "for ", digitando il seguente codice nella funzione : .

Dim x As Integer

Dim count As Integer

x = 0

count = 1 To 6 Fase 2

x = x + 2

Successivo

un loop " per" consiste in un contatore , il range del contatore , un passo ed i comandi da eseguire durante ogni iterazione . L'argomento " passo " definisce quanto il contatore aumenta tra le iterazioni . Se si omette la parola chiave "passo" è impostato sul valore predefinito 1 . Nell'esempio , durante la prima iterazione , "conto" è uguale a 1 e " X" è impostato a 2 ( 0 +2 ) . . Nella seconda iterazione "count" è impostato a 3 e "X" è impostato su 4 ( 2 +2 ) per

Se vuoi per scorrere un elenco , invece , aggiungere il seguente codice :

Dim MyColors ( 2) as String

colore fioco come stringa

MyColors ( 0 ) = " Blue"

MyColors ( 1 ) =
" verde "

MyColors ( 2) = "Giallo"

Per ogni colore MyColors

Debug.Print colore

Avanti

Il ciclo si ripete per ogni valore nell'elenco , che è tipicamente una matrice o di raccolta . La variabile , "colore ", l'iterazione deve essere dello stesso tipo degli elementi nella lista
3

Aggiungi un ciclo "do" , digitando il seguente codice: .

Dim x as Integer

x = 0

Do While x < 10

x = x + 2

loop

il ciclo continua iterazione mentre la condizione dopo la parola chiave "fare" è soddisfatta. La condizione viene verificata all'inizio prima di ogni nuova iterazione . In alternativa, è possibile impostare per eseguire l'iterazione fino a quando una condizione è soddisfatta aggiungendo il seguente codice :

Do

X = X ​​+ 2

Loop Until X > 10

un "loop fino a quando" la struttura la condizione viene verificata dopo la fine di ogni iterazione . Se si vuole uscire dal ciclo prima che la condizione è soddisfatta , aggiungere " Exit Do " all'interno del ciclo.
4

Salvare il file VB6 , compilare ed eseguire il programma per visualizzare il vostro ciclo.

• Come determinare se un foglio di lavoro esistente utilizzando Excel.Application 
• Come salvare un valore ListBox in VBA