狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

判斷字符串中相同字符的個數
=============================
函 數 名：GetCount
作 用：判斷字符串中相同字符的個數
參 數：
==============================
Private Function GetCount(Strs,Word)
Dim N1,N2,N3
N1=Len(Strs)
N2=Len(Replace(Strs,Word,""))
N3=Len(Word)
GetCount=Clng(((N1-N2)/N3))
End Function

該文章在 2014/10/25 11:38:51 編輯過