s2Thent=t+Mid(s1,i,1)EndIfNexts1=tEndSubPrivateSubCommand1_Click()s1="1as1dmerk1kejk"Cal" />
全部分类 > 电脑网络

VB编写一子过程Delestr(s1,s2)，将字符串s1中出现s2子字符串删去，结果仍存放于s1中

电脑网络
匿名网友 |浏览1035次
收藏|2020/06/09 17:00

满意回答

2020/06/09 17:18

完整的程序参考PrivateSubDelestr(s1,s2)t=""Fori=1ToLen(s1)IfMid(s1,i,1)<>s2Thent=t+Mid(s1,i,1)EndIfNexts1=tEndSubPrivateSubCommand1_Click()s1="1as1dmerk1kejk"CallDelestr(s1,"1")Prints1EndSub测试结果

匿名网友

其他回答(1)
  • whoami1978
    whoami1
    这个很简单，一个命令就解决，程序如下：Sub Delestr(s1,s2) s1 = Replace(s1, s2, "")End Sub
    回答于 2020/06/09 17:36
相关已解决
0人关注该问题
+1

沃锋问答-赞臣社区旗下知识互动平台| 联系我们| 使用帮助 |沪ICP备12021127号-1

Powered by 沃锋问答系统 v2.6 ©2007-2019 wenda.zanchen.net，Processed in 0.302431 second(s), 22 queries.

 加载中...