如何检测字符串出现的次数？

答案：
如何检测字符串出现的次数？
Function CheckTheChar(TheChar,TheString)
' TheChar="要检测的字符串".
' TheString="待检测的字符串".
if inStr(TheString,TheChar) then
for n =1 to Len(TheString)
if Mid(TheString,n,Len(TheChar))=TheChar then 
CheckTheChar=CheckTheChar+1
End if
Next
CheckTheChar="这个字符"&CheckTheChar&"次"
else
CheckTheChar="0次"
end if
End Function
 

上一个：如何根据用户银行帐户余额的多少进行显式的提交或终止？
下一个：如何制作一个弹出式的调查窗口？