confronta1 vba excel powerpoint

esci con testvba.htm

pro9.xls
ciclo iterativo con Do While..Loop

pro9.ppt

Private Sub CommandButton1_Click()
'esevba9
'ciclo iterativo con Do While..Loop
Dim k, somma As Integer
somma = 0
k = 1
somma = 0
Do While k < 10
somma = somma + k
k = k + 1
Cells(k, 2) = somma
Loop

End Sub

Private Sub CommandButton1_Click()
'esevba9
'ciclo iterativo con Do While..Loop
Dim k, somma As Integer
somma = 0
k = 1
somma = 0
Do While k < 10
somma = somma + k
k = k + 1
ListBox1.AddItem (somma)
Loop

End Sub