学进去

活动课上，n个学生要两两组队进行拔河比赛，要求每个小组总体重不超过 120 kg，小林想知道最多可以组成多少个队伍，并希望得到可行的组队方案。于是设计了如图所示的程序界面，在文本框Text1中输入n个学生的体重（数字之间用逗号隔开），单击“队伍”按钮Command1后，在标签Labell中显示最多可组队数量，同时在列表框List1中输出方案。实现上述功能的程序如下，请在横线处填入合适的代码。
                      
Dim n As Integer
Dim a(1 To 50) As Integer
Sub makedata(s As String)'该过程将输科的体重分别存入数组a中

Dim n As Long,x As Long,c As String, i As Integer

m=Len(s):n=0

For i=1 To m

c=Mid(s,i,1)
If c>="0" And c<="9" Then
x=（1）___________
Else
If x>0 Then n=n+1:a(n)=x
x=0
End If

Next i

n=n+1:a(n)=x

End Sub
Private Sub Command1_Click()

Dim s As String,i As Integer,j As Integer,t As Integer

Dim cnt As Integer,st As Integer, ed As Integer

s=Text1.Text

Call makedata(s)'调用过程

For i=1 To n-1'实现降序排序

For j=n To i+1 Step -1
If（2）_______Then
a(j)=a(j)+a(j-1):a(j-l)=a(j)-a(j-l):（3）___________
End If
Next j

Next i

'下列程序段实现计算最多可组队伍数

cnt=0:st=1:ed=n

Do While st<ed

If a(st)+a(ecl)<=120 Then
List1. AddItem Str(a(st))+"和"+Str(a(ed))+"组队"
cnt=cnt+1
st=st+1
（4）_______
Else
st=st+1
End If

Loop

Label2. Caption="最多可以组"+Str(cnt)+"组队伍"

End Sub