1. dim startfind,findit,MyPos,wordline
2. word="1a1a2b2a2as5a5a4a4a8w6wa21231a1231a5a4a12a15a4a2123a45a6231a2343a21a324a32a132132a132a"
3. findword="a"
4. //word里有多少个a
5. wordline=len(word)
6. MyPos = Instr(1,word,findword)
7. 如果表达式 (MyPos=<wordline and MyPos>0) 为真,则循环执行
8.     如果表达式 (MyPos>0) 为真,则
9.         findit=findit+1
10.         startfind=MyPos+1
11.     条件结束
12.     MyPos = Instr(startfind,word,findword)
13. 循环结束
14. 弹出窗口 findit