判断字符串中相同字符的个数

判断字符串中相同字符的个数
=============================
函 数 名GetCount
作 用判断字符串中相同字符的个数
参 数
==============================
Private Function GetCount(StrsWord)
Dim NNN
N=Len(Strs)
N=Len(Replace(StrsWord""))
N=Len(Word)
GetCount=Clng(((NN)/N))
End Function

上一篇：调用非托管dll常出现的bug及解决办法

下一篇：获取url包括参数