Перебор переменных

[VERITAS]

Привет Всем..
Подскажите как перебирать переменные в цикле.

Что то типа есть:
Dim xx1 as string
и так до
Dim xx100 as string

Как их каждые проверить чтобы было типа:
For i = 1 to 101
If xx? = "True" then MsgBox xx?
Next i

Очень нужно,,,
И еще как эти самые переменные тем же способом в цикле объявлять с увеличением на единицу ??

[A.A.Z.]

А массив не ага?

[Sirik]

2 A.A.Z.
Может он и не знает что такое массив, всё-таки статус "Новичёк" ?

Пример кода:

Код: Выделить всё

Dim xx(100) as string
Dim I as Long
xx(1)=1
For I=2 to 100
     xx(i)=xx(i-1)+1
Next


[skord]

А без массива слабо?)))))

[Sirik]

Нет, но так проще

[VERITAS]

Sirik Спсибо

А насчет массивов - на самом деле не работал еще с ними.

[Sirik]

2VERITAS
Сегожня без них никуда! (конечно если решаешь простые задачи)

[skord]

Нет, но так проще

?
может я чего нить не знаю... а как без массива?

[Amed]

Коллекцией

[Sirik]

конечно коллекцией, но это уже элементы ООП.
я думаю, человеку, которые не знал как работать с массивами, рановато объяснять что такое коллекция ?...

ЗЫ. кстати, в коллекции лучше реализовано удаление элементов, так в массиве вобще никак (кроме как переначначить длину и переписать значения)

[Amed]

?
может я чего нить не знаю... а как без массива?

Я и не спорю, объяснять коллекции чуть-чуть рановато (может, и нет? ), просто отвечаю на вопрос...

[VERITAS]

Может и не рано (лучше раньше чем позже)

Я немного знаком с элементами ООП. И буду рад уроку по коллекциям...

[Серый]

Объявление коллекции:
Private My_Col As New Collection

Твоя процедура:
Dim I as Long
Set My_Col=New Collection
For I=1 To 100
My_Col.Add I
Next

В итоге твоя коллекция будет заполненна элементами-цифрами с 1 до 100.

Очень удобно удалять элемент:
My_Col.Remove <номер элемента>

Количество элементов в коллекции:
My_Col.Count

ЗЫ. Только не забудь при Unload_Form поставить
Set My_Col=Nothing

[Серый]

Кстати, вот тут вопросик один возник:
с чем будет быстрей работать с массивом или с коллекцией?
ЗЫ. в смысле какой код будет быстрее работать?

[Amed]

А проверить самому - не ага?

Код: Выделить всё

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private My_Col As New Collection

Private Const N As Long = 10000

Private xx(1 To N) As Long
Private i As Long
Private t1 As Long, t2 As Long

Private Sub Form_Load()
Set My_Col = New Collection

t1 = GetTickCount
My_Col.Add 1
For i = 2 To N
    My_Col.Add My_Col(i - 1) + 1
Next
t2 = GetTickCount
Me.Print Round((t2 - t1) / 1000, 2) & " ñ."

t1 = GetTickCount
xx(1) = 1
For i = 2 To N
     xx(i) = xx(i - 1) + 1
Next
t2 = GetTickCount
Me.Print Round((t2 - t1) / 1000, 2) & " ñ."
Me.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set My_Col = Nothing
End Sub


Этот код для N=10000 выдавал:
коллекции - 5.59-5.81 с.
массив - 0-0.1 с.

Для N=1000 оба показателя крайне близки к нулю...

[A.A.Z.]

2 Серый: ИМХО, массивы быстрее
2 VERITAS: в коллекциях еще удобно For..Each использовать Например, чтобы всем Label'ам на форме сделать шрифт жирным, нужно применить следующий код:

Код: Выделить всё

Dim lbl As Label

Sub Form_Load()
For Each lbl In Controls
lbl.Font.Bold = True
Next
End Sub

[VERITAS]

Тогда возникает: вопрос зачем же использовать коллекции, если скорость их выполнения намного медленнее массива

[Amed]

Очень удобно удалять элемент:
My_Col.Remove <номер элемента>

Количество элементов в коллекции:
My_Col.Count

2 VERITAS: в коллекциях еще удобно For..Each использовать

Для N=1000 оба показателя крайне близки к нулю...

[tyomitch]

в коллекциях еще удобно For..Each использовать

А что мешает использовать For Each (зачем там у тебя две точки?) с массивами?

[tyomitch]

Тогда возникает: вопрос зачем же использовать коллекции, если скорость их выполнения намного медленнее массива

В них возможен быстрый поиск по ключу.