用VB編寫程序?qū)崿F(xiàn)：從某一字符串中刪除指定的字符串，并將處理后的字符串重新輸出。程序界面如圖1所示，在文本框Text1中輸入原始字符串，在文本框Text2中輸入需要刪除的字符串，單擊“刪除字符串”按鈕Command1后，在文本框Text3中輸出處理后的結(jié)果。

（1）在設(shè)計應(yīng)用程序界面時，應(yīng)使用圖2所示“控件工具箱”中的

4

4

（填寫相應(yīng)編號）添加按鈕。
（2）窗體按鈕上顯示的文字“刪除字符串”是需要修改按鈕Command1的

Caption

Caption

屬性值修改為“刪除字符串”。
（3）為實現(xiàn)上述功能，請在橫線處填入合適的代碼。
Private Sub Command1_Click ____
Dim s As Integer,r As Integer,c As Integer
Dim source As String,delstr As String,ch As String
c=0：i=1
source=Text1.Text：delstr=Text2.Text
s=Len（source）
r=Len（delstr）
Do While s-i+1＞=r
ch=Mid（source,i,r）
If ch=delstr Then
source=Mid（source,1，i-1）+①

Mid（source,i+r）

Mid（source,i+r）

s=Len（source）
②

c=c+1

c=c+1

Else
i=i+1
End If
Loop
Label4.Caption=“共刪除：“+Str（c）+“處“
Text3.Text=source
End Sub