【加試題】小王編寫(xiě)了一個(gè)實(shí)現(xiàn)文字查找替換功能的VB程序，運(yùn)行界面如圖所示．文本框Text1顯示原文內(nèi)容，Text2中輸入查找內(nèi)容，Text3中輸入替換內(nèi)容，單擊“全部替換”按鈕Command1后，Text4顯示查找替換的結(jié)果，Text5中顯示替換的次數(shù)，Text6顯示“查找內(nèi)容”在原文中的起始位置．

實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Command1_Click（　?。?br />Dim s As String,resule As String,pos As String
Dim count As Integer,i As Integer
i=1：count=0
result=““：pos=““
Do While i＜=Len（Text1．Text）
s=Mid（Text1．Text,i,Len（Text2．Text））
If s=Text2．Text Then
result=result+Text3．Text
count=count+1
pos=pos+Str（count）
i=i+Len（Text2．Text）
Else
result=result+Text2．Text
i=i+1
End If
Loop
Text4．Text=result
Text5．Text=Str（count）
Text6．Text=pos
End Sub.