题目来源：大工慕课 链接 原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验6-8 作者：Caleb Sung
题目要求
编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中。 例如：s1= “12345678AAABBDFG12345 ” S2= “234 ” 结果：s1= “15678AAABBDFG15 “
提示：
为了删除子串,首先利用InStr函数查找子串；若找到则通过Left、Mid（或Right）函数实现子字符串的删除；同时要利用循环考虑到删除多个子串的情况。
参考代码
Private Sub DeleStr(s1 As
String,
ByVal s2 As
String)
Dim i%
ls2 =
Len(s2)
i =
InStr(s1, s2)
Do While i >
0
s1 =
Left(s1, i -
1) +
Mid(s1, i + ls2)
i =
InStr(s1, s2)
Loop
End Sub
Private Sub Command1_Click()
Dim ss1 As
String
ss1 = Text1
Call DeleStr(ss1, Text2)
Text3 = ss1
End Sub
