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

7

7

。
（2）請在橫線處填入合適的代碼。
Dim a（1 To 50）As Integer,T As Integer,Number As Integer,Total As Integer Private Sub Form_Load （　?。a(chǎn)生 Number 的值，表示參賽人數(shù)，產(chǎn)生 Total 的值，表示包含的班級數(shù)’產(chǎn)生 Number 個編號為 1-Total 的班級編號，并存儲在數(shù)組 a 中’代碼略
End Sub
Private Sub Command1_Click （　　）
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