13问答网 > 编写过程DeleStr(s1,s2),将字符串s1中出现的字符串s2删去,结果仍存放在s1中.

编写过程DeleStr(s1,s2),将字符串s1中出现的字符串s2删去,结果仍存放在s1中.

2025-03-13 04:14:53

推荐回答（1个）

回答1：

Private Sub DeleStr(ByVal s1 As String, ByVal s2 As String)
Dim i%, ls1%, ls2%
i = InStr(s1, s2)
ls2 = Len(s2)
Do While i > 0
ls1 = Len(s1)
s1 = Left(s1, i - 1) + Mid(s1, i + ls2)
i = InStr(s1, s2)
Loop
End Sub