题目

某班级（人数不超过40人）参加合唱比赛，需要整理队形。先将所有人按身高升序排好，再将人数每10人排成1排，每排中间低两边高。 编写VB程序，依据上述要求排队。运行程序，在列表框 List1中显示了排序前的人员身高，单击“排序”按钮Command1后，在列表框List2中显示身高升序排序结果，再单击“站位”按钮Command2后，按10人一排站好，结果显示在列表框List3中。界面如图所示。 Dim h(0 To 40) As Integer         '学生身高 Dim n As Integer Private 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 +2 Step -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 =1 To x         Call fenpai(   ②   )      '过程fenpai作用：将人员按中间低两边高排好，代码略     Next i     If n Mod 10 >0 Then Call fenpai(x * 10 + 1， n)     '将站位结果输出在列表框 List3 中，代码略 End Sub （1） 下列对象中，不具有Caption 属性的是（单选，填字母：A . Command1 / B .Form1 / C .List1 / D .Label1）。 （2） 请将划线处补充完整 ① ②  （3） 加框处代码有错误，请改正 答案： 【1】C 【1】h(k) = h1【2】(i - 1) * 10 + 1， i * 10或 i * 10， (i - 1) * 10 +1 j >0 And h(j) > h1

查看本题答案和解析