题目来源：大工慕课链接
原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社实验6-8
作者：Caleb Sung

题目要求

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

提示：

为了删除子串,首先利用InStr函数查找子串；若找到则通过Left、Mid（或Right）函数实现子字符串的删除；同时要利用循环考虑到删除多个子串的情况。

参考代码

Private Sub DeleStr(s1 As String, ByVal s2 As String)Dim i%ls2 = Len(s2)i = InStr(s1, s2)Do While i > 0s1 = Left(s1, i - 1) + Mid(s1, i + ls2)i = InStr(s1, s2)Loop
End SubPrivate Sub Command1_Click()Dim ss1 As Stringss1 = Text1Call DeleStr(ss1, Text2)Text3 = ss1
End Sub

VB：编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中相关推荐

VB讲课笔记09：过程
VB讲课笔记09:过程一.键盘与鼠标事件过程用户对程序界面的操作都是通过键盘和鼠标完成的.
VB编PiView4注册机
以下为VB6源代码,欢迎转载程序代码: Begin VB.Form frmMain BorderStyle = 1 'Fixed Single Caption ...
项目管理的5大过程/ 9大知识领域/44个子过程
项目管理的5大过程分别是: (1)启动过程 (2)规划过程 (3)执行过程 (4)监控过程 (5)收尾过程 9大知识领域分别是: (1)项目整合管理 (2)项目范围管理 (3)项目时间管理 (4)项目 ...
使用编译版rtklib过程中如何进行main的调试（spp ppp）
使用编译版rtklib过程中如何进行main的调试(spp ppp) 在编译版rtklib的调试过程中,需要在main函数中定义一些参数. 在进行spp(伪距单点定位)的时候,我们通常这样设定相关参数 ...
练习2-4：重新编写函数squeeze(s1,s2),将字符串s1中的任何字符与字符串时s2中的字符匹配的字符都删除
#include <stdio.h> void squeeze(char s1[], char s2[]); int main(){/*练习2-4:重新编写函数squeeze(s1,s2) ...
vb.net图书管理系统VS开发sqlserver数据库web结构vb编程源码网页
一.源码特点 vb.net 图书管理系统是一套完善的web设计管理系统,系统具有完整的源代码和数据库,系统主要采用B/S模式开发. 下载地址: vb.net图书管理系统VS开发sql ...
c#设计12星座速配软件_星座代码:用vb编一个星座配对的程序代码
星座代码:用vb编一个星座配对的程序代码 admin 来源: 2020-04-30 10:04:55 阅读() 评论(0) 关于十二星座C#代码不同星座的程序员写起代码来分别是什么样子的?求你的计算生 ...
判断字符串s1中是否包含s2字符串c语言,C语言：找出s1中是否存在字符串s2(C language: find out if string s2 exists in s1)...
C语言:找出s1中是否存在字符串s2(C language: find out if string s2 exists in s1) 是否有任何C函数来检查s1中是否存在字符串s2? s1: &quo ...
编写一个程序，将一个子字符串s2插入到主字符串s1中，其插入位置为n
本题可以看做一个字符串拼接问题,需要一个载体数组 #include<stdio.h> void insert_array(char s1[],char s2[],int n); /** 思 ...

VB：编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中

题目要求

提示：

参考代码

VB：编一个子过程DeleStr(s1,s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中相关推荐

最新文章

热门文章