题目

【加试题】自从“7选3”计入高考成绩，让考生告别“一考定终身”的窘困。各校均组织学生进行了7选3高考选考科目的选课工作。某校政治、历史、地理、物理、化学、生物、技术7科的选考人数如下表所示： 科目 政治 历史 地理 物理 化学 生物 技术 人数 193 151 112 186 167 103 179 设计VB程序，实现功能：将每个科目的选课人数按照选考人数降序排序后输出。其中，科目名称存放在数组a(i)中，人数存放在数组b(i)中。 程序运行界面设计如图所示，左边列表框List1是显示科目名称和选课人数，单击“排序”按钮Command1后，在右边的列表框List2中显示排序后的科目名称和选课人数。 Command1的处理事件过程如下，但加框处代码有错，请改正。 Private Sub command1_click() Dim a(1 To 7)  As String Dim b(1 To 7)  As Integer Dim i As Integer, j As Integer, p As String, q As Integer For i = 1 To 7    List1.AddItem a(i) + " " + Str(b(i)) Next i For i = 1 To 6    k = i    For j = i + 1 To 7     Next j    If i <> k Then      p = a(i): a(i) = a(k): a(k) = p    End If Next i For i = 1 To 7    List2.AddItem a(i) + " " + Str(b(i)) Next i End Sub ①   ② 答案：【1】k=j【2】b(k)=q

查看本题答案和解析