在VB中开始没找到和Java一样类似与map类似的键值存取值的方式。为了提高效率不能使用循环取值。
根据Dictionary测试后，可以这么用。经测试可以通过键值对方式取值。
注意：从excel中取数据作为键存取数据时，最好使用Trim()函数做一下除空格的处理，当数据存在空格时会出现取不到值的情况，而且该问题在debug时也不容易发现。
代码如下：
Sub test() Dim d Set d = CreateObject("Scripting.Dictionary") d.Add "a", "Athens" d.Add "b", "Belgrade" d.Add "c", "Cairo" If d.Exists("c") Then c = d.Item("c") e = d.Item("e") a = d.Item("a") Else msg = "指定的关键字不存在。" End If End Sub
测试结果如下图：
