Взятие первых двух элементов в списке

Question

Я пытаюсь выполнить динамический путь, чтобы принимать только первые два элемента в списке, и у меня возникают некоторые проблемы. Ниже приводится разбивка того, что у меня есть в моем списке

Декларация:

Set List = CreateObject("Scripting.Dictionary") 

Список Содержание:

List(0) = 0-0-0-0 
List(1) = 0-1-0-0 
List(2) = 0-2-0-0 

код до сих пор:

for count = 0 To UBound(List) -1 step 1 
     //not sure how to return 
    next 

То, что я в настоящее время делает не работа.

Желаемая Вернуться Список:

0-0-0-0 
0-1-0-0 

Answer 1

Вам необходимо использовать метод «Слова». Для получения дополнительной информации см here

Например:

Dim a, i 

a = List.Items 

For i = 0 To List.Count - 1 
    MsgBox(a(i)) 
Next i 

или если вы просто хотите, первый 2:

For i = 0 To 1 
    MsgBox(a(i)) 
Next i 

Answer 2

UBound() для массивов, а не словари. Вам нужно использовать свойство Count объекта Dictionary.

' Show all dictionary items... 
For i = 0 To List.Count - 1 
    MsgBox List(i) 
Next 

' Show the first two dictionary items... 
For i = 0 To 1 
    MsgBox List(i) 
Next