小杰为学校教务处编写了一个排考场座位的VB程序，考场采用“6排5列”共30人的模式，程序执行后，考生的考号与姓名显示在列表框List1中，单击“考场座位”按钮，考场号与座位显示在Text1中，程序运行界面如图所示，数据表如图

 
实现上述功能的VB程序如下，请回答下列问题：
（1）程序中读取的数据库文件是____________
（2）当“Form_load() 事件处理过程运行结束后，变量x的值为___________
（3）请在划线处填入合适的代码
Dim sName(100) As String
Dim kh(100) as string
Private Sub Command1_Click()
Dim y As Integer
Dim start As Integer　 　 '考场第1位数据元素的下标
Dim pa As Integer '数据库导入VB时学生数据下标
Dim pb As Integer '考场座位数据下标
Dim i As Integer，j As Integer，k As Integer，m As Integer
Dim kcsName(100) As String
start = 1
pa = start
recCount = x-1
If recCount Mod 30 <> 0 Then
_______________
For i = 1 To y　　　 '将当前考生人数添加到30的整数倍　　　　
recCount = recCount +1
sName(recCount) = " "
Next i
End If
For j = 1 To recCount / 30 　　
pa = start 　　
pb = start 　　
For i = 1 To 30
kcsName(pb) = sName(pa)
pb = pb +1
If  i Mod 5 = 0 Then
pa = start +i \5
Else 　
________________
End If 　　
Next i 　　
start = start +30
Next j
Text1.Text = " "
start = 1
For k = 1 To recCount /30 　　
m = start 　　
Text1.Text = Text1.Text + "第" + Str(k) + "考场" + vbCrLf 　　
'vbCrLf为换行标志符，实现Text1中内容换行显示　　
For i = 1 To 6
For j = 1 To 5
Text1.Text = Text1.Text +"　 " +kcsName(m)
m = m +1
Next j
Text1.Text = Text1.Text +vbCrLf 　　
Next i 　　
Text1.Text = Text1.Text +vbCrLf +vbCrLf
______________________
Next k
End Sub
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 & "/kaochang.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from banji"
x = 1
List1.AddItem "　考号　　姓名"
Do While Not rs.EOF    '
kh(x) = rs.fields("kh")
sName(x) = rs.fields("xm")
List1.AddItem kh(x) + "  " + sName(x)
x = x + 1
rs.MoveNext
Loop
rs.Close
End Sub

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

1	2	3	4	5	6	……	2n-1	2n
学号	成绩	学号	成绩	学号	成绩	……	学号	成绩
第1个学生信息		第2个学生信息		第3个学生信息		……	第n个学生信息

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

1

2

3

4

5

6

7

8

9

……

3n-2

3n-1

3n

名次

学号

成绩

名次

学号

成绩

名次

学号

成绩

……

名次

学号

成绩

第1个学生信息

第2个学生信息

第3个学生信息

……

第n个学生信息

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

实现上述功能的VB程序如下，请回答下列问题。
Const n=20
Dim a(1 To 3* n)As Integer
Private Sub Command1_ Click()

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

＇代码略

End Sub
Private Sub Command2_ Click()
＇①改错
k=i
For j=l To i-l
If a(2*j)<a(2*k)Or ② Then
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
List2. AddItem"第1名：学号+CStr(a(2))+"，分数"+str(a(3))
A(1)=1
mc=1
For j=2 To n

If     ④ Then mc=i

List2. AddItem"第"+Str(mc)+"名：学号"+CStr(a(3*i-1))+"，分数"十Str(a(3*i))a(3*i-2)=mc

Next i

End sub
（1）已知窗体名称为Form1，要使程序加载时，窗体标题自动显示为“第15题程序”，则可在_____________（单选，填字母）事件过程中添加代码： Form1. Caption=“第15题程序”。

A．Form_ Click()

B．Form_ Load()

C．Form1_ Click()

D．Forml_ Load()

（2）程序加框处的For循环语句有错，请改正。
（3）请将程序②③④划线处代码补充完整。

有一组正整数，要求供对其中的素数进行升序排序。排序后素数在前，非素数在后。排序示例如下。

排序前	86	71	5	41	81	79	37	89
排序后	5	37	41	71	79	89	86	81

 
Const n = 8
Dim a(1 To n) As Integer
Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, t As Integer

Dim flag As Boolean

'读取一组正整数，存储在数组a中，代码略

For i = 1 To n – 1

 _____________

   If IsPrime(a(k)) Then flag = True Else flag = False

For j = i + 1 To n
If IsPime(a(j)) Then
If   Then ______________
k = j
flag = True
End If

End If

Next j

If k <> i Then

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

End If

If Not flag Then Exit For  'Exit For表示退出循环

Next i

'依次输出排序后的数据。代码略

End Sub
Function IsPrime(m As Integer) As Boolean
'本函数判断m是否是素数：是素数返回值为True，不是素数返回值为False
'代码略
End Function

数组a中存放着1到20的正整数，要求对其中的元素进行分段排序，在Text2中输入每段元素的个数，在文本框Text3中显示每段降序排序后的数据，其中多余的元素不做处理。具体程序实现如图所示。

实现该功能的VB程序代码如下，请在划线处填入合适代码。
Dim a(0 To 100) As Integer
Const high = 16
Private Sub Form_Load()
Randomize
For i = 1 To high
a(i) = Int(Rnd * 20) + 1
Text1.Text = Text1.Text + Str(a(i))
Next i
End Sub
Private Sub Command1_Click()
Dim p As Integer, q As Integer, t As Integer
Dim m As Integer, n As Integer, k As Integer
m = Val(Text2.Text)
For i = 1 To ①________
c = ""
For j = 1 To m
p =②________
q = i * m
k = sort(p, q)
If a(k) <> a(p) Then
t = a(p): a(p) = a(k): a(k) = t
End If
c = ③________
Next j
Text3.Text = Text3.Text + " " + c
Next i
End Sub
Function sort(f As Integer, g As Integer) As Integer
s = f
For i = f To g
If a(i) > a(s) Then
s = i
End If
Next i
sort = s
End Function