.版本 2 .子程序 文本_取出现次数, 整数型, , 返回指定文本中指定内容出现的次数 .参数 被搜索文本, 文本型 .参数 欲搜索文本, 文本型 .参数 是否区分大小写, 逻辑型, 可空 .局部变量 位置_, 整数型, , , 感谢论坛会员 Mr.Yang提供的代码 .局部变量 i, 整数型 .如果真 (取文本长度 (被搜索文本) > 0 且 取文本长度 (欲搜索文本) > 0) 位置_ = 寻找文本 (被搜索文本, 欲搜索文本, , 取反 (是否区分大小写)) .判断循环首 (位置_ ≠ -1) i = i + 1 位置_ = 寻找文本 (被搜索文本, 欲搜索文本, 位置_ + 取文本长度 (欲搜索文本), 取反 (是否区分大小写)) .判断循环尾 () .如果真结束 返回 (i)