小明最近学习了一种新的排序方法，其基本思想是：经过i-1遍加工后，a(1)到a(i-1)已经有序，第i遍加工时将a(i)插入到位置1到位置i之间的适当位置p（包含位置1和位置i），原来位置p及p后的元素一一向右移动一个位置（若插入在位置i，则不需要移动其他元素），使得a(1)到a(i)依然有序，依此重复下去，直到n个数全部排序完成，VB程序段如下：
For i=2 To n
k=a(i):j=j-1
Do While k<a(i)
a(j+1)=a(j)
j=j-1
If j=0 Then Exit Do
Loop

Next i
要实现上述排序算法，方框内VB语句应为（   ）

A．a(j)=k

B．a(j+1)=k

C．a(i)=k

D．a(j-1)=k

有如下 Visual Basic 程序段： 
S = 0
For i = 1 To 5

s = s + i  

Next i
If i <= 5 Then
Text1.Text = Str(s)
Else
Text1.Text = Str(s + i)
End If
该程序段运行后，在文本框Text1中显示的是

A．5

B．6

C．15

D．21

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

程序功能如下：在文本框text1中输入科目名称，单击“读取数据库”按钮command1，程序从数据库读取数据；单击“开始统计”按钮command2，程序进行统计处理，结果输出在列表框list1中。程序运行界面如下图所示。

数组元素	数组元素的含义
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班每个学生的单科成绩
…
…

 

实现上述功能的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中的相关数据统计各班级平均分

Dim i As Integer, j As Integer, n As Integer

Dim p As Integer, sum As Integer, aver As Single

______________________

p = n + 2

For i = 1 To n

sum = 0

For j = 1 To a(i + 1)

  ____________________
p = p + 1

Next j

aver = sum / a(i + 1)

list1.additemstr(i)+"   "+str(a(i+1))+"   "+str(aver)

Next i

End sub

（加试题）试场编排方法：每试场人数30，尾数试场可能不足30，按6行5列的布局编排试场，每个试场的座位号如下图所示。编写一个VB程序实现上述功能：在文本框Textl中输入学生数n，在文本框Text2中输入试场号m，单击“确定”按钮Commandl，在列表框中Listl中输出第m试场的编排表，程序运行界面如图b所示。
(1)999个学生的考号依次是001，002，...，998，999。根据上述试场编排方法，可知第3试场第2行第3列的学生考号是_______________。
(2)小王根据上述算法，设计了一个加密程序，其VB代码如下，请在划线处填入合适的代码。
Const k=30
Function adj(s As String)As String
‘功能：在字符串s前添加若干个空格，代码略。
End Function
Function convert(n As Integer) As String
‘功能：把n转字符串，不足3位则在前面补0，代码略。
End Function
Private Sub Commandl_Click()
Dim kh(1 To 999)As String
Dim n As Integer，m As Integer，kcs As Integer
Dim i As Integer，j As Integer，line As String
Dim start As Integer，ofsetl As Integer，offset2 As Integer
n=Val(Text1.Text)
m.Val(Text2.Text)
For i=1 To n.

kh(i)=convert(i)

Next i
If n Mod k=0 Then kcs=n\k Else___________
If m>kcs or m<l Then

Label3.Caption="无该试场!"

Else

___________

For i=l To 6

line=""
offsetl=i
line=line+adj(kh(start+ofst))
For j=2 To 5
If j Mod 2=1 Then
Offset l=offset1+12
line=line+adj(kh(start+ffset!))
Else
___________
line=line+adj(kh(start+offset2))
End If
Next j
List1.AddItem line

Next i

End If
End Sub

分析完善程序。
假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）^∧年数
假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）^∧n>12000，求最小的n。
（参考程序）
Dim s as single
Dim r as single
Dim n as integer
s=10000
r=0.03
n=0
Do while 
n=n+1
s=s*(1+r)
Loop
Print n;”年后”:”连本带利超过”；s
根据上述回答下列问题
（1）本题采用的算法是___________（填写：解析法/穷举法/排序法/递归法）
（2）写出参考程序中空白处表达式__________________________________ 。