confronta1 vba excel powerpoint

esci con testvba.htm

pro5.xls
ciclo for..next

pro5.ppt

Private Sub CommandButton1_Click()
'esevba5
'ciclo for next
Dim a, b, c, k As Integer
a = 10
b = 20
c = 30
For k = 1 To 5
Cells(k, 1) = a + k
Cells(k, 2) = a * k
Next k
For k = 1 To 5
Cells(k, 3) = b + k
Next k
For k = 1 To 5
Cells(k, 4) = c + 10
c = c + 1
Next k

End Sub

Private Sub CommandButton1_Click()
'esevba5
'ciclo for next
Dim a, b, c, k As Integer
a = 10
b = 20
c = 30
For k = 1 To 5
ListBox1.AddItem (a + k)
ListBox2.AddItem (a * k)
Next k
For k = 1 To 5
ListBox3.AddItem (b + k)
Next k
For k = 1 To 5
ListBox4.AddItem (c)
ListBox4.AddItem (c + 10)
c = c + 1
Next k
End Sub