学进去

有60个人要组建一个聚会，每人的喜好是一个数值，为提升聚会效果，会务组要把参会人员进行分组，分组原则是：
（1）每组不超过8人
（2）组内新增人员的喜好值必须与现有组内人员的平均喜好值相差在5以内
（3）若新增人员无法加入现有小组，则被分入新组建小组
小V同学根据上述算法设计编写了VB程序，界面如图所示，单击“分组”按钮后，在列表框list1输出分组结果，每组一行，回答下列问题：
Dim a(1 To 60) As Integer '各人的喜好值
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer，s as String
Dim b(1 To 480) As Integer '分组后喜好值
Dim ave(1 To 60) As Integer, num(1 To 60) As Integer
For i = 1 To 60 ‘预设60个分组
num(i) = 1
ave(i) = 0
Next i
c = 1: ave(1) = a(1): b(1) = a(1)
For i = 2 To 60
For j = 1 To c
If Abs(a(i) - ave(j)) <= 5 And num(j) < 8 Then
ave(j) = ___________
num(j) = num(j) + 1
b(j * 8 - 8 + num(j)) = a(i)
Exit For
End If
Next j
If ________Then
b(c * 8 + 1) = a(i)
ave(j) = a(i)
c = c + 1
End If
Next i
s = ""
For i = 1 To c
For j = 1 To __________
s = s + Str(b((i - 1) * 8 + j))
Next j
List1．AddItem s
s = ""
Next i
End Sub
Private Sub Form_Load()
‘生成60个原始数据，存入数组a，数组b各元素初始化为0，代码略
End Sub
（1）如图所示，当前数据已被分组,若再新增一个数“64”，会被分在第_____组。

（2）在程序划线处填入合适代码，使程序完整。