esevba10

'iterazione con D..Loop Until

vedi esevba10.xls

Private Sub CommandButton1_Click()
'esevba10
'iterazione con D..Loop Until
Dim k, somma As Integer
k = 1
somma = 0
Do
somma = somma + k
k = k + 1
Cells(k, 1) = somma
Loop Until somma > 100
End Sub