split方法

这个函数是用某个字符把一个字符串分割成数组。比如“123123123”用‘3’作为分隔符，就会得到“12“， “12“， “12“， “”共4个元素，然后元素个数和分隔符的出现次数是一一对应的。就可以写出下面的代码：

Dim s As String
s = "1.56.4324.5.."
Dim arr
arr = Split(s, ".")
Print s & "中共有" & UBound(arr) - LBound(arr) & "个 ."

写成函数的形式就是：

'第一个参数是主字符串，然后求char在主字符串中出现的次数（函数返回值）。
Function countChar(s As String, char As String) As Integer
Dim arr
arr = Split(s, char)
countChar = UBound(arr) - LBound(arr)
End Function

遍历查找方法

这个思路很简单，就是遍历字符串所有的字符，查找和所求字符相同的次数。关键在于mid函数的使用。

'第一个参数是主字符串，然后求char在主字符串中出现的次数（函数返回值）。
Function countChar(s As String, char As String) As Integer
Dim length As Integer
length = Len(s)
Dim i As Integer
Dim count As Integer, c As String
For i = 1 To length '遍历字符串
    c = Mid(s, i, 1) '取子串.参数分别是（字符串，起始位置，截取长度）
    If c = char Then count = count + 1 '如果查找到了，计数器就＋1

Next
countChar = count
End Function

调用方法

举例：

Dim s As String, c As String
s = "1.56.4324.5.."
c = "."

Print s & "中共有" & countChar(s, c) & "个 ."