vb.net - VB.net Dictionary - 从字典中获取所有值等于 1

Question

我正在尝试在 VB.net 中创建一个汇率字典。我想要的是一个字典，通过输入货币名称将返回一个 15 天汇率的数组。例如，在字典中调用“USD”将返回一组 USD/THB 汇率。我的问题是我字典中的所有值都是 1。

这是我的代码。虽然我的 ArrayTemp（放入字典之前的我的 Array）中的值不是 1，但字典中的值都是 1。

MarketDataEndRow = .Range("A5").End(XlDirection.xlDown).Row
ReDim ArrayTemp(MarketDataEndRow = 6)
i = oFunction.Match("FX Spot", .Rows(5), 0)
While (.Cells(5,i).Value().ToString = "FX Spot" Or IsNothing(.Cells(5, i).value().ToString)) And Not IsNothing( .Cells(4, i).value().ToString)
    For K = 6 to MarketDataEndRow
        ArrayTemp(K - 6) = .Cells(k, i).value
    Next K
    dictFxSpot.Add(.Cells(4, i).Value, ArrayTemp)
End While

标签： vb.netdictionary