Imports System
Public Class FillLargeArrayWithValuesFromSmallArray
Public Shared Sub Main()
Dim smallarray As Integer() = {1, 2, 3, 4, 5}
Dim largearray As Integer() = New Integer(29) {}
Dim largelen As Integer = largearray.Length
Dim smalllen As Integer = smallarray.Length
For i As Integer = 0 To largelen - 1
largearray(i) = smallarray(i Mod smalllen)
Next
For i As Integer = 0 To largelen - 1
Console.Write(largearray(i) & " ")
Next
End Sub
End Class
' run:
'
' 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5
'