(加试题) 有程序段
n = 0: i = 1
Do While i <= 4
y = False
For j = 5 To i + 1 Step -1
If a(j) > a(i) Then
y = True
n = n + 1
t = a(j): a(j) = a(i): a(i) = t
End If
Next i
If y = False Then Exit Do
i = i + 1
Loop
数组元素a(1)到a(5)的值依次为“43，18，5，26，51”，经过该程序加工后，变量n的值为( )

A．5

B．4

C．3

D．2

小王利用VB及ACCESS数据库制作了一个解密程序，具体使用过程如下：
在VB项目文件夹目录中有一个ACCESS数据库文件data.accdb，其中有一张数据表如图1所示ask字段中存放的是密文字符，对应ans字段中存放的是明文字符。

图1
VB程序界面如图2所示，其中一个按钮Command1的Caption属性值设置为“读取密码本”，另一个按钮Command2的Caption属性值设置为“解密”。程序运行后先点击Command1，程序将从ACCESS数据库中读取明文密文对照表并显示在列表框List1中。然后在密文文本框Texe1中输入加密文字，点击Command2解密后的明文将显示在Text2中。

图2
程序代码部分如下，请回答后面的问题：
Dim a() As String
Dim b() As String
Dim length As Integer
Private Sub Command1_Click()
List1.Clear
Dim i As Integer
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString ＝“provider＝microsoft.ace.oledb.12.0；data source＝”& App.Path &
“\____①____”
conn.Open
rs.ActiveConnection ＝ conn
rs.CursorLocation ＝ adUseClient
rs. Open (“select * from code”)
length ＝ rs.RecordCount
ReDim a(1 To length)
ReDim b(1 To length)
rs.MoveFirst
For i ＝ 1 To length
a(i) ＝ rs.Fields(“ask”)
b(i) ＝ rs.Fields(“ans”)
List1.AddItem (a(i)&“____”&b(i))
rs.____②____
Next i
End Sub
Private Sub Command2_Click()
Text2.Text＝“”
Dim s As String
Dim i As Integer
s＝Text1.Text
For i＝1 To Len(s)
Text2.Text＝Text2.Text&translate(Mid(s，____③____))
Next i
End Sub
Function translate(ask As String) As String
Dim i as Integer
Dim flag as Boolean
i＝1
flag＝True
Do While i＜＝length And flag
If a(i)＝ask Then
____④____
End If
i＝i＋1
Loop
If flag＝True Then
translate＝“”
Else
translate＝b(i－1)
End If
End Function
(1)程序代码①处应该填入___________________________________。
(2)程序代码②处应该填入____________________________________。
(3)在程序代码③处补全Mid函数： __________________________。
(4)程序代码④处应该填入____________________________________。
(5)translate函数使用的查找算法是________(填对分查找/顺序查找)。

随机产生10个12,20间的随机整数放在A数组中,打印最大的和最小的.请完善程序
PRIVATE   SUB   FORM_CLICK( ）
________1
MAX=0:  MIN=21
FOR   I=  1  TO  10
A(I)=________2
IF ________3THEN   MAX=A(I)
IF ________4THEN  MIN=A(I)
NEXT  I
PRINT   “最大数是”；MAX ,”最小数是” ；MIN
END  SUB

观察下面流程图，n的初值为5，最后s输出的值为（   ）

A．5

B．6

C．7

D．8

若已知当前的人均GDP水平和GDP年增长率，可以计算达到某个GDP水平所需年份。在文本框Text1、Text2、Text3中分别输入人均GDP、年增长率和达到的GDP水平，单击计算按钮Command1，在文本框Text4中输出所需年数。程序运行界面如下：

(1)在设计程序界面时，使应使用图b所示“控件工具箱”中的________(填写相应编号)添加“计算”按钮。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim gdp As Single，ddgdp As Single，zc As Single，y As Integer
gdp＝Val(Text1.Text)
zc＝Val(Text2.Text)
ddgdp＝Val(Text3.Text)
y＝0
Do While ____①____
　　  ____②____
gdp＝gdp*(1＋zc)
Loop
Text4.Text＝Str(y)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________