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
Printable View
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
are you in an exam?
Well here you go anyway :)
Code: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
thank you very much Nucleus <):)