運(yùn)動(dòng)會(huì)的跳高項(xiàng)目有來自 total（1≤total≤50）個(gè)不同班級(jí)同學(xué)參加，隨機(jī)抽取一段參賽信息，要求所有參賽班級(jí)的參賽人數(shù)至少1個(gè)，求滿足要求的最小區(qū)間長(zhǎng)度。
參賽班級(jí)用數(shù)字1，2，3，4……number表示，依次存入數(shù)組a（1）～a（number），若1號(hào)班級(jí)的編號(hào)為5，則a（1）=5。
（1）若有15個(gè)參賽學(xué)生，分別來自于6個(gè)不同的班級(jí)，從左到右排列，班級(jí)編號(hào)依次為2，3，6，3，5，5，3，1，4，2，3，2，5，1，6則最小的區(qū)間長(zhǎng)度為

7

7

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim a（1 To 50）As Integer,T As Integer,Number As Integer,Total As Integer Private Sub Form_Load （　　）’產(chǎn)生 Number 的值，表示參賽人數(shù)，產(chǎn)生 Total 的值，表示包含的班級(jí)數(shù)’產(chǎn)生 Number 個(gè)編號(hào)為 1-Total 的班級(jí)編號(hào)，并存儲(chǔ)在數(shù)組 a 中’代碼略
End Sub
Private Sub Command1_Click （　?。?br />End If
Loop
Text1．Text=Str（ans）
End Sub
Function pd（M As Integer） As Boolean
Dim mid As Integer
i=Total：j=Number
Do While i＜=j
mid=（i+j）\2
If pd（mid）=①

True

True

Then
j=mid-1
ans=mid
Else
i=mid+1
Dim b（1To 100）As Integer
Dim T As Integer
pd=False
For i=1 To Number-M+1
For j=i To i+M-1
②

b（a（j））=1

b（a（j））=1

Next j
T=0
For j=1 To Total
T=T+b（j）
End If
Loop
Text1．Text=Str（ans）
End Sub
Function pd（M As Integer） As Boolean
Next j
If T=③

Total

Total

Then pd=True：Exit Function
Next i
End Function