One dimensional Array with Array.CreateInstance : Array Class « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Array Class

public class Test
  
   public Shared Sub Main
        Dim start_time As DateTime
        Dim stop_time As DateTime
        Dim elapsed_time As TimeSpan

        Dim num_items As Integer = 10000


        ' One-dimensional Array.
        Dim array3 As Array = _
            Array.CreateInstance(GetType(Integer), num_items)
        start_time = Now
        For i As Integer = 0 To num_items - 1
            array3.SetValue(i, i)
        Next i
        stop_time = Now
        elapsed_time = stop_time.Subtract(start_time)
        Console.WriteLine(elapsed_time.TotalSeconds())
        

        Erase array3

   End Sub
   
End class

0