下一个循环中的可变声明语法错误

Question

以下代码正常工作。

Private Sub Button1_Click(sender As Object, e As RoutedEventArgs) Handles Button1.Click
    Dim Dictionary1 As New Dictionary(Of String, Integer)
    Dim Dictionary2 As New Dictionary(Of String, Integer)
    Dim Dictionary3 As New Dictionary(Of String, Integer)
    Dim Dictionary4 As New Dictionary(Of String, Integer)
    Dim Dictionary5 As New Dictionary(Of String, Integer)

    Dictionary1.Add("George", "36")
    Dictionary2.Add("George", "36")
    Dictionary3.Add("George", "36")
    Dictionary4.Add("George", "36")
    Dictionary5.Add("George", "36")
End Sub

我试图像下一个循环那样缩短上述代码，例如以下代码。

但是以下代码给了我一个错误。

Private Sub Button2_Click(sender As Object, e As RoutedEventArgs) Handles Button2.Click
    Dim Dictionary1 As New Dictionary(Of String, Integer)
    Dim Dictionary2 As New Dictionary(Of String, Integer)
    Dim Dictionary3 As New Dictionary(Of String, Integer)
    Dim Dictionary4 As New Dictionary(Of String, Integer)
    Dim Dictionary5 As New Dictionary(Of String, Integer)

    For i As Integer = 1 To 5
        ("Dictionary" & i).Add("George", "36")
    Next
End Sub

那么，如何解决以下错误？

Answer 1

字典列表

    Dim Dictionary1 As New Dictionary(Of String, Integer)
    Dim Dictionary2 As New Dictionary(Of String, Integer)
    Dim Dictionary3 As New Dictionary(Of String, Integer)
    Dim Dictionary4 As New Dictionary(Of String, Integer)
    Dim Dictionary5 As New Dictionary(Of String, Integer)

    Dim ds As New List(Of Dictionary(Of String, Integer))
    ds.Add(Dictionary1)
    ds.Add(Dictionary2)
    ds.Add(Dictionary3)
    ds.Add(Dictionary4)
    ds.Add(Dictionary5)

    For Each d As Dictionary(Of String, Integer) In ds
        d.Add("George", 37)
    Next