学进去

学校筹办社团节，每个社团先到A场地做“准备”，然后到B场地“风采展示汇报”。同一场地，同一时间只允许一个社团使用。每个社团使用

A．B场地时间都有所不同。已知学校共n个社团，第i个社团使用A场地时长为a[i]分钟，使用B场地时长为b[j]分钟。为了更高效的组织这次活动，某同学编写了如下VB程序计算此次活动的最小总时长和社团参会的顺序。

算法思路：
1）统计m(i)表示第i个社团中在A和B两个场地中用时的较小值。
2）按m(i)值从小到大排序，然后按m(i)值的顺序，逐个社团安排参会顺序，策略如下：为了使得总时长最短，让A场地用时最少的最先开始；B场地用时最少的最后开始。对于每个社团，若m与该社团在A场地使用时间相同，则将它排在剩余的可排位置的最前面，若m(j)与该社团B场也使用的时间相等，则将它安排在剩余可排位置的最后面。例如：N=5，社团序号分别是{1，2，3，4，5}1至5号社团使用A场地的时间依次为：{3，5，8，7，10}，1至5号社团使用B场地的时间依次为：{6，2，1，4，9}，按上述算法可求得5个社团m[j]的值依次为：{3，2，1，4，9}。
（1）按上述算法策略，5个社团中最先进入A场地的社团的序号是__________（填数字）。
（2）请在划线处填入合适的代码。
①处代码______________；②处代码______________；③处代码______________。
Dim s(1 To 100)As Integer 's(i)表示第i社团存储社团序号
Dim a(1 To 100)As Integer 'a(i)表第i社团使用A场地时间
Dim b(1 To 100)As Integer 'b(i)表示第i社团使用B场地时间
Dim m(1 To 100)As Integer 'm(i)表示第i社团两个场地用时间的较小值
Dim ans(1 To 100)As Integer 'ans(i)表示第i个参会的社团序号
Dim n As Integer
Private Sub Form _Load()
'从文件中读取N的值和每个社团使用A场地和B场地的时间分别存入a(i)和b(i)，代码略
End Sub
Private Sub Command1_Click0()
For i =1 To n

m(i)=(i):s(i)=i

If  ①  Then m(i)=b(i)

Next i
For i=1 Ton-1

For j=i+1Ton

If m(i)>m(j)Then
t=m(i):m(i)=m(j):m(j)=t
t=s(i):s(i)=s(i):s(i)=t
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(i)=s(i)

End If

Next i
'输出第i个参会的社团的序号ans(i)
For i =1 To n

Listladditem第"+ Str(i)+“个参会的社团序号为"+s(ans(i))

Next i
'根据当前社团参会顺序，计算总时长
k=0:t=0
For i =1 To n

k= k+ a(ans(i))

If t < k Then  ③  

t=t+ b(ans(i))

Next i
List1.AddItem"最少的总用时:"+ Str(t)
End Sub