question about populating and initializing arrays

[quakeworld2007]

Is there an easier way to initialize and populate a multi-dimensional array than this?

Module Mod1

    Sub Main()

        Dim mailBoxes(20) As MailBox

 

        'create mailBox using a Three arameter constructor 

        mailBoxes(0) = New MailBox(1, 15, 20)

        mailBoxes(1) = New MailBox(2, 15, 20)

        mailBoxes(2) = New MailBox(3, 15, 20)

        mailBoxes(3) = New MailBox(4, 15, 20)

        mailBoxes(4) = New MailBox(5, 15, 20)

        mailBoxes(5) = New MailBox(6, 15, 20)

        mailBoxes(6) = New MailBox(7, 15, 20)

        mailBoxes(7) = New MailBox(8, 15, 20)

        mailBoxes(8) = New MailBox(9, 15, 20)

        mailBoxes(9) = New MailBox(10, 15, 20)

        mailBoxes(10) = New MailBox(11, 15, 20)

        mailBoxes(11) = New MailBox(15, 15, 20)

        mailBoxes(12) = New MailBox(13, 15, 20)

        mailBoxes(13) = New MailBox(14, 15, 20)

        mailBoxes(14) = New MailBox(15, 15, 20)

        mailBoxes(15) = New MailBox(16, 15, 20)

        mailBoxes(16) = New MailBox(17, 15, 20)

        mailBoxes(17) = New MailBox(18, 15, 20)

        mailBoxes(18) = New MailBox(19, 15, 20)

        mailBoxes(19) = New MailBox(20, 15, 20)

        

 

        Dim i As Integer

        For i = 0 To 20

            Console.WriteLine(mailBoxes(i).toString())

        Next i

 

    End Sub

 

End Module

 

[JohnH]

Yes, you already know how to use a For-Next loop.

for i as integer = 0 to 19
  mailBoxes(i) = New MailBox(i+1, 15, 20)
next

 

[quakeworld2007]

thanks for the help