VB子过程

来源：百度知道 编辑：UC知道 时间：2024/09/24 00:37:17
编一个子过程DelrStr(s1, s2)，将字符串s1中出现的s2子字符串删去，结果存放在s1中。
例如：s1="12345678AAABBDFG12345" s2="234"
结果：s1="15678AAABBDFG15"

过程(SUB)一般不返回值,只是执行一个过程,完成一些操作
需要返回值的,可以使用函数(FUNCTION)

function 如下:
Private function DelrStr(byval s1 As String,byval s2 As String)
DelrStr = replace(s1,s2,"")
End Sub
调用如下:
dim str1 as string,str2 as string ,sResult as string
str1="12345678AAABBDFG12345"
str2="234"
sResult=DelrStr(str1,str2,"")

sub 如下:
Private Sub DelrStr(s1 As String,byval s2 As String)
s1 = replace(s1,s2)
End Sub
调用如下:
dim str1 as string,str2 as string ,sResult as string
str1="12345678AAABBDFG12345"
str2="234"
DelrStr str1,str2
sResult=str1

细细比较一下其中的区别,其中涉及到多个知识点.

Private Sub DelrStr(s1 As String, s2 As String)
s1 = Left$(s1, InStr(s1, s2) - 1) & Right$(s1, Len(s1) - InStr(s1, s2) - Len(Trim(s2)) + 1)
End Sub

sub DelrStr(s1, s2)
dim n as integer
n=instr(s1,s2)
s1=left(s1,n-1)+right(s1,len(s1)