效实中学的同学静校时间经常要被叫去过关，今天又有��个同学要去过关啦～但 这些同学很不幸，他们必须先过�老师的关，再过�老师的关，才能完成过关任务。现在知道每个人过�、�关的时间，比如第��个人，过关的时间分别为�，�．求一 个过关顺序使得过关时间总用时最短，就是让�、�老师的总空闲时间最短。很明显第一个同学在�老师处过关时，�老师必须等待，最后一个同学在�老师处过 关时，�老师也在等待。因此将在�处过关最短的放在最前面，将在�处过关最短的
放在最后面
假设�是�，�中较小的那一个，例如�=3时，过关时间如表：

编号	1	2	3
A	22	3	19		排序后	编号	2	1	3
B	10	17	15			M	3	10	15
M	10	3	15

若�=�，则将他排在从头开始过关者后面；若�=�，则将他排在从尾开始过关者前面；
则最优的过关顺序为（同学 2，同学 3，同学 1），计算最短时间=3+19+22+10=54，计算时请注意，在过程中若�老师的过关时长较长，会增加�老师的过关时长，最后还需要加上�老师过关的最后一个同学的过关时长。
实现上述功能的 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
'输入略，将同学在 A 老师处的过关时间存在 a 数组，在 B 老师处的时间存在 b 数组
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 老师处过关的 5 个同学的时间分别是：3 5 8 7 10，在 B 老师处过关的 是 6 2 1 4 9，那么，最终过关的总时间是

？
（2）补充①、②、③处代码实现上述功能。