Module Module1
Sub Main()
Dim r As Random = New Random
Dim size As Integer = r.Next(1, 10)
Dim arr() As Integer = {0}
ReDim Preserve arr(size)
For i As Integer = 0 To size
arr(i) = r.Next(1, 100)
Next
For Each n As Integer In arr
Console.WriteLine(n)
Next
End Sub
End Module
' run:
'
' 54
' 40
' 67
' 2
' 18