iterazione Do While Loop

Rem iterazione e controllo Do while..loop
vedi formato6.xls

Private Sub CommandButton1_Click()
Rem controllo Do while..loop
Rem esegue istruzione fino a quando
Rem contatore < di limite assegnato
limite = 10
riga = 1
contatore = 1
Do While contatore < limite
Cells(riga, 1) = 10 * contatore
riga = riga + 1
contatore = contatore + 1
Loop
End Sub

Private Sub CommandButton3_Click()
Rem inserire limite da tastiera
Dim limite As Integer
limite = TextBox1
riga = 1
contatore = 1
Do While contatore < limite
Cells(riga, 4) = 10 * contatore
riga = riga + 1
contatore = contatore + 1
Loop
End Sub

Private Sub CommandButton2_Click()
Rem cancellare
For a = 1 To 10
Cells(a, 1) = ""
Next a
For a = 1 To 100
Cells(a, 4) = ""
Next a
TextBox1 = ""
End Sub

indice