小明編寫了一個(gè)VB程序，功能如下：在文本框Text1中輸入一段英文，并在文本框Text2中輸入英文段落中的某個(gè)單詞（或字符串），單擊“最大間距”按鈕（Command1）后，在文本框Text3中顯示該單詞在文中某兩次出現(xiàn)的最大間距，若只出現(xiàn)一次或不出現(xiàn)則顯示值為0．程序運(yùn)行界面如圖所示：

實(shí)現(xiàn)上述功能的VB程序如下：
Private Sub Command1_Click （　?。?br />Dim a（1To 1000）As String'數(shù)組a存儲(chǔ)文中出現(xiàn)該指定單詞（或字符串）的各個(gè)位置
Dim s As String,c As String,ch As String
Dim n As Integer,max As Integer,i As Integer
s=Text1．Text
c=Text2．Text
n=0：Max=0
For i=1To Len（s）-Len（c）+1
ch=①          
If ch=c Then
n=n+1
a（n）=i
If n＞=2Then
If a（n）-a（n-1）-Len（c）＞Max Then Max=a（n）-a（n-1）-Len（c）
End If
End If
Next i
Text3．Text=②            
End Sub
以上程序段運(yùn)行時(shí)，為了實(shí)現(xiàn)上述功能，橫線處①和②應(yīng)填入的代碼分別為：
（1）

Mid（s,i,Len（c））

Mid（s,i,Len（c））

； （2）

Str（Max）

Str（Max）

。