VB程序题：编一个子过程 DeleStr(s1,s2),将字符串s1中出现的s2子字符删去，结果存放在s1中。Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

VB程序题：编一个子过程 DeleStr(s1,s2),将字符串s1中出现的s2子字符删去，结果存放在s1中。
例如：s1= "12345678AAABBDFG12345" S2= "234 "
结果: s1= "15678AAABBDFG15 "

解题，画三个文本框，一个按钮，三人标签，代码如下：
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) ' 在s1中去除s2子串
        i = InStr(s1, s2)
    Loop
End Sub
Private Sub Command1_Click()       ' 调用DeleStr子过程
    Dim ss1 As String
    ss1 = Text1
    Call DeleStr(ss1, Text2)
    Text3 = ss1
End Sub

运行程序,效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/95.html