Dim class(1 To 30) As Integer '存放班级序号的数组定义为class

Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score

Private Sub Formload()      '提取某班级的评委打分

   Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

   conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb "

   conn.Open

   Set rs.ActiveConnection = conn

   rs.Open "SELECT * FROM score " 

   n = 0

Do While Not rs.EOF   '到最后一条记录后退出循环

   n = n + 1

   class (n) = rs.Fields("班级序号").Value

   score (n) = rs.Fields("评委打分").Value

   rs.MoveFirst      '①指针移动到下一条记录

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

for i=1 to n

    List1.AddItem str(score(i))

Next i

End sub

Private Sub Command1Click()  

Dim i as integer

Dim j as integer

Dim t as single

For i=1 to 8

   List2.AddItem str(score(i))

Next i

End sub

Private Sub Command2Click()   '计算班级平均得分

Dim i As Integer

Dim sum As single

For i=2 to 7

   sum=sum+score（i）

Next i

Text1.text=  ③ 

End sub

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean          'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While                           '（1）  

   flag = False

   For j = n To i + 1 Step -1

      If a(j) < a(j - 1) Then

         k = a(j): a(j) = a(j - 1): a(j - 1) = k

         flag = True

      End If

    Next j

    i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为+          "    '（2）

For i = 1 To n

   List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#}    ⑵{#blank#}2{#/blank#}

i = 1

   Do While i<= 5

      If i = 0 Or a(i - 1) <= a(i) Then

         i = i + 1

      Else

         t = a(i): a(i) = a(i - 1): a(i - 1) = t

         i = i - 1

      End If

   Loop

数组元素a(0)到a(5)依次为：“0，61，22，43，89，27”，经过该程序段处理后，数组元素a(4)的值为（  ）

Dim a(1 To 10) As Integer

Dim s As String, n, i As Integer

s = "54851845236": n = Len(s)

For i = 1 To n - 1

a(i) = Val(Mid(s, i, 2))

Next i

For i = 1 To n - 2

k = i

For j = i + 1 To n - 1

If a(k) < a(j) Then k = j

Next

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

End If

Next i

Text1.Text = Str(a(1))

该程序段运行后，文本框 Text1 中显示的内容是：（  ）

i = 1

Do While i <= 5

 If i = 0 or a(i -1) <= a(i) Then

  i = i + 1

 Else

  t = a(i): a(i) = a(i -1): a(i -1) = t

  i = i - 1

 End If

Loop

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为(  )