当前位置:首页 » VB程序题 » 正文

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号