Lists

Sub TestList()

Dim list As New List(Of String)

StartTimer()

'first test: writing 10 ^ n values

Dim i As Integer

For i = 0 To (10 ^ RunSize) - 1

list.Add(TestCode(i))

Next

'work out how long this took

WriteTime = ElapsedTime

'store ten values for subsequent tests

StoreTenValues()

'sort the list (timing this)

list.Sort()

SortTime = ElapsedTime

'third test: find 10 "random" values by number

Dim s As String

For i = (10 ^ RunSize) - 1 To 0 Step -(10 ^ (RunSize - 1))

s = list(i)

Next

'report how long this took

Read1Time = ElapsedTime

'fourth test: find 10 "random" values by name

For i = 0 To 9

s = TextValues(i)

For j = 0 To (10 ^ RunSize) - 1

If list(j) = s Then

Exit For

End If

Next

Next

Read2Time = ElapsedTime

'write out results of test

AddRow("List")

End Sub