查找与替换程序(VB6.0源代码编写),替换区分大小写等功能.PrivateSubCommand1_Click()Dimst,teAsStringDimiAsIntegerte=Text1.TextFori=1ToLen(Text1.Text)st=Mid(Text1.Text,i,1)Ifst=Text2.TextThenMid(te,i,1)=Text3.TextNextiText1.Text=teEndSubPrivateSubCommand2_Click()Text1.Text=GetText(Text1.Text,Text2.Text,Text3.