VBA 字典內建2的2個陣列，

'dict1.keys()  dict1.items() 都是一維陣列

'這兩種方式顯示陣列裡的元素都ok』

'其實陣列=陣列名，就是dict1.keys()=dict1.keys  所以 dict1.keys(1)=dict1.keys()(1)

sub test_dict500()

dim dict1 as new dictionary
arr1 = 
arr2 = 
for i = lbound(arr1) to ubound(arr1)
dict1(arr1(i)) = arr2(i)
next
for each i in dict1.keys()
debug.print i & "," & dict1(i)
next
'dict1.keys() dict1.items() 都是一維陣列
debug.print dict1.keys(2);
debug.print ",";
debug.print dict1.items(2)
'這兩種方式顯示陣列裡的元素都ok』
'其實陣列=陣列名，就是dict1.keys()=dict1.keys 所以 dict1.keys(1)=dict1.keys()(1)
debug.print dict1.keys()(2);
debug.print ",";
debug.print dict1.items()(2)
end sub

查有沒這個

key

利用key

不重複原理 而

item

可以重複

要這麼查

item

可能出多個結果

他山之石 使用VBA字典 Part2

這裡講的三個字典的應用，都挺新鮮的，有機會可以實踐一下。sub 提取不重複的產品 dim d as new dictionary dim arr,x arr range a2 a12 for x 1 to ubound arr d arr x,1 next x end sub sub 彙總 dim ...

查詢陣列中最大的2個數

1 在c語言的被呼叫函式中，沒有辦法求出陣列實參的大小，因此需要顯示傳遞array length引數。詳見部落格 c語言記憶體分配時間。2 以o n 的計算時間得出結果。include void find 2 largest int array,int array length,int plarge...

交換2個數

交換兩個數的順序，可以交換位址，可以交換值。當用函式呼叫法交換位址的時候，為什麼不可以實現。程式如下 這樣可以實現兩個數的交換 include void swap int x,int y void main void swap int x,int y include為什麼這個方法為什麼就不能實現。m...