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

實現(xiàn)上述功能的VB程序如下：
Private　Sub　Command1_Click （　?。?br />Dim　a（1To　1000）As　String'數(shù)組a存儲文中出現(xiàn)該指定單詞（或字符串）的各個位置
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=　　　?、?/bdo>
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
（1）畫線處①應(yīng)填入的是

Mid（s,i,Len（c））

Mid（s,i,Len（c））

．
（2）畫線處②應(yīng)填入的是

Str（max）

Str（max）

．