创建一个充满值的字典

Dim extensions As New Dictionary(Of String, String) _
  from { { "txt", "notepad" },
  { "bmp", "paint" },
  { "doc", "winword" } }

这会创建一个字典并立即用三个 KeyValuePairs 填充它。

你也可以稍后使用 Add 方法添加新值：

extensions.Add("png", "paint")

请注意，键（第一个参数）在字典中必须是唯一的，否则将抛出异常。