Question

VB编程(急)

编一个子过程DeleStr(s1,s2),将字符串s1中出现s2子字符串删去,结果存放在s1中,
列如:s1="12345678AAABBDFG12345" s2="234"
结果:s1="15678AAABBDFG15"
要求:用到InStr()函数,用Do While InStr(s1,s2)>0循环结构
通过Left(),Mid()或者Right()函数的调用达到删除s1中存在的s2字符串

Answer 1

Private Sub Command1_Click()
s1 = "123456789"
s2 = "456"
Do While InStr(s1, s2) > 0
s1 = Left(s1, InStr(s1, s2) - 1) & Right(s1, Len(s1) - Len(s2) - InStr(s1, s2) + 1)
Loop
Print s1

End Sub