今天学习了VB提升教程4期，学习的主要内容是字符串查找与替换。零基础学VB课程已经结束，但是感觉还是没有太大进步，而且目前也没有确定后续该学什么语言，干脆就继续再学一段时间VB吧反正计划的三个月时间还没有学满呢。
1.查找思路：通过字符串的比较来确定是否属于查找的内容，确定后通过设置焦点和光标开始位置，以及查找字符的长度达到定位选择的效果。
2补充知识：
Instr(参数1，参数2，参数3，参数4)参数1表示默认从左往右查找开始的位置，默认从1开始查找，参数2代表原字符串，参数3代表要查找的字符串，参数4代表要查找的方式，我们使用vbBinaryCompare方式，返回的是字符串找到的位置，如果没有找到字符串则返回0。
Text1.SetFocus 设置焦点
Text1.SelStart = find - 1 光标开始的位置
Text1.SelLength = Len(Text2.Text) 从光标处开始向后选择几个字符长度
3.替换函数：replace（原字符串底稿，要查找的字符串，替换进去的字符串）
4.做一个查找替换文本的小工具。
（1）窗体
（2）代码
Private Sub Command1_Click()
find = InStr(1, Text1.Text, Text2.Text, vbBinaryCompare)
Text1.SetFocus
Text1.SelStart = find - 1
Text1.SelLength = Len(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text)
End Sub
（3）效果详见视频
,
