设计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
①{#blank#}1{#/blank#}   ②{#blank#}2{#/blank#}

Dim kh(1 to 500) As string,cj(1 to 500) As Integer Dim n As Integer    ‘参加考试总人数

Private Sub Form_Load()

Dim conn as new ADODB.connection:Dim rs As New ADODB.Recordset

conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=”

+App.Path+”\BSCJ.accdb”

conn.Open

set rs.activeconnection=conn

rs.Open“select*FROM scoreinfo”

‘本过程其他代码略 End Sub

Private Sub Command1_Click()

Dim m As Integer,i As Integer,j As Integer

Dim t1 As Integer,t2 As String,flag As Boolean For i = 1 To n-1    ‘排序

For j =      ①         If cj(i)<cj(j) Then

t1 = cj(i):cj(i) = cj(j):cj(j) = t1

t2 = kh(i):kh(i) = kh(j):kh(j) = t2 Elseif cj(i) = cj(j) And kh(i) > kh(j) Then

t2 = kh(i):kh(i) = kh(j):kh(j) = t2

End If Next j

Next i

m =         ②        

If m <= n Then   ‘统计进入面试人数

i = m

flag = False

Do While        ③        If cj(i) = cj(i+1) Then

i = i+1 Else

flag = True End If

Loop

Text2.text = Str(cj(m)) Text3.text = Str(i)

For j = 1 To i

List2.AddItem kh(j) + “ ” + Str(cj(i)) Next j

Else

Text2.Text=”面试人数超过总人数了” End If

End Sub

Dim a(1 To 10) As Integer，b(1 To 10) As Integer

k = 0

For i = 10 To 1 Step -1

Do While b(i) <> 0 k = k + 1

a(k) = i: b(i) = b(i) - 1

Loop

Next i

若 a(1)～a(10)的值分别为 7，9，8，1，9，4，4，2，1，1，则运行以上程序后，下列说法正确的是（  ）