vb.net 初始化Dictionary赋值和循环访问

在 VB.NET 中，初始化 Dictionary 并循环访问其元素可以使用以下代码：

' 初始化 Dictionary
Dim myDictionary As New Dictionary(Of String, String) From {
    {"apple", "red"},
    {"banana", "yellow"},
    {"cherry", "red"},
    {"date", "brown"}
}

' 循环访问 Dictionary 元素
For Each fruit As KeyValuePair(Of String, String) In myDictionary
    Console.WriteLine("The color of " & fruit.Key & " is " & fruit.Value)
Next

这样就会输出 Dictionary 中的每一个键值对，即“apple”对应“red”、“banana”对应“yellow”、“cherry”对应“red”和“date”对应“brown”。你也可以根据需要替换字符串为其他类型的键和值。如果你只想循环访问 Dictionary 中的键或值，可以使用以下代码：

' 循环访问 Dictionary 键
For Each fruit As String In myDictionary.Keys
    Console.WriteLine(fruit)
Next

' 循环访问 Dictionary 值
For Each color As String In myDictionary.Values
    Console.WriteLine(color)
Next

这样就会分别输出 Dictionary 中的每一个键和值。