为数组赋值

Question

我有一个dictionary，它还存储了array。这是代码，我正在尝试为数组分配一些值。但它总是无法为array 赋值。我该如何解决这个问题？谢谢

代码：

Dim dict As Dictionary
Set dict = New Dictionary
For i = 1 To fruitList.count
    dict .Add fruitList(i), Array(0, 0, 0, 0, 0)
next
dict(apple)(0) = 100 //however, the first index in the array always equals to 0

更新： 或者我应该这样问。我在dictionary 中添加array 作为值的方式不是错误的吗？

Answer 1

试试这个：

Sub addArray2Dict()
    Dim a: a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0) 'Here declare and store the array,
                                                   'you can do it any other way
                                                   'there is no difference if you do it here or
                                                   'in the loop
    Dim b 'Just for testing porpuse
    Dim oDict As Object 'Because I use “Microsoft Scripting Runtime” can use earle binding
    Set oDict = CreateObject("Scripting.Dictionary")
    Dim i 'iterator

    'Store numbers and letters inside the dictionary
    'BUT in the index number 5 I will store the array
    For i = 1 To 20
        If i = 5 Then
            oDict.Add i, a
           'oDict.Add i, Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0) 'As I said, this is the same as the line above.
        Else
            oDict.Add i, Chr(66 + i) 'Storing just letters in every key(integer)
        End If
    Next i

    b = oDict(5) 'Here I take the array from the Dictionary, and store it inside b,
    Debug.Print b(3) 'Here just print the 3th (number 4)  elemente of the array
                     'remember the array is:
                     '
                     ' array( 1 2 3 4 5 6 7 8 9 0 ) right!
                     '        0 1 2 3 4 5 6 7 8 9   <<< with that index
                     '
                     ' if i want the 3th value i will get the number 4 in my example.
End Sub

Use this as a reference

“Microsoft Scripting Runtime”（使用工具添加->来自 VB 的引用 菜单）

据我了解，您的代码可能是这样的：

Sub Test()
    Dim fruitList(1 To 5) As String
    Dim i
    Dim B
    fruitList(1) = "apple"
    fruitList(2) = "banana"
    fruitList(3) = "melon"
    fruitList(4) = "orange" 'Love oranges!
    fruitList(5) = "kiwi" 'Love Kiwi too!!!!
    Dim dict As Dictionary 
    Set dict = New Dictionary 
    For i = LBound(fruitList) To UBound(fruitList) 'here you use the bounds of the array,
                                                   'instead .count, here won't work
        dict.Add fruitList(i), Array(0, 0, 0, 0, 0)
    Next
    B = dict("apple") '(0) = 100 'however, the first index in the array always equals to 0
    B(0) = 100 'Here! You take the array FROM the dictionary and store it inside B
               'Just do it!
    B(1) = 200
    B(2) = 300
    B(3) = 500
    B(4) = 1000000
    Debug.Print B(0) 'Testing! This will print in the console your value (100).
    dict.Remove "apple" 'Remove the array
    dict.Add "apple", B 'Return the new array!
End Sub

您不能更改存储在字典中的数组的值（在 VBA 中）。最好删除数组并更改值，然后，如果需要，将其存储回字典中。

检查this answer 如果Tim Williams 说你不能，那是因为没有人可以！

Answer 2

都可以在这里找到：https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/arrays/

Dim myArray(arraySize) As ArrayType

或

Dim myArray = New ArrayType() {Item1, Item2, ...}

因此，在实践中，它应该如下所示：

Dim companies(3) as String
companies(0) = "Microsoft"
companies(1) = "Google"
companies(2) = "Amazon"

或：

Dim companies = New String() {"Microsoft", "Google", "Amazon"}