对国家个数进行计数。
#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
控制台运行结果如下。