iterazione con Do Loop Until

Rem controllo con Do Loop Until prefissato
Rem inserire limite da tastiera

vedi formato7.xls

Private Sub CommandButton1_Click()
Rem formato7
Rem controllo con Do Loop Until
limite = 10
n = 1
riga = 1
somma = 0
Do
somma = somma + 1
Cells(riga, 1) = somma
n = n + 1
riga = riga + 1
Loop Until n > limite
End Sub

Private Sub CommandButton3_Click()
Rem inserire limite da tastiera
Rem controllo con Do Loop Until
Dim limite As Integer
limite = TextBox1
n = 1
riga = 1
somma = 0
Do
somma = somma + 1
Cells(riga, 4) = somma
n = n + 1
riga = riga + 1
Loop Until n > limite
End Sub

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

indice