vba字典在金字塔中如何表示　[金字塔]

問題：

     在鄭州期貨市場，將商品名稱左邊兩位存入數組MC()，
        通過輸出，驗證MC()確實有數據 

           希望：把數組MC()里記錄裝入字典，過濾掉重復的記錄。

              但 加入數據時提示錯誤。

     期望得到幫助和指導，謝謝。

，，，，

Set d=CreateObject("Scripting.Dictionary")     '將數組MC()裝入字典，濾掉重復記錄
for qq=0 to ubound(mc)
d.Add mc(qq)                                               '加入數據時出現錯誤
next
application.MsgOut d.count                   
End Sub

下邊為測試時源代碼：

Sub t_lx()  '在鄭州期貨市場，將商品名稱左邊兩位存入數組MC()
dim mc()
dim d
Count = MarketData.GetReportCount("zq")
redim mc (Count-1)
For i = 0 To Count-1 
set Report3 = MarketData.GetReportDataByIndex("zq",i)                                         
mc(i)=Left(Report3.stockname,2)
Next
for nn= 0 To i-1
application.MsgOut mc(nn)    '通過輸出，驗證MC()確實有數據 
Next

Set d=CreateObject("Scripting.Dictionary") '將數組MC()裝入字典，濾掉重復記錄
for qq=0 to ubound(mc)
d.Add mc(qq)                       '加入數據時出現錯誤
next
application.MsgOut d.count                   
End Sub

redim mc(Count-1) '名稱
redim dm(Count-1) ’代碼

mc(i)=Left(Report3.stockname,4)
dm(i)=Right(Report3.Label,2)

d.Add mc(qq),dm(qq)    還是提示錯誤：

編輯器錯誤“457”，由于控件無法看到、尚未啟用，或其他類型不接受焦點，因此無法將焦點移至該控件。

請老師再賜教。

   另外，測試了論壇中“找主力合約”的例子，在本機上運行正常，里邊也應用到“字典”，因個人水平較低，看不出例子為啥就能運行。

 prefixStockNameOld=""
 c"
感覺這兩句很神秘，在程序中是啥意思？尤其是Old。

希望老師能把每一條代碼給給注釋，便于學習。

另外：dominantContract.Add contractLabel,contractMarket

如果想把字典中已經裝入的記錄逐條顯示出來，應該怎么寫。

總感覺金字塔里字典的用法與VBA 不太一樣，懇請指點。

謝謝。