Help Hurry Plz! Simple Question

[Alakazam]

I HAVE TO BUST OUT SOME CODE THAT COUNTS FROM 1 TO 50
PRINTS OUT EACH NUMBER
THEN PRINTS THE SUM OF EACH USING AN ARRAY.
PLEASE HURRY
THANKS IN ADVANCE

[Nucleus]

are you in an exam?

[Nucleus]

Well here you go anyway

Private Sub Command1_Click()
 Dim i As Long, numbers(1 To 50, 1 To 2) As Long
 For i = 1 To 50
    numbers(i, 1) = i
    If i > 1 Then numbers(i, 2) = numbers(i - 1, 2) + i Else numbers(i, 2) = i
    Me.Print numbers(i, 1) & " : " & numbers(i, 2)
 Next
End Sub

[Alakazam]

thank you very much Nucleus <)