字符串删除与插入．给定一个长度不超过100位的字符串S，现有以下两种操作指令．
指令1（删除）：给出一个字符串S1，在字符串S中找到最左边的一个字符串S1，将其删除，若在S中不存在字符串S1，则字符串S不变．
例如：S=“China　is　a　big　family,it　is　big”S1=“big”
则执行指令1后，S=“China　is　a　family,it　is　big”
若S1=“small”，则S不变．
指令2（插入）：给出一个字符串S2，和一个整数w,将S2插入到S中以w开始的位置．
例如：S=“a　big　family”S2=“very”w=3
则执行指令2后，S=“a　very　big　family”
注意S中“a”后有一个空格，S2中“y”后有一个空格
实现上述功能的VB程序如下．请在横线处填入合适代码．
Dim　S　As　String
Private　Sub　Command1_Click（　　）’单击Command1实现删除指令
Dim　S1As　String
S=Text1．Text
S1=Text2．Text
S=del（S1）
Text5．Text=S
End　Sub
Private　Sub　Command2_Click（　　）’单击Command2实现插入指令
Dim　S2As　String,W　As　Integer
S=Text1．Text
S2=Text2．Text
W=Val（Text4．Text）
S=（1）

add（S2，W）

add（S2，W）

’调用函数，实现插入指令
Text5．Text=S
End　Sub
Function　del（S1As　String）　As　String’在字符串S中查找并删除S1
Dim　S3As　String
For　i=1To　Len（S）-Len（S1）+1
S3=““’S3表示从位置i开始，取出长度和S1相同的字符串
For　j=i　To　i+Len（S1）-1
S3=S3+Mid（S，j,1）
Next　j
If　（2）

S1=S3

S1=S3

　Then’如果找到S1，则将S1删除
S=Mid（S，1，i-1）+Mid（S，i+Len（S1），Len（S）-Len（S1）-i+2）
del=S
Exit　Function’删除左边的第一个S1后，退出函数，以保证只删除一次
End　If
Next　i
End　Function
Function　add（S2As　String,W　As　Integer）　As　String
S=Mid（S，1，W-1）+S2+（3）

Mid（S，W，Len（S）-W+1）或Mid（S，W）

Mid（S，W，Len（S）-W+1）或Mid（S，W）

’将S2插入W开始的位置
add=S
End　Function.