學校里有一個水房，水房里一共裝有 m 個水龍頭可供同學們打開水，每個龍頭每秒鐘的供水量相等，均為 1?，F(xiàn)在有 n 名同學準備接水，他們的初始接水順序已經(jīng)確定。將這些同學按接水順序從 1到 n 編號，第i 位同學的接水量為 ai。接水開始時，1 到 m 位同學各占一個水龍頭，并同時打開水龍頭接水。當其中某名同學j 完成其接水量要求aj 后，下一名排隊等候接水的同學 k馬上接替 j 同學的位置開始接水。這個換人的過程是瞬間完成的，且沒有任何水的浪費。即第j 位同學第 x 秒結束時完成接水，則第 k 位同學第 x+1 秒立刻開始接水。若當前接水人數(shù) n不足 m,則只有 n個水龍頭供水，其它m-n個水龍頭關閉。
小王編寫了一個“計算接水時間”的程序，功能如下：程序運行時，在文本框Text1中輸入每位同學的接水時間（以逗號隔開），在文本框Text2中輸入水龍頭數(shù)，單擊“計算”按鈕Command1，在標簽Label1中顯示所有同學接水的總時間。程序運行界面如圖所示。

請回答下列問題：
（1）如第圖所示，若文本框Text1中輸入的是“4，5，7，1，6，2，8”（不包括雙引號），則所有同學接水的總時間為

15

15

秒。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （　?。?br />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