guest_rusimport,
Добрый вечер :)
1.
2.
3.
4.
5.
startTime = GetTickCount
For i = 0 To counter
blnComp = testArr(i) - i = 0
Next i
diffTime = GetTickCount - startTime
не, это же просто считывание n-ого элемента массива. А поиск где? :)
вот здесь вот:
1.
2.
3.
4.
5.
startTime = GetTickCount
For i = 0 To counter
blnComp = InArr(i, testArr)
Next i
diffTime = GetTickCount - startTime
было 10000 операций поиска. 10000 раз выполнялась функция InArr. А внутри каждого вызова функции, в зависимости от положения элемента в массиве выполнялось от 1 до 10000 переборов.
Т.е. у вас на порядки меньше циклов. И самое главное, где поиск? Ведь как бы предполагается, что на вход идет нечто(строка, массив, коллекция) и нужно узнать, содержит ли это "нечно" нужный элемент.
Если вы смотрите вот сюда:
1.
2.
3.
For i = 0 To counter
blnComp = idsList(CStr(i)) = i
Next i
и думаете, что это я так же как и вы просто обращаюсь к элементу коллекции по номеру, то это не так. Я тут обращаюсь не по номеру, а по ключу. Если бы я обращался по номеру, то это бы выглядело так: idsList(i). А у меня вот так: idsList(CStr(i))
Выше в обсуждении я писал:Вакшуль СергейЕсли массивы не нравятся, попробуйте коллекции:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub test()
Dim idsList As New Collection
idsList.Add 1, "1"
idsList.Add 11, "11"
idsList.Add 111, "111"
If idsList("11") = 111 Then
Debug.Print "число 11 есть в списке" 'На текст сообщения не смотрите, это некорректное сообщение
Else
Debug.Print "числа 11 нет в списке" 'На текст сообщения не смотрите, это некорректное сообщение
End If
End Sub
Обратите внимание, что ключ строковый. Имя ключа равно значению. Т.е. когда надо узнать, а есть ли в коллекции элемент, значение которого равно 11, то нужно просто обратится по имени ключа "11". С массивом так сделать нельзя. В этом весь фокус.
Тут смысл в том, что обращаясь таким образом к коллекции, вам не нужно лопатить в цикле по всем ее элементам, как в случае с функцией InArr. За вас это сделает Access. Он тоже будет лопатить (просто это от нас скрыто). Но он это делает быстрее, чем аналогичный код пользователя в стандартном модуле.
