descrizione cicli iterativi con VBA
ritorna con variavba.htm

ciclo2.ppt
iterazione con cicli For...Next

Option Explicit

Private Sub CommandButton1_Click()
Dim n, k As Integer
Dim numero(3, 2) As Integer
ListBox1.AddItem ("stampa matrice 3*2 ")
ListBox1.AddItem ("******")
For n = 0 To 3
For k = 0 To 2
numero(n, k) = 10 + n + 5 + k
ListBox1.AddItem (numero(n, k))
Next k
ListBox1.AddItem ("------")
Next n
End Sub

Private Sub CommandButton2_Click()
Dim n, k As Integer
Dim numero(2, 3) As Integer
ListBox2.AddItem ("stampa matrice 2*3 ")
ListBox2.AddItem ("******")
For n = 0 To 2
For k = 0 To 3
numero(n, k) = 10 + n + 5 + k
ListBox2.AddItem (numero(n, k))
Next k
ListBox2.AddItem ("------")
Next n

End Sub

Private Sub CommandButton3_Click()
Dim n, k As Integer
Dim numero(3, 3) As Integer
ListBox3.AddItem ("stampa matrice 3*3 ")
ListBox3.AddItem ("******")
For n = 0 To 3
For k = 0 To 3
numero(n, k) = 10 + n + 5 + k
ListBox3.AddItem (numero(n, k))
Next k
ListBox3.AddItem ("------")
Next n

End Sub

Private Sub UserForm_Click()
End Sub

rem Private Sub UserForm_Scroll(ByVal ActionX As Long, ByVal ActionY As Long, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)

End Sub

ciclo3.ppt
iterazione con cicli For...Next

Option Explicit

Private Sub CommandButton1_Click()
Dim inizio, quanti, passo, n, p As Integer
inizio = TextBox1.Text
quanti = TextBox2.Text
passo = TextBox3.Text
p = inizio
For n = 1 To quanti
stampa.AddItem (p)
p = p + passo
Next n
stampa.AddItem ("---------------")
End Sub


Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub

fornext1.ppt
iterazione semplice con For..Next

Option Explicit

Private Sub CommandButton1_Click()
'iterazione e somma numeri
Dim k, s1 As Integer
s1 = 0
For k = 1 To 15
s1 = s1 + k
ListBox1.AddItem ("k = " & k & " somma = " & s1)
MsgBox ("k = " & k)
Next k
ListBox1.AddItem ("limite iterazione ")
End Sub

Private Sub UserForm_Click()

End Sub

fornext2.ppt
iterazione con For..Next :inizio e limite ciclo assegnabile da utente

Private Sub CommandButton1_Click()
Dim k, inizio, limite, s1 As Integer
s1 = 0
inizio = TextBox1.Text
limite = TextBox2.Text
For k = inizio To limite

s1 = s1 + k
ListBox1.AddItem ("k= " & k & " somma = " & s1)
Next k
ListBox1.AddItem ("limite raggiunto:fine iterazione")
End Sub

Private Sub UserForm_Click()

End Sub

fornext3.ppt
iterazione con ciclo For..Next :da inizio a limite massimo, calcolando numero cicli necessario

Private Sub CommandButton1_Click()
Dim k, inizio, limite, cicli, s1 As Integer

inizio = TextBox1.Text
limite = TextBox2.Text
passo = TextBox3.Text
s1 = inizio
cicli = Int((limite - inizio) / passo)
TextBox4 = cicli
For k = 1 To cicli
s1 = s1 + passo
ListBox1.AddItem ("k= " & k & " somma = " & s1)
Next k
ListBox1.AddItem ("limite raggiunto:fine iterazione")
End Sub

Private Sub UserForm_Click()

End Sub