过桥问题。n个旅行者在夜晚要通过一座狭窄的桥，桥上最多只能上2个人且必须借助手电筒，手电筒只有一只。为了所有人在最短时间内过桥，设计算法如下：
（1）如果只有1人过桥，时间为个人过桥时间。
（2）如果有2人一起过桥，时间以慢的人为准。
（3）如果有3个人a、b、c,耗时T_a＜T_b＜T_c，过桥方案为让a和b一起过桥，a拿手电筒回来，然后与c一起过桥。
（4）如果存在多于3个人，如a、b、……、y、z需要过桥，耗时T_a＜T_b…＜T_y＜T_z，这时有两种可选方案，选择其中用时少的，直至剩余少于4人。
①最快的1个将最慢的2个分别送过桥。
a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；
②最快的2个将最慢的2个送过桥。
让a、b拿手电筒先过桥，a本手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。
为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮 Command1，在文本框Text1中输出最短耗时，界面如图a所示。

（1）V程序代码如下，请在横线处填入合适的代码。
Dim n As Integer‘存放过河人数
Dim t（1 To 100）As Integer’存放每个人单独过桥时间
Private Sub Form_ Load（　　）
从数据库中读取每个人的过桥时间显示在列表框List1中，并统计总人数n,代码略
End  Sub
Private Sub Commandl Click（　　）
Dim i As Integer,k As Integer,j As Integer,temp As Integer
Dim suml 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 Ton
If①

t（k）＞t（j）

t（k）＞t（j）

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 suml＜sum2 Then
tsum=tsum+sum2
End If
i=

I-2

I-2

Loop
If n=1 Then'剩下1个人
tsum=tsum+t（1）
ElseIf n 2 Then'剩下2个人
tsum=tsum+t（2）
Els'剩下3个人
tsum=③

=tsum+t（1）+t（2）+t（3）

=tsum+t（1）+t（2）+t（3）

End if
Textl.Text=Str（tsum）
End Sub
（2）如有5个人，他们单独过桥耗时（单位s）如图b所示，则程序运行后文本框Text2中显示的最短耗时是

98

98

（s）