过桥问题。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)。

ual Basic中窗体文件的扩展名为（    ）

A．exe

B．frm

C．vbp

D．vbw

输入一正整数并判断是奇数还是偶数的算法描述如下图所示：

该流程图中，语句“x mod 2 = 0？”，应加的框图为(  )

A．

B．

C．

D．

有如下VB程序：
Dim i As Integer，j As Integer，k As String，n As Integer
n＝3
List1.Clear
For i＝1 To n
k＝“”
For j＝1 To i
k＝k＋“*”
Next j
List1.AddItem k
Next i
该程序运行中，在列表框List1中显示的是(  )

A．	B．
C．	D．

一个VB工程的部分设计界面如图所示。下列说法不正确的是(　　)

①工程文件名是“工程1.vbp” ②该工程只有1个窗体
③窗体文件名是“Form.frm” ④窗体名称是“寻找水仙花数”

A．①②

B．②③

C．①③

D．③④