过桥问题。n个旅行者在夜晚要通过一座狭窄的桥，桥上最多只能上2个人且必须借助手电筒，手电筒只有一只。为了使所有人在最短时间内过桥，设计算法如下：
（Ⅰ）如果只有1人过桥，时间为个人过桥时间。
（Ⅱ）如果有2人一起过桥，时间以慢的人为准。
（Ⅲ）如果有3个人a、b、c，时T
a<T
b<T
c，过桥方案为让a和b起过桥，a拿手电筒回来，然后与c一起过桥。
（Ⅳ）如果存在多于3个人过桥，如a、b、…y、z需要过桥，耗时T
a<T
b<…<T
y<T
x，这时有两种可选方案，选择其中用时少的，直至剩余人数少于4人。
①最快的1个将最慢的2个分别送过桥。
a拿手电筒与z过桥，然后a拿手电筒回来与y一起过桥，a再拿手电筒回来与b一起过桥。
②最快的2个先将最慢的2个送过桥。
让a、b拿手电筒先过桥，a拿手电筒回来，让y、z拿手电筒过桥，然后b拿手电筒回来与a一起过桥。
为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮 Command1，在文本框Text1中输入最短耗时，界面如下图所示。
（1）VB程序代码如下,请在划线处填入合适的代码。
Dim n As Integer ‘存放过河人数
Dim t (1 To 100) As Integer ‘存放每个人单独过桥时间
Private Sub Form _ load()
‘从数据库中读取每个人的过桥时间,显示在列表框List1中,并统计总人数n,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, k As Integer, j As Integer, temp As Integer
Dim sum1 As Integer, sum2 As Integer, tsum As Integer
sum1 = 0:sum2 = 0:tsum=0
For i = 1 To n – 1 ‘对每个人的过桥耗时进行升序排序
k = i
For j = i + 1 To n
If ______ Then k = j
Next j
If k <> i Then
temp t(i):t(i) = t(k):t(k) = temp
End if
Next i
i=n
do while i>3
sum1=2*t(1)+t(i-1)+t(i) ‘方案①
sum2=t(1)+2*t(2)+t(i) ‘方案②
if sum1<sum2 then
tsum=tsum+sum2
end if
i=_____
Loop
If n = 1 Then ‘剩下1个人
tsum = tsum + t(1)
ElseIf n = 2 Then ‘剩下2个人
tsum = tsum + t(2)
Else ‘剩下3个人
tsum = _____
End If
Text1. Text = Srt(tsum)
End Sub
（2）如有5个人，他们单独过桥耗时（单位：s）如下图所示，则程序运行后文本框Text2中显示的最短耗时：_________(s)。
