学校里有一个水房，水房里一共装有 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”（不包括双引号），则所有同学接水的总时间为

15

15

秒。
（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 ①

j=1 to m-i

j=1 to m-i

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
②

a（b（m））=a（b（m））+a（i）

a（b（m））=a（b（m））+a（i）

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
 ③

ans=a（b（1））

ans=a（b（1））

Label1.Caption=“共需要“+Str（ans）+“秒“
End sub