活动课上，n个学生要两两组队进行拔河比赛，要求每个小组总体重不超过120kg,小林想知道最多可以组多少个队伍，并希望得到一组可行的组队方案。于是设计如下界面的程序，在文本框Text1中输入n个学生的体重（数字之间用逗号隔开），单击“队伍”按钮（ Command1）后，标签（ Labell）显示最多可组队伍数量，同时在列表框（List1）输出方案。

实现上述功能的VB程序如下，请在画线处填入合适代码。
Dim n As Integer'n用于记录数字个数
Dm a（ 1 To 50）As Integer
Private sub Cortmandl_Click（　　）
Dim s As String
Dim i As Integer,j As Integer,t As Integer
Dim cnt As Integer
Dim st As Integer,ed As Integer
s=Text1．Text
makedata（s）'将输入的体重分别存入数组a中，过程代码略!
For i=I To n-1
For j=n To i+1 Step-1
If（1）Then'从大到小排序
1=a（j）：a （j）=a（j-1）：a（j-1）=t
End If
Next  j
Next  i
'下列程序段实现计算最多可组队伍
cnt=0
st=1：ed=n
Do While st＜ed
If a（st）+a（ed）＜=120 Then
List1．Additem str（a（st））+″和″+Str（a（ed））+″组队″
cnt=cnt+1
st=st+1
（2）
Else
st=st+1
End If
Loop
Labell.Caption=″最多可以组″+Str（cnt）+″组队伍″
End sub