Imports System
Class Program
Public Shared Function CreateRangeArray(ByVal start As Integer, ByVal _end As Integer) As Integer()
Dim size As Integer = _end - start + 1
Dim arr As Integer() = New Integer(size - 1) {}
For i As Integer = 0 To size - 1
arr(i) = start + i
Next
Return arr
End Function
Public Shared Sub Main()
Dim start As Integer = 3
Dim _end As Integer = 11
Dim rangeArray As Integer() = CreateRangeArray(start, _end)
For Each num As Integer In rangeArray
Console.Write(num & " ")
Next
End Sub
End Class
' run:
'
' 3 4 5 6 7 8 9 10 11
'