freebasic中字典的使用

对国家个数进行计数。

#include once "Afx/CDicObj.inc" 
Dim s As String = "中国/捷恩斯/日本/中国/日本/中国/韩国/中国/韩国/中国/日本/韩国/中国/日本/中国/日本"
Dim arr() As String 
dim U as Integer = Split(s, "/", arr())  'U为split分割成的数组的成员的个数,arr(0)返回的是arr数组元素的个数，元素从1开始。
Dim d As CDicObj
For i As Integer = 1 To U
d.Item(arr(i))  = d.Item(arr(i)) +1
Next
Dim dskeys As CVAR = d.Keys
For i As Long = dskeys.GetLBound To dskeys.GetUBound
   Dim ds As String = dskeys.GetVariantElem(i).ToStr
   Dim kv As Integer=d.item(ds).value
   Print   ds,":",kv'打印字典里面的键和值
Next

控制台运行结果如下。