学进去

某班级（人数不超过40人）参加合唱比赛，需要整理队形。先将所有人按身高升序排好，再将人数每10人排成1排，每排中间低两边高。
编写VB程序，依据上述要求排队。运行程序，在列表框 List1中显示了排序前的人员身高，单击“排序”按钮Command1后，在列表框List2中显示身高升序排序结果，再单击“站位”按钮Command2后，按10人一排站好，结果显示在列表框List3中。界面如图所示。

（1）下列对象中，不具有Caption 属性的是____（单选，填字母：A. Command1 / B. Form1 / C.List1 / D.Label1）。
（2）请将划线处补充完整
（3）加框处代码有错误，请改正
Dim h(0 To 40) As Integer     '学生身高
Dim n As IntegerPrivate Sub Form_Load()
'从数据库中读取身高，共n条记录，存入h数组中，代码略
End Sub
Private Sub Command1_Click()

For i =2 To n

h1 = h(i): j = i – 1

Do While ____

j = j - 1

Loop

For k = i To j +2Step -1

h(k) = h(k - 1)

Next k

__________

Next i

'在列表框 List2中输出排序结果，代码略

End Sub
Private Sub Command2_Click()

'按人数每 10 人一排

Dim x As Integer

x = n \ 10

For i =1To x

Call fenpai(_________) ‘过程 fenpai 作用:将人员按中间低两边高排好，代码略

Next i

If n Mod 10 >0Then Call fenpai(x * 10 + 1， n)

'将站位结果输出在列表框 List3 中，代码略

End Sub