Dim intI As Long
Dim intJ As Long
Dim longDateTime (7) As Long
Dim intMaximum As Int = 1000000
longDateTime (0) = DateTime.Now
Dim intArray (intMaximum) As Int
For intI = 0 To intMaximum - 1
intArray (intI) = 1234
Next
longDateTime (1) = DateTime.Now
For intI = 0 To intMaximum - 1
intArray (intI) = intI * 2
Next
longDateTime (2) = DateTime.Now
For intI = 0 To intMaximum - 1
intJ = intArray (intI)
Next
longDateTime (3) = DateTime.Now
Dim listTest As List
listTest.Initialize
For intI = 0 To intMaximum - 1
Dim intValue As Int = 1234
listTest.Add (intValue)
Next
longDateTime (4) = DateTime.Now
For intI = 0 To intMaximum - 1
listTest.Set (intI, intI * 2)
Next
longDateTime (5) = DateTime.Now
For intI = 0 To intMaximum - 1
intJ = listTest.Get (intI)
Next
longDateTime (6) = DateTime.Now
Log ("Allocate : " & (longDateTime (1) - longDateTime (0)) & " vs " & (longDateTime (4) - longDateTime (3)) & "ms" & CRLF & _
"Set : " & (longDateTime (2) - longDateTime (1)) & " vs " & (longDateTime (5) - longDateTime (4)) & "ms" & CRLF & _
"Get : " & (longDateTime (3) - longDateTime (2)) & " vs " & (longDateTime (6) - longDateTime (5)) & "ms")