DimaAsIntegerDimbAsIntegerPrivateSubCommand1_Click()k=InStr(a,Text2,Text1)Ifk>0ThenCommand1.Caption="查找下一個"a=k+Len(Text1)Text2.SetFocusText2.SelStart=k-1Text2.SelLength=Len(Text1)b=b+1ElseMsgBox"查找完畢！共找到"&b&"個"&Text1Command1.Caption="查找"a=1EndIf'PrintkEndSubPrivateSubForm_Load()Label1="要查找的內(nèi)容："Command1.Caption="查找"a=1EndSub