有如下Visual Basic程序段：
s=0
n=1
for i="4" to 1 step -1
n=n*i
s=s+a
next i
问：该程序段运行后，
（1）共循环___________次。
（2）变量s的值是___________。

某同学编写了VB程序其功能和界面如下所示。在文本框(text1)中输入一段英文，点击“统计删除”按钮，在标签(Label3)中显示该语句中最长的单词(如有多个长度相同的单词则显示靠后的单词)，在标签(Label5)中显示该单词的字符长度，在标签(Label7)中显示删除该单词后的句子。

Private Sub Command1_Click()
Dim s As Integer，imax As Integer，pimax As Integer，t As Integer
Dim source As String
source＝Text1.Text
s＝Len(source)
imax＝1
pimax＝1
t＝0
For i＝1 To s
d＝____①____
If (d＞＝“a” And d＜＝“z”) Or (d＞＝“A” And d＜＝“Z”) Then
____②____
Else
If t＞＝imax Then
imax＝t
____③____
End If
t＝0
End If
Next i
Label3.Caption＝Mid(source，pimax，imax)
Label5.Caption＝imax
Label7.Caption＝____④____＋Mid(source，pimax＋imax，s－imax)
End Sub
①处程序代码为_________________________________________________。
②处程序代码为_________________________________________________。
③处程序代码为_________________________________________________。
④处程序代码为_________________________________________________。

在窗体上画一个命令按钮Command1，然后编写如下代码：
Private Sub Command1_Click()
Dim arr1(10)，arr2(10) As Integer
n＝3
For i＝1 To 5
arr1(n)＝i
arr2(i)＝2*arr1(n)＋1
Next i
Print arr1(n)，arr2(n)；
End Sub
程序运行后，单击命令按钮，输出结果是________。
解析 本题考查的是循环结构。i的初值为1，终值为5，步长为1。

i	arr1(n)	arr2(i)
1	arr1(3)＝1	arr2(1)＝2*1＋1
2	arr1(3)＝2	arr2(2)＝2*2＋1
3	arr1(3)＝3	arr2(i)＝2*3＋1
4	arr1(3)＝4	arr2(i)＝2*4＋1
5	arr1(3)＝5	arr2(i)＝2*5＋1
6	/

循环执行结束后n为3，执行最后一次循环arr1(3)＝5；arr2(3)＝7。

以下函数用于查找给定学籍编号，查找的学生姓名的相关信息，其中姓名放在数组a中，学籍编号放在数组b中，学籍号按照升序排列
Private Function Findxj(k As Integer) As string
Dim f As Boolean，i As Integer，j As Integer，m As Integer
i＝1：j＝n
f＝False
Do While(i＜＝j) And Not (f)
m＝Fix((i＋j)/2)
If k＝b(m) Then
f＝True
Else
If ________ Then
j＝m－1
Else
i＝m＋1
End If
End If
Loop
If f Then Findxj＝________ Else Findxj＝“查无此人”
End Function
划线处的代码分别是：

A．k＜b(m) a(m)	B．k＜a(m) b(m)
C．k＞b(m) a(m)	D．k＞a(m) b(m)

实现某排序算法的部分VB程序如下：
For i＝1 To 5
k＝i
For j＝i＋1 To 6
If a(k)＜a(j) Then k＝j
Next j
If i＜＞k Then
t＝a(i)：a(i)＝a(k)：a(k)＝t
End If
Next i
在排序过程中，经过某一遍排序“加工”后，数组元素a(1)到a(6)的数据依次为“97，89，91，88，95，94”。则下一遍排序“加工”后数组元素a(1)到a(6)的数据依次是(  )

A．97，95，91，89，88，94	B．97，95，94，91，88，89
C．97，95，91，88，89，94	D．97，95，94，91，89，88

有一个VB程序，其程序界面中有一个按钮Command1及一个文本框Text1，并且其程序代码如下：

当点击Command1后，Text1中将显示(  )

A．3	B．4
C．5	D．6

小王利用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函数使用的查找算法是________(填对分查找/顺序查找)。

如图所示的部分流程图中，“s←s＋i”被执行次数为(  )

A．0	B．1
C．32	D．33

以下程序的功能是随机生成20个1到100之间的正整数，用选择排序法将其按从大到小的顺序排列后输出。请将下列程序补充完整。
Private Sub Command1_Click()
Dim a(20) As Integer，i As Integer
Dim j As Integer，temp As Integer
Prin “排序前：”
For i＝1 To 20
a(i)＝Int(Rnd*100)＋1
Print a(i)；
Next i
Print
For i＝1 To 19
For__①__ To 20
If __②__ Then
t＝a(i)
a(i)＝a(j)
③__
End If
Next j
Next i
Print“排序后：”
For i＝1 To 20
Print a(i)；
Next i
End Sub
(1)程序中划线处①应填入_______________________________________。
(2)程序中划线处②应填入_______________________________________。
(3)程序中划线处③应填入_______________________________________。

用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a()是待排序的数据，数据从a(1)开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便：
比如有一个整数型数组a(1 to 10)需要降序排序，可以直接这样调用：
a()＝bubble_sort(False，a()，10)
该函数VB代码如下：
Function bubble_sort(sx As Boolean，a() As Integer，n As Integer) As Integer()
Dim i，j，t As Integer
For i＝1 To n－1
For j＝____①____ Step－1
If ____②____ Then
If a(j)＜a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
Else
If a(j)＞a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
End If
Next j
Next i
bubble_sort＝a()
End Function
请将代码补充完整：
①___________________________________________。
②___________________________________________。