Array Performance Test: Two-dimensional Array and SetValue(i, i)
Imports System Imports System.Collections Public Class MainClass Shared Sub Main(ByVal args As String()) Dim start_time As DateTime Dim stop_time As DateTime Dim elapsed_time As TimeSpan ' Get the number of items. Dim num_items As Integer = 1000000 ' Two-dimensional Array. Dim array4 As Array = _ Array.CreateInstance(GetType(Integer), 1, num_items) start_time = Now For i As Integer = 0 To num_items - 1 array4.SetValue(i, 0, i) Next i stop_time = Now elapsed_time = stop_time.Subtract(start_time) Console.WriteLine( elapsed_time.TotalSeconds().ToString ) End Sub End Class