Question

vb请逐一解释一下这个代码

Answer 1

这个就是把Text1中所有的Text2的内容删除后，显示在Text3中。

追问

逐一解释

追答

i = InStr(s1, s2) '在字符串S1中查找字符串S2地起始位置，若未找到，则返回0。

Left(s1, i - 1)就是取S1最左面的i-1个字符

ls2 = Len(s2)取S2的长度赋值给ls2

Mid(s1, i + ls2)就是取S1中找到的子串s2后面的字符

所以，s1 = Left(s1, i - 1) + Mid(s1, i + ls2)就是在S1中删除刚找到的一处s2。

接着的i = InStr(s1, s2) 就是继续查找S1中还有没有s2，若有的话，再进行下一轮的循环（重复上面的事）直到把S1中所有的s2全部删除。

Answer 2

Private Sub Command1_Click()
Dim ss1$
ss1 = Text1
Call delestr(ss1, ByVal Text2)
Text1 = ss1
End Sub

Private Sub delestr(s1 As String, ByVal s2 As String) '变量S1用传址方式，因为它要返回结果给主调用过程
Dim i%
i = InStr(s1, s2) '在字符串S1中查找字符串S2，返回S2首字符在S1中的位置给变量i
ls2 = Len(s2) '求S2的长度赋值给为题ls2
Do While i > 0
s1 = Left(s1, i - 1) + Mid(s1, i + ls2) '在S1中删除第一次查找到的S2。效果：1cd2cd3cd4cd=12cd3cd4cd，分别截取i左边部分和去掉S2后的右边部分
i = InStr(s1, s2) '继续在剩余的S1中查找S2。直到找不到S2，这时i=0结束DO循环。
Loop
End Sub

追问

left和mid那个不懂。。

i就是要查找字符串的起始位置吗？

i可以有多个值吗？