题型：综合题 题类：常考题 难易度：困难
浙江省衢州市2020-2021学年高二下学期信息技术期末6月教学质量检测试卷
编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。
请回答下列问题：
Const n = 20
Dim id(1 To 20) As Integer， h(1 To 20) As Integer，w(1 To 20) As Integer
Dim m As Integer
Private Sub Form_Load( )
'从数据库中读取n名学生的编号、身高和体重分别存储在数组id、h和w中。
'代码略。
m=0 '存储身高≥175cm的学生总数
For i=1 To n
k=i
For j=i+1 To n
If h(j) >= 175 Then
If 
Then k= j '⑶
End If
Next j
If k<>I Then
t = id(i)： id(i) = id(k)： id(k) = t
t=h(i)：h(i)=h(k)：h(k)=t
t=w(i)：w(i)=w(k)：w(k)=t
End If
If h(i) < 175 Then
m=i-1
Exit For '结束挑选
Else
End If
List1.AddItem str(id(i)) +“”+ Str(h(i)) +””+ Str(w(i))
Next i
End Sub
Private Sub Com_Click()
L=1：R=m
Do While L< R
If Then
List2. AddItem Str(id(L)) + “号和”+ Str(id(R)) +“号组队”
L=L+1
R=R-1
Else
End If
Loop
End Sub
试题篮
Then 