查找最短26個(gè)字母字符串：在文本框Text1中輸入任意一串包含小寫(xiě)字母的字符串（長(zhǎng)度n＞=26），要求找到長(zhǎng)度最小的一段區(qū)間，能夠包含全部26個(gè)小寫(xiě)英文字母。小王設(shè)計(jì)了VB程序用于搜索最短字符串，單擊“查找”按鈕command1，若無(wú)解，則在標(biāo)簽Label1中輸出“無(wú)解！”，反之程序在標(biāo)簽Label1中輸出該最小區(qū)間的長(zhǎng)度以及字符的開(kāi)始位置，并在文本框Text2中輸出相應(yīng)的最短字符串，程序界面如圖所示：
（1）確定初始右邊界：從第1個(gè)字符開(kāi)始，向右搜索到包含全部26個(gè)字母的子串，并因此而確定右邊界，同時(shí)記錄每個(gè)字母在子串中出現(xiàn)過(guò)的次數(shù)。
（2）調(diào)整子串左邊界：若左邊界有重復(fù)的字母則表明該子串可縮短，故左邊可右移1位……直到找到一個(gè)符合條件的子串并記錄，然后子串左邊界再右移1位。
（3）調(diào)整子串右邊界：子串右邊界繼續(xù)右移，在新子串符合條件后，記錄并進(jìn)行比較。
重復(fù)（2）各調(diào)整步驟，直至遍歷完整個(gè)字符串，獲得并輸出滿足條件的最小長(zhǎng)度字符串。

實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問(wèn)題。
（1）對(duì)于字符串“qbwcadsgeqbdatcy”，包括字母“abcde”的最短字符串長(zhǎng)度為

7

7

（填數(shù)字）。
（2）請(qǐng)?jiān)诋?huà)線處填入合適的代碼。
Const n=300
Dim i As Integer,k As Integer,length As Integer,L As Integer
Dim pos As Integer,s1 As String,res As String
Dim f（1 To 26）As Integer'數(shù)組f記錄每個(gè)小寫(xiě)英文字母的出現(xiàn)次數(shù)
Dim s（1 To n）As Integer'數(shù)組s記錄每個(gè)輸入字符在字母表中的位置
Private Sub Command1_Click （　?。?br />res=““
s1=Text1.Text
For i=1 To Len（s1）
s（i）=①

Asc（Mid（s1，i,1））-96

Asc（Mid（s1，i,1））-96

Next i
k=0：pos=1：length=n
For i=1 To 26
f（i）=0
Next i
For i=1 To Len（s1）
If f（s（i））=0 Then k=k+1
f（s（i））=f（s（i））+1'調(diào)整右邊界，直到達(dá)到26個(gè)字母
Do While②

k=26

k=26

f（s（pos））=f（s（pos））-1
If③

f（s（pos））=0

f（s（pos））=0

 Then
k=k-1
If i-pos+1＜length Then
length=i-pos+1
res=Mid（s1，pos,length）
L=pos
End If
End If
pos=pos+1
Loop
Next i
If res＜＞““Then
Text2 Text=res
Label1.Caption=“最短長(zhǎng)度：“+Str（length）+“開(kāi)始位置：“+Str（L）
Else
Label1.Caption=“無(wú)解!“
End If
End Sub