UC知道VB 删除字符串
来源：百度知道 编辑：UC知道 时间：2024/06/21 20:16:14
【实验内容】
编写一个子过程delestr（s1，s2），将字符串s1中出现的s2子字符串删去，结果存放在s1中。例如：原字符串（s1)：HelloChinaHello，删除(s2)Hello，结果：China
【提示】用instr函数取得s2在s1中开始的位置，用left和right函数取出删除s2后左边和右边的剩余部分。在s1中可能有若干个s2，需用循环进行删除；再编一个delestr函数进行比较。
该程序设计到过程，我不太会，请帮帮忙~！(编写内容要符合实验内容和提示）
在s1中可能有若干个s2，需用循环进行删除。（利用循环哦~！！）
编写一个子过程delestr（s1，s2），将字符串s1中出现的s2子字符串删去，结果存放在s1中。例如：原字符串（s1)：HelloChinaHello，删除(s2)Hello，结果：China
【提示】用instr函数取得s2在s1中开始的位置，用left和right函数取出删除s2后左边和右边的剩余部分。在s1中可能有若干个s2，需用循环进行删除；再编一个delestr函数进行比较。
该程序设计到过程，我不太会，请帮帮忙~！(编写内容要符合实验内容和提示）
在s1中可能有若干个s2，需用循环进行删除。（利用循环哦~！！）
Rem 一个command控件，三个text控件，text1输入s1，text2输入s2，点击command1执行，让text3显示结果
Private Sub Command1_Click()
Dim s1, s2
s1 = Text1.Text
s2 = Text2.Text
delestr s1, s2
Text3.Text = s1
End Sub
Private Sub delestr(s1, s2)
Dim nstart, nlen, nleft, nright
nstart = InStr(s1, s2)
Do While nstart > 0
nlen = Len(s2)
nleft = Left(s1, nstart - 1)
nright = Right(s1, Len(s1) - nstart - nlen + 1)
s1 = nleft & nright
delestr s1, s2
nstart = InStr(s1, s2)
Loop
End Sub
Private Sub Form_Load()
Text1.Text = "HelloChinaHello"
Text2.Text = "Hello"
Text3.Text = ""
End Sub
服了出题人了，人家是专门考你这些函数的作用的吧？要不然一个
Replace(s1,s2,"")就全搞定了，真不明白现在这些题都怎么出的，