vb字符串删除程序

来源：百度知道编辑：UC知道时间：2024/06/30 01:33:40

这个程序怎么写啊?
编一个子过程,将字符串s1中出现的s2子字符串删去，结果存放在s1中,例如:s1=123456789,s2=2345,结果:s1=16789 ,用上instr,delestr等

Private Sub Command1_Click()

Dim a As String

Dim b As String

Dim m As Integer

a = Text1.Text

b = Text2.Text

m = InStr(a, b)

a = Left(a, m - 1) + Right(a, Len(a) - m - 1 - Len(b))

Text1.Text = a

End Sub

Dim s1 As String,