confronta1 vba excel powerpoint

esci con testvba.htm

pro10.xls
iterazione con Do..Loop Until

pro10.ppt

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

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