阅读程序代码并填空。
Rem VB代码：
Dim a As Integer
Dim b As Integer
Dim c As Integer
a =3 
b =5
Print "a=";a,"b=";b
c=a
a=b
b=c
Print "a=";a,"b=";b
（1）程序中起注释作用的标识符是____________。
（2）变量a、b、c 的数据类型都是___________（填写中、英文均可）。
（3）执行程序后，b的输出结果是________________。

在程序运行过程中可以改变数组元素个数的是（_____）数组，不可以改变数组元素个数的是（____）数组。

（加试题）小李与小王合作编写一个成绩统计的VB程序：小王编写一个过程，该过程从数据库读取某一指定科目的相关数据，存储在数组a中；小李编写一个过程，该过程依据数组a中的相关数据进行排序。小李与小王约定的数组a各元素含义如图所示。

数组元素	数组元素的含义
a(1)	存储班级数n
a(2)	从a(2)到a(n+1) 依次存储第1、2、…第n个班级人数
…
a(n+1)
a(n+2)	从a(n+2) 依次存储第1班每个学生的单科成绩、第2班每个学生的单科成绩、…第n班每个学生的单科成绩
…
…

 
程序功能如下：在文本框Text1中输入科目名称，单击“读取数据库”按钮Command1，程序从数据库读取数据，数据存放与a()中，呈现方式如表所示；在文本框text2中输入第几班级，单击“开始排序”按钮Command2，程序对输入班级的学生成绩进行排序，结果输出在列表框List1中。程序运行界面如下图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）根据程序运行界面中的数据及数组a各元素的含义，数组元素a(5)表示的是_____________ 
（2）分析程序，可知数据库的文件名为____________________
（3）请在划线处填入合适的代码。
Dim a(1 To 600) As Integer    '数组大小满足处理要求
Private Sub Command1_Click()  '本过程由小王完成，从数据库读取指定科目的各相关数据，存储在数组a中
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
conn ConncctionString = "provider=Microsoft.AC

A．OLEDB.12.0;data source=" + "Score.accdb"

conn.Open
Set rs.ActiveConnection = conn '本过程的其他语句略
End Sub
Private Sub Command2_Click() '依据数组a中的相关数据对第k个班级的学生平均分进行升序排序
Dim i As Integer, j As Integer, n As Integer  ‘i,j为循环变量，n为班级个数
Dim k as integer,t as integer
Dim p As Integer  ‘p为前几个班级的总人数
k=val(text2.text)
For i=2 to k  ‘求得前几个班级的总人数
p=p+a(i)
Next i
t=___________‘t为第k-1个班级最后一个学生所在的位置
For i=t+1 to t+a(k+1)-1    ‘t+1为第k个班级第一位学生所在的位置，t+a(k+1)为第k个班级最后一个学生所在的位置
For j= __________ to i+1 step -1
If a(j)<a(j-1) then
k= a(j - 1): a(j - 1) = a(j): a(j) = k
Endif
Next j
Next i
For i=1 to a(k+1)
List1.additem str(i)+”    ”+str(a(t+i))
Next i
End Sub

（加试题）用一个6*5矩阵表示地图，分别用a数组元素表示，第1行从左到右为a(1)到a(6)，依次类推，右下角为a(30)。其中数字0表示不通，数字1I表示畅通。现在要从左上角到右下角寻找一条畅通的路径。线路规则如F：
•路线每个位置只能向右或向下
•任何一个岔口优先向右走，右侧不通再向下走
•一条路线中每个位置只能走一次，不能重复
算法思路：探路过程中，记录每个位置坐标到数组lu；遇到岔路口(向右向下都通)，则记录路口坐标到数组cha；遇到前方无路时，需要返回到上一个路口，标记路口右侧不通；当前方无路，岔路口数组也退回到0，说明整体不通，否则根据规则走到右下角为止，最后输出整体线路坐标。
实现算法的程序如下，运行结果如图所示。
回答下列问题：
(1)根据规则，如图迷宫矩阵正确路线的第6个位置是a数组的第_________个元素(填数字)

(2)在程序划线处填上合适代码，使程序完整。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer，j As Integer，pos As Integer
Dim cha(1 To 10)As Integer'记录一条路线中各个岔路口
Dim lu(1 To 10) As Integer’记录路线经过的位置
pos=1：j=0：lu(1)=1：i=1
Do While i <=9‘第1个和最后1个固定，中间有9个需要路过的路径点

If pos Mod 6<>0 And a(pos+1)=1 Then' 向右畅通

If pos+6 <=30 and a(pos+6)=1 Then‘记录岔路口
j=j+1
_____________
End If
pos=pos+1
i=i+1
1u(i)=pos
Else If pos+6 <=30 And a(pos+6)=1 Then’向下畅通
pos=pos+6
i=i+1
lu(i)=pos
Else’坐标退回到上一个岔路口
If j=0 Then Exit Do
Do While lu(i)<>cha(j)
_____________
Loop
a(cha(j)+1)=0’标记此路口右侧不可用
_____________
j=j-1
End If；

Loop

If j=0 Then

Text1.Text="没有畅通道路"

Else

For i=1 To 10
Text1.Text=Text1.Text+Str(lu(i))
Next i

End If

End Sub
Private Sub Form_Load()

‘生成图形矩阵的数组a各个元素，并在列表框显示，代码略

End Sub

执行下列程序段后，变量b的值为（   ）

A．35

B．14

C．10

D．12