如何检测字符串出现的次数？FunctionCheckTheChar(TheChar,TheString)'TheChar="要检测的字符串".'TheString="待检测的字符串".ifinStr(TheString,TheChar)thenforn=1toLen(TheString)ifMid(TheString,n,Len(TheChar))=TheCharthenCheckTheChar=CheckTheChar+1EndifNextCheckTheChar="这个字符"&CheckTheChar&"次"elseCheckTheChar="0次"endifEndFunc...