public class Test
public Shared Sub Main
Dim aryDynArray() As Integer
Dim intResult As Integer
Dim intCounter As Integer
'Dimension the array at runtime.
intResult = 12
ReDim aryDynArray(intResult - 1)
Console.WriteLine("Array size is: " & aryDynArray.Length)
'Populate the array.
For intCounter = 0 To aryDynArray.GetUpperBound(0)
aryDynArray(intCounter) = intCounter + 100
Next intCounter
End Sub
End class
|