代码如下:
dim s,cc="a"s="123a123a123a123a"msgbox "字符串"&s&"中"&c&"出现了:"&len(s)-len(replace(s,c,""))&"次"
满意请采纳，谢谢
