ciclo for next

Rem iterazione con ciclo for.next e inizio,fine,passo da inserire
Rem iterazione con ciclo for.next con parametri prefissati

Private Sub CommandButton1_Click()
Rem iterazione con ciclo for.next
Dim somma, inizio, fine, passo, riga As Integer
inizio = TextBox1.Value
fine = TextBox2.Value
passo = TextBox3.Value
somma = 0
riga = 1
For k = inizio To fine Step passo
somma = somma + 1
Cells(riga, 1) = somma
riga = riga + 1
Next k
Cells(1, 2) = somma
End Sub

Private Sub CommandButton2_Click()
Rem cancella
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
For k = 1 To 100
Cells(k, 1) = ""
Next k
For k = 5 To 10
Cells(k, 2) = ""
Next k
Cells(1, 2) = ""
End Sub

Private Sub CommandButton3_Click()
Rem ciclo prefissato
riga = 5
For a = 1 To 5
prodotto = a * 10
Cells(riga, 2) = prodotto
riga = riga + 1
Next a
End Sub

indice