定义一个函数，实现从一堆数据中找出指定数据的个数。

'str1为一堆数据，str2为指定数据
Function Test(ByVal str1,ByVal str2)
Dim lim    '比较次数
    Dim number  '相同数据个数
l1=len(str1)
l2=len(str2)
lim=l1-l2+1
  
For i = 1 To lim      '循环str1
str=Mid(str1,i,l2)  '从str1中返回指定数目的字符 
If str2=str Then    '判断返回的字符是否跟指定数据str2一样
number=number+1
Else
number=0
End If
Next
Test=number


End Function