学进去

学校里有一个水房，水房里一共装有 m 个水龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为1。现在有 n 名同学准备接水，他们的初始接水顺序已经确定。将这些同学按接水顺序从1到n编号，第i 位同学的接水量为 ai 。接水开始时，1 到 m 位同学各占一个水龙头，并同时打开水龙头接水。当其中某名同学j 完成其接水量要求aj后，下一名排队等候接水的同学k马上接替j同学的位置开始接水。这个换人的过程是瞬间完成的，且没有任何水的浪费。即第j位同学第x秒结束时完成接水，则第 k位同学第x+1 秒立刻开始接水。若当前接水人数n不足m，则只有n个水龙头供水，其它m-n个水龙头关闭。
小王编写了一个“计算接水时间”的程序，功能如下：程序运行时，在文本框Text1中输入每位同学的接水时间（以逗号隔开），在文本框Text2中输入水龙头数，单击“计算”按钮Command1，在标签Label1中显示所有同学接水的总时间。程序运行界面如图所示。

请回答下列问题：
（1）如图所示，若文本框Text1中输入的是“4，5，7，1，6，2，8”（不包括双引号），则所有同学接水的总时间为__秒。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim m As Integer, n As Integer, ans As Integer
Dim s As String, ch As String
Dim a(1 To 100) As Integer, b(1 To 20) As Integer
s = Text1.Text
m = Val(Text2.Text)
n = 1: t = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
t = t * 10 + Val(ch)
Else
n = n + 1
a(n - 1) = t
t = 0
End If
Next i
a(n) = t
For i = 1 To m
b(i) = i
Next i
For i = 1 To m - 1
For _________ 
If a(b(j)) < a(b(j + 1)) Then t = b(j): b(j) = b(j + 1): b(j + 1) = t
Next j
Next i
If n > m Then
For i = m + 1 To n
_____________
For j = m To 2 Step -1
If a(b(j)) > a(b(j - 1)) Then t = b(j): b(j) = b(j - 1): b(j - 1) = t
Next j
Next i
End If
__________
Label1.Caption = "共需要 " + Str(ans) + " 秒"
End sub