字符串删除与插入：给定一个长度不超过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 S1 As String
S=Text1．Text
S1=Text2．Text
S=del（S1）
Text5．Text=S
End Sub
Private Sub Command2_Click （　　）’单击Command2实现插入指令
Dim S2 As 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（S1 As String） As String’在字符串S中查找并删除S1
Dim S3 As String
For i=1 To 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（S2 As String,W As Integer） As String
S=Mid（S，1，W-1）+S2+（3）

mid（s,w,len（s）-w+1）

mid（s,w,len（s）-w+1）

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