esevba5

iterazione con For Next

vedi esevba5.xls

Private Sub CommandButton1_Click()
'esevba5
'ciclo for next
Dim a, b, c, k As Integer
a = 10
b = 20
c = 30
For k = 1 To 5
Cells(k, 1) = a + k
Cells(k, 2) = a * k
Next k
For k = 1 To 5
Cells(k, 3) = b + k
Next k
For k = 1 To 5
Cells(k, 4) = c + 10
c = c + 1
Next k

End Sub