過橋問題。n個(gè)旅行者在夜晚要通過一座狹窄的橋，橋上最多只能上2個(gè)人且必須借助手電筒，手電筒只有一只。為了所有人在最短時(shí)間內(nèi)過橋，設(shè)計(jì)算法如下：
（1）如果只有1人過橋，時(shí)間為個(gè)人過橋時(shí)間。
（2）如果有2人一起過橋，時(shí)間以慢的人為準(zhǔn)。
（3）如果有3個(gè)人a、b、c,耗時(shí)T_a＜T_b＜T_c，過橋方案為讓a和b一起過橋，a拿手電筒回來，然后與c一起過橋。
（4）如果存在多于3個(gè)人，如a、b、……、y、z需要過橋，耗時(shí)T_a＜T_b…＜T_y＜T_z，這時(shí)有兩種可選方案，選擇其中用時(shí)少的，直至剩余少于4人。
①最快的1個(gè)將最慢的2個(gè)分別送過橋。
a拿手電筒與z過橋，然后a拿手電筒回來再與y一起過橋，a拿手電筒回來；
②最快的2個(gè)將最慢的2個(gè)送過橋。
讓a、b拿手電筒先過橋，a本手電筒回來，讓y、z手拿電筒過橋，然后b拿手電筒回來。
為驗(yàn)證方案，小明設(shè)計(jì)了相應(yīng)的VB程序。首先從數(shù)據(jù)庫中獲取每個(gè)人的過橋時(shí)間，并顯示在列表框List1中，單擊“計(jì)算”按鈕 Command1，在文本框Text1中輸出最短耗時(shí)，界面如圖a所示。

（1）V程序代碼如下，請?jiān)跈M線處填入合適的代碼。
Dim n As Integer‘存放過河人數(shù)
Dim t（1 To 100）As Integer’存放每個(gè)人單獨(dú)過橋時(shí)間
Private Sub Form_ Load（　?。?br />從數(shù)據(jù)庫中讀取每個(gè)人的過橋時(shí)間顯示在列表框List1中，并統(tǒng)計(jì)總?cè)藬?shù)n,代碼略
End  Sub
Private Sub Commandl Click（　?。?br />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“對每個(gè)人的過橋耗時(shí)進(jìn)行升序排序
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個(gè)人
tsum=tsum+t（1）
ElseIf n 2 Then'剩下2個(gè)人
tsum=tsum+t（2）
Els'剩下3個(gè)人
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個(gè)人，他們單獨(dú)過橋耗時(shí)（單位s）如圖b所示，則程序運(yùn)行后文本框Text2中顯示的最短耗時(shí)是

98

98

（s）