在线求助，想不通某个地方。。求解释

fsjoe

〈整数型〉 寻找文本 （文本型 被搜寻的文本，文本型 欲寻找的文本，［整数型 起始搜寻位置］，逻辑型 是否不区分大小写） - 系统核心支持库->文本操作
    英文名称：InStr
    返回一个整数值，指定一文本在另一文本中最先出现的位置，位置值从 1 开始。如果未找到，返回-1。

xbzx

.版本 2

.子程序 _按钮1_被单击

信息框 (“共查找到” ＋ 到文本 (子程序1 (编辑框1.内容, 编辑框2.内容)), 0, )



.子程序 子程序1, 整数型
.参数 被查找, 文本型
.参数 欲查找, 文本型
.局部变量 长度, 整数型
.局部变量 文本数量, 整数型
.局部变量 找到位置, 整数型

长度 ＝ 取文本长度 (欲查找)  ' 所要查找的文本长度
找到位置 ＝ 寻找文本 (被查找, 欲查找, 1, 假)  ' 被查找到的第一个文本的位置
.判断循环首 (找到位置 ≠ -1)  ' 因为寻找文本没找到会返回-1，所以找到位置  ≠ -1就说明找到了，然后进入循环
    文本数量 ＝ 文本数量 ＋ 1  ' 因已找到了一个所以文本数量要加1
    找到位置 ＝ 寻找文本 (被查找, 欲查找, 找到位置 ＋ 长度, 假)  ' 这里再次进行查找，找到位置 ＋ 长度是再次进行查找的起点，因为寻找文本找到一个后就会停止，所以把第一个找到的跳过去。
.判断循环尾 ()
返回 (文本数量)