小朋友拍照
有來自K（1＜=K＜=20）個(gè)不同國家的N（1＜=N＜=100）個(gè)小朋友排成一行準(zhǔn)備拍照．國籍用數(shù)字1，2，3…N表示，每個(gè)小朋友的國籍依次存入數(shù)組a（1）到a（K）．
由于小朋友太多，沒有辦法全部被拍入．?dāng)z像師決定拍攝一段連續(xù)區(qū)間內(nèi)的小朋友，這個(gè)區(qū)間內(nèi)每種國籍的小朋友至少要有1人，求滿足要求的最小區(qū)間長度．
例如有10個(gè)小朋友，5種國籍，從左到右排列．國籍編號依次是2，1，2，4，3，3，5，5，3，5，則最小的一段包含所有5種國籍的區(qū)間是從第2個(gè)到第7個(gè)小朋友，區(qū)間長度為6．
算法解析：區(qū)間的長度至少為K（國籍的數(shù)量），最大為N（小朋友的數(shù)量）．我們可以通過二分K到N之間的求得最小區(qū)間長度．
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請改正．
Dim a（1 To 100）As Integer'依次存儲為1到100的小朋友的國籍編號
Dim K As Integer
Dim N As Integer
Private Sub Form_Load（　　）'窗體加載，生成數(shù)據(jù)
'產(chǎn)生N的值，表示人數(shù)
'產(chǎn)生K的值，表示國籍種數(shù)
'產(chǎn)生編號為1到N的小朋友的國籍編號，并存儲在數(shù)組a中
'代碼略
End Sub
Private Sub Command1_Click（　?。?使用二分的思想計(jì)算最小區(qū)間
    Dim M As Integer
    i=K：j=N'答案的范圍為K到N，即最少K，最多N個(gè)小朋友
    Do While i＜=j
        M=（i+j）\2'二分，求中間值
        If pd（M）=True Then'調(diào)用Pd函數(shù)，判斷區(qū)間長度為M時(shí)，是否包含所有國籍
          j=M-1
          ans=M'若以M為區(qū)間長度可包含所有國籍，更新答案  
        Else
           i='第①處錯(cuò)誤
        End If
     Loop
     Text1．Text=Str（ans）
End Sub

Function pd（M As Integer） As Boolean
    Dim f（1 To 20）As Integer'f（i）表示國籍為i的小朋友是否包含
    Dim t As Integer't用于統(tǒng)計(jì)當(dāng)前區(qū)間包含的國籍?dāng)?shù)量
    pd=False
    For i=1 To N-M+1'枚舉以i為起點(diǎn)的M個(gè)小朋友中，各個(gè)國籍是否包含
        For j=i To i+M-1
            f（a（j））=1'等于1，表示國籍為a（j）的小朋友已包含，0表示不包含
        Next j
        t=0 
        For j=1 To K'統(tǒng)計(jì)已包含的國籍的數(shù)量    
            t='第②處錯(cuò)誤
        Next j
        If t=K Then pd=True：Exit Function'若包含K個(gè)國籍，返回True
        For j=1 To K'f數(shù)組元素重新初始化為0
            f（j）=0
        Next j
    Next i
End Function.