效實(shí)中學(xué)的同學(xué)靜校時間經(jīng)常要被叫去過關(guān)，今天又有??個同學(xué)要去過關(guān)啦～但 這些同學(xué)很不幸，他們必須先過?老師的關(guān)，再過?老師的關(guān)，才能完成過關(guān)任務(wù)?，F(xiàn)在知道每個人過?、?關(guān)的時間，比如第??個人，過關(guān)的時間分別為?，?．求一 個過關(guān)順序使得過關(guān)時間總用時最短，就是讓?、?老師的總空閑時間最短。很明顯第一個同學(xué)在?老師處過關(guān)時，?老師必須等待，最后一個同學(xué)在?老師處過 關(guān)時，?老師也在等待。因此將在?處過關(guān)最短的放在最前面，將在?處過關(guān)最短的
放在最后面
假設(shè)?是?，?中較小的那一個，例如?=3時，過關(guān)時間如表：

編號	1	2	3
A	22	3	19		排序后	編號	2	1	3
B	10	17	15			M	3	10	15
M	10	3	15

若?=?，則將他排在從頭開始過關(guān)者后面；若?=?，則將他排在從尾開始過關(guān)者前面；
則最優(yōu)的過關(guān)順序?yàn)椋ㄍ瑢W(xué) 2，同學(xué) 3，同學(xué) 1），計(jì)算最短時間=3+19+22+10=54，計(jì)算時請注意，在過程中若?老師的過關(guān)時長較長，會增加?老師的過關(guān)時長，最后還需要加上?老師過關(guān)的最后一個同學(xué)的過關(guān)時長。
實(shí)現(xiàn)上述功能的 VB 程序如下：
Private Sub Command1_Click（　　）
Dim a（1 To 100）As Integer,b（1 To 100）As Integer
Dim m（1 To 100）As Integer,s（1 To 100）As Integer
Dim ans（1 To 100）As Integer,n As Integer,tmp As Integer
Dim k As Integer,i As Integer,j As Integer,t As Integer
'輸入略，將同學(xué)在 A 老師處的過關(guān)時間存在 a 數(shù)組，在 B 老師處的時間存在 b 數(shù)組
n=5
For i=1 To n
If a（i）＞b（i） Then m（i）=b（i） Else m（i）=a（i）
s（i）=i
Next i
For i=1 To n-1
For j=i+1 To n
If ①

 Then
tmp=m（i）：m（i）=m（j）：m（j）=tmp tmp=s（i）：s（i）=s（j）：s（j）=tmp
End If
Next j
Next i
k=0：t=n+1
For i=1 To n
If  ②

  Then k=k+1
ans（k）=s（i）
Else
t=t-1 ans（t）=s（i）
End If
Next i
k=0：t=0
For i=1 To n
k=k+a（ans（i））
If   ③

  Then t=k t=t+b（ans（i））
Next i Print t End Sub
請回答下列問題：
（1）若在 A 老師處過關(guān)的 5 個同學(xué)的時間分別是：3 5 8 7 10，在 B 老師處過關(guān)的 是 6 2 1 4 9，那么，最終過關(guān)的總時間是

？
（2）補(bǔ)充①、②、③處代碼實(shí)現(xiàn)上述功能。