loop1

esercitazione per descrivere funzionamento della iterazione con
do while...loop
le istruzioni vengono eseguite finchè il valore del contatore rimane inferiore
al limite assegnato oppure finchè diventa uguale al limite
esempio con contatore incrementato di una unità per ogni iterazione k=k+1
esempio:con contatore <= limite (5) vengono eseguite 5 istruzioni
esempio:con contatore < limite (5) vengono eseguite 4 istruzioni

 

Private Sub CommandButton1_Click()
Rem inserire in variabile n il numero elementi da gestire
Const linea = "-------"
Dim k, n As Integer
n = TextBox1.Text
Rem inizializzare contatore k
k = 1
Rem eseguire istruzione fino a quando k diventa uguale a n
Rem esempio con n=5 :esegue 5 volte la istruzione

Do While k <= n
ListBox1.AddItem (k & " esegue k*5 = " & k * 5)
k = k + 1
Loop
ListBox1.AddItem (linea)
End Sub

Private Sub CommandButton2_Click()
Rem inserire in variabile n il numero elementi da gestire
Const linea = "-------"
Dim k, n As Integer
n = TextBox1.Text
Rem inizializzare contatore k
k = 1
Rem eseguire istruzione fino a quando k rimane minore di n
Rem esempio con n=5 :esegue 4 volte la istruzione

Do While k < n
ListBox2.AddItem (k & " esegue k*5 = " & k * 5)
k = k + 1
Loop
ListBox2.AddItem (linea)
End Sub

vedi loop1.ppt