学号排列成绩表c语言数组,数组a中存储了n个学生的学号和成绩数据，其中奇数位置存储学号信息，偶数位置存储成绩信息，数组存储结构如图a所示： 图a排序前数组a存储结构 小迪同学使用选择排序思...

1.

(2020·浙江模拟)

数组a中存储了n个学生的学号和成绩数据，其中奇数位置存储学号信息，偶数位置存储成绩信息，数组存储结构如图a所示：

图a排序前数组a存储结构

小迪同学使用选择排序思想对上述n个同学按成绩进行降序排序(成绩相同的按学号升序排列)，并依据成绩插入各位同学的名次信息，处理结束的数组a结构如图b所示：

图b排序后数组a存储结构

小迪同学使用VB编写了成绩处理程序，程序运行界面如图c所示：

图 c

实现上述功能的VB程序如下，请回答下列问题。

Const n = 20

Dim a(1 To 3 * n)As Integer

Private Sub Command1_Click()

'读取数据，存储在数组a中，并显示在列表框List1中

'代码略

End Sub

Private Sub Command 2_Click()

     ‘①改错

k = i

For j= 1 Toi-1

If a(2 * j)

k = j

End If

Next j

a(3 * i)= a(2 * k)

a(3 * i-1)= a(2 * k-1)

③

a(2 * k- 1)= a(2 * i- 1)

Next i

Lisi2.Addltem"第1名：学号"+ CStr(a(2))+"，分数"+Str(a(3))

a(1)=1

mc=1

For i=2 To n

If④Then mc = i

List2.Addltem"第"+Str(me)+"名：学号"+CStr(a(3 * i-1))+"，分数"+Str(a(3 *

i))

a(3 * i-2)= mc

Next i

End Sub