运动会的跳高项目有来自 total（1≤total≤50）个不同班级同学参加，随机抽取一段参赛信息，要求所有参赛班级的参赛人数至少1个，求满足要求的最小区间长度。
参赛班级用数字1，2，3，4……number表示，依次存入数组a（1）～a（number），若1号班级的编号为5，则a（1）=5。
（1）若有15个参赛学生，分别来自于6个不同的班级，从左到右排列，班级编号依次为2，3，6，3，5，5，3，1，4，2，3，2，5，1，6则最小的区间长度为

7

7

。
（2）请在横线处填入合适的代码。
Dim a（1 To 50）As Integer,T As Integer,Number As Integer,Total As Integer Private Sub Form_Load （　　）’产生 Number 的值，表示参赛人数，产生 Total 的值，表示包含的班级数’产生 Number 个编号为 1-Total 的班级编号，并存储在数组 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