某对分查找算法的VB程序如下：
n=0
i=1
j=6
key=val(Text1.text)
f=False
Do While i<=j And Not f
m=(i+j+1)\2
n=n+1
If key=d(m) Then
f=True
ElseIf key>d(m) Then
j=m-1
Else
i=m+1
End if
Loop
数组元素d（1）到d（6）的值依次为“87，72,53,41,29,18”，若该程段运行结束后，n的值为2，则key的值是（ ）
n=0
i=1
j=6
key=val(Text1.text)
f=False
Do While i<=j And Not f
m=(i+j+1)\2
n=n+1
If key=d(m) Then
f=True
ElseIf key>d(m) Then
j=m-1
Else
i=m+1
End if
Loop
数组元素d（1）到d（6）的值依次为“87，72,53,41,29,18”，若该程段运行结束后，n的值为2，则key的值是（ ）
| A．87或29 | B．72或18 | C．72 或 29 | D．53 或 18 |
数组a为一组正整数，奇数在前，偶数在后。奇数与偶数已分别按升序排序。根据对分查找思想，设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下:
i = 1: j = 10
key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If a(m) = key Then Exit Do ’ Exit Do表示退出循环
If key Mod 2=1 And a(m) Mod 2=0 Then
(1)
ElseIf key Mod 2=0 And a(m) Mod 2=1 Then
(2)
Else
(3)
End If
Loop
If i>j Then s = "没有找到！" Else s="位置："+Str(m)
Text1.Text = s
上述程序中方框处可选语句为：
①i=m+1
②j=m-1
③If key<a(m) Then j=m-1 Else i=m+1
则（1）、（2）、（3）处语句依次是（ ）
i = 1: j = 10
key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2
If a(m) = key Then Exit Do ’ Exit Do表示退出循环
If key Mod 2=1 And a(m) Mod 2=0 Then
(1)
ElseIf key Mod 2=0 And a(m) Mod 2=1 Then
(2)
Else
(3)
End If
Loop
If i>j Then s = "没有找到！" Else s="位置："+Str(m)
Text1.Text = s
上述程序中方框处可选语句为：
①i=m+1
②j=m-1
③If key<a(m) Then j=m-1 Else i=m+1
则（1）、（2）、（3）处语句依次是（ ）
| A．①、②、③ | B．①、③、② | C．③、②、① | D．②、①、③ |
某对分查找算法的 VB 程序段如下：（ ）
i = 1: j = 7
key = Int(Rnd() * 100) Do While i <= j
m = (i + j) \ 2
If a(m) = Key Then
Exit Do
ElseIf a(m) > Key Then
j = m - 1
Else
i = m + 1
End If
数组元素 a(1)到 a(7)的值依次为“25,42,53,66,77,83,98”，运行上述程序段后，下列条件表达式肯定不成立的是
i = 1: j = 7
key = Int(Rnd() * 100) Do While i <= j
m = (i + j) \ 2
If a(m) = Key Then
Exit Do
ElseIf a(m) > Key Then
j = m - 1
Else
i = m + 1
End If
数组元素 a(1)到 a(7)的值依次为“25,42,53,66,77,83,98”，运行上述程序段后，下列条件表达式肯定不成立的是
| A．j-i=0 | B．i-j=2 | C．i=8 | D．m<=7 |
“旋转数组”过程是指将数组中的元素向右移动k个位置，其中k是非负数。以数组a向右移动3个位置为例，其移动过程有如下两种方法：
原始数据：
方法一：
①向右旋转1步：
②向右旋转2步：
③向右旋转3步：
方法二：
①将a(1)值放至旋转3个位置后位置a(4)：
②将原a(4)值放至旋转3个位置后位置a(3)：
③将原a(3)值放至旋转3个位置后位置a(2)：
④将原a(2)值放至旋转3个位置后位置a(1)：
有n个数存储在数组a中，给定一个整数p(1≤p≤n)，将数组a的前p个数与后n-p个数分别向右旋转k次。例如数组a的各个数值分别是1,2,3,4,5,6,7，当p=4，k=1时，旋转后的结果为4,1,2,3,7,5,6。小明为此编写了VB程序，功能如下：在文本框Text2、Text3中依次输入p和k的值，单击“旋转数组”按钮Command1后，数组旋转后结果显示在Text4中。程序运行界面如下图所示，请回答下列问题：
(1)当文本框Text3中输入内容修改为3时，执行该程序后，a(3)的值为___________。
(2)请在划线处填入合适的代码。
Dim a(20) As Integer
Const n = 20
Private Sub Form_Load()
'随机产生n个[1,100]之间的随机整数，依次存储到a(1)、a(2)、…a(n)中，并在文本框Text1显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, p As Integer, k As Integer,cnt As Integer,c As Integer,t As Integer
p = Val(Text2.Text)
k = Val(Text3.Text)
i = 1:start = 1:c = a(i):cnt = 1
Do While cnt<= p '方法二
a(i) = c
If ________________ Then
start = start + 1
i = i + 1
c = a(i)
Else
c = t
End If
For i = 1 To k '方法一
temp = a(n)
For j = _______________
a(j) = a(j - 1)
Next j
For i = 1 To n
s = s + Str(a(i))
Next i
Text4.Text = s
End Sub
原始数据：
| a(1) | a(2) | a(3) | a(4) |
| 1 | 2 | 3 | 4 |
方法一：
①向右旋转1步：
| a(1) | a(2) | a(3) | a(4) |
| 4 | 1 | 2 | 3 |
②向右旋转2步：
| a(1) | a(2) | a(3) | a(4) |
| 3 | 4 | 1 | 2 |
③向右旋转3步：
| a(1) | a(2) | a(3) | a(4) |
| 2 | 3 | 4 | 1 |
方法二：
①将a(1)值放至旋转3个位置后位置a(4)：
| a(1) | a(2) | a(3) | a(4) |
| 1 | 2 | 3 | 1 |
②将原a(4)值放至旋转3个位置后位置a(3)：
| a(1) | a(2) | a(3) | a(4) |
| 1 | 2 | 4 | 1 |
③将原a(3)值放至旋转3个位置后位置a(2)：
| a(1) | a(2) | a(3) | a(4) |
| 1 | 3 | 4 | 1 |
④将原a(2)值放至旋转3个位置后位置a(1)：
| a(1) | a(2) | a(3) | a(4) |
| 2 | 3 | 4 | 1 |
有n个数存储在数组a中，给定一个整数p(1≤p≤n)，将数组a的前p个数与后n-p个数分别向右旋转k次。例如数组a的各个数值分别是1,2,3,4,5,6,7，当p=4，k=1时，旋转后的结果为4,1,2,3,7,5,6。小明为此编写了VB程序，功能如下：在文本框Text2、Text3中依次输入p和k的值，单击“旋转数组”按钮Command1后，数组旋转后结果显示在Text4中。程序运行界面如下图所示，请回答下列问题：
(1)当文本框Text3中输入内容修改为3时，执行该程序后，a(3)的值为___________。
(2)请在划线处填入合适的代码。
Dim a(20) As Integer
Const n = 20
Private Sub Form_Load()
'随机产生n个[1,100]之间的随机整数，依次存储到a(1)、a(2)、…a(n)中，并在文本框Text1显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, p As Integer, k As Integer,cnt As Integer,c As Integer,t As Integer
p = Val(Text2.Text)
k = Val(Text3.Text)
i = 1:start = 1:c = a(i):cnt = 1
Do While cnt<= p '方法二
i =_____________
t = a(i)a(i) = c
If ________________ Then
start = start + 1
i = i + 1
c = a(i)
Else
c = t
End If
cnt = cnt + 1
LoopFor i = 1 To k '方法一
temp = a(n)
For j = _______________
a(j) = a(j - 1)
Next j
a(p + 1) = temp
Next iFor i = 1 To n
s = s + Str(a(i))
Next i
Text4.Text = s
End Sub
把一个数组最开始的若干个元素搬到数组的末尾，我们称之为数组的旋转。输入一个递增排序的数组的一个旋转，输出旋转数组的最小元素。
数组元素a(1)至a(5)依次为5，22，28，42，55，在a(3)处分成两段，交换位置后为：
旋转数组a的最小元素是5。
数组d(1)至d(5)依次为0，1，1，1，1，在d(5)处分成两段，交换位置后为：
旋转数组d的最小元素是0。
小明依据查找算法思想，设计一个查找旋转数组d最小元素的程序，功能如下：运行程序时，利用“添加”按钮Command1和文本框Text1依次输入旋转数组d的值，在列表List1中显示旋转数组，单击“求解”按钮Command2，在标签Label2中显示旋转数组d最小元素值。运行效果图所示，实现该功能的的VB程序如下。
(1)要使程序运行时，文本框Text1无显示内容，下列方法不能实现该要求的是_______（单选，填字母：A.在Form_Load事件处理过程中添加语句“Text1.Text=""”/B.在Command1_Click事件处理过程中添加语句“Text1.Text=""”/C.设计程序界面时，在属性面板设置文本框Text1的Text属性值为空）
(2)程序代码中，加框处有错，请改正。
(3)程序代码中，将划线处代码补充完整。
(4)程序代码中，虚线框内自定义函数中主要采用的算法是__________(单选，填字母：A.冒泡排序/B.选择排序/C.顺序查找/
Dim n As Integer
Dim d(1 To 100) As Integer '数组 d 存储待排序数据
Private Sub Command1_Click()
'按旋转数组规则将数据存入数组d中，代码略
End Sub
Private Sub Command2_Click()
Dim mid As Integer, L As Integer, R As Integer
L = 1: R = n
mid = L
Do While d(L) >= d(R)
If L=R Then'改错
mid = R
Exit Do
End If
mid = (L + R) \ 2
If d(L)=d(R) And d(mid)=d(R) Then
mid =______________ '填空
Exit Do
End If
If d(L) < d(mid) Then
L = mid
End If
Loop
Label2.Caption = "最小值为" + Str(d(mid))
End Sub
End If
Next i
End Function
数组元素a(1)至a(5)依次为5，22，28，42，55，在a(3)处分成两段，交换位置后为：
| a(1) | a(2) | a(3) | a(4) | a(5) |
| 28 | 42 | 55 | 5 | 22 |
旋转数组a的最小元素是5。
数组d(1)至d(5)依次为0，1，1，1，1，在d(5)处分成两段，交换位置后为：
| d(1) | d(2) | d(3) | d(4) | d(5) |
| 1 | 0 | 1 | 1 | 1 |
旋转数组d的最小元素是0。
小明依据查找算法思想，设计一个查找旋转数组d最小元素的程序，功能如下：运行程序时，利用“添加”按钮Command1和文本框Text1依次输入旋转数组d的值，在列表List1中显示旋转数组，单击“求解”按钮Command2，在标签Label2中显示旋转数组d最小元素值。运行效果图所示，实现该功能的的VB程序如下。
(1)要使程序运行时，文本框Text1无显示内容，下列方法不能实现该要求的是_______（单选，填字母：A.在Form_Load事件处理过程中添加语句“Text1.Text=""”/B.在Command1_Click事件处理过程中添加语句“Text1.Text=""”/C.设计程序界面时，在属性面板设置文本框Text1的Text属性值为空）
(2)程序代码中，加框处有错，请改正。
(3)程序代码中，将划线处代码补充完整。
(4)程序代码中，虚线框内自定义函数中主要采用的算法是__________(单选，填字母：A.冒泡排序/B.选择排序/C.顺序查找/
| A．对分查找)。 |
Dim d(1 To 100) As Integer '数组 d 存储待排序数据
Private Sub Command1_Click()
'按旋转数组规则将数据存入数组d中，代码略
End Sub
Private Sub Command2_Click()
Dim mid As Integer, L As Integer, R As Integer
L = 1: R = n
mid = L
Do While d(L) >= d(R)
If L=R Then'改错
mid = R
Exit Do
End If
mid = (L + R) \ 2
If d(L)=d(R) And d(mid)=d(R) Then
mid =______________ '填空
Exit Do
End If
If d(L) < d(mid) Then
L = mid
ElseIf d(mid) < d(R) Then
R = midEnd If
Loop
Label2.Caption = "最小值为" + Str(d(mid))
End Sub
End If
Next i
End Function
（加试题）数字个数统计。编写VB程序，实现如下功能：在文本框Text1中输入仅由ASCII码字符组成的字符串（长度不超过100），单击“数字统计”按钮Command1，在列表框List1中输出字符串中包含的不同数字及其相应的个数，程序运行效果如下图所示。
（1）为方便调试，要让程序每次运行时文本框Text1中的初始内容为“ab12*{}78ab12()778ab34”，应修改文本框Text1的________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private sub command1_click()
Dim a(0 to 9) as integer ’数组元素a(i)中存放数字i的个数
Dim s as string , ch as string
Dim t as integer
For i=0 to 9
a(i)=0
next i
s=text1.text
for i=1 to len(s)
①____________
if ch>=”0”and ch<=”9” then
t= ②________
a(t)= a(t)+1
end if
next i
list1.clear
for i=1 to 9
if a(i)<>0 then
list1.additem ”数字：”+str(i)+ ”，共有”+ str(a(i))+ ”个”
end if
next i
end sub
（3）与上述程序中加框处代码运行效果等价的条件表达式可以是________。
（1）为方便调试，要让程序每次运行时文本框Text1中的初始内容为“ab12*{}78ab12()778ab34”，应修改文本框Text1的________属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private sub command1_click()
Dim a(0 to 9) as integer ’数组元素a(i)中存放数字i的个数
Dim s as string , ch as string
Dim t as integer
For i=0 to 9
a(i)=0
next i
s=text1.text
for i=1 to len(s)
①____________
if ch>=”0”and ch<=”9” then
t= ②________
a(t)= a(t)+1
end if
next i
list1.clear
for i=1 to 9
if a(i)<>0 then
list1.additem ”数字：”+str(i)+ ”，共有”+ str(a(i))+ ”个”
end if
next i
end sub
（3）与上述程序中加框处代码运行效果等价的条件表达式可以是________。
（加试题）编写一个成绩查询程序，输入要查找的分数，输出该分数的名次及同分人数，其算法是：用数组a存放不同的分值，数组m存储相同分数的人数，数组mc存储不同分数的名次。例如，数据库中有一组成绩（已按降序排列）：98，95，95，92，90，90，87，按该算法，各数组值如下表所示：
程序界面如下图所示，在文本框Text1中输入查询成绩，点击“查找”按钮，若找到，则输出该分数的名次和同分数的人数，若找不到，则输出“查无此分”。
程序代码如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(l To 1000) As Integer ’存放不同的分数值
Dim m(0 To 1000) As Integer ’存放相同分数的人数
Dim mc (0 To 1000) As Integer ’存放此分数的名次
Private Sub Form_Load()
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim tmp As Integer
Dim s As Integer
tmp = -1: n = 0
conn. Connectionstring = 〃provider=Microsoft. AC
conn. Open
Set rs. ActiveConnection = conn
rs.Open "Select * from score"
mc(0) = 1: m(0) = 0
If s = tmp Then ’当前读入分数与上一个分数相同
m(n) = __________
Else
n = n + 1
a(n) = s
m(n) = 1
mc(n) = ___________
End If
_____________
rs. MoveNext
Private Sub Command1_Click0
Dim key As Integer, i As Integer, j As Integer, mid As Integer
key = Val (Text1.Text)
i = 1: j = n
mid = (i + j) \ 2
Do While i <= j And ____________
If a(mid) = key Then
End Sub
| i | 1 | 2 | 3 | 4 | 5 |
| a | 98 | 95 | 92 | 90 | 87 |
| m | 1 | 2 | 1 | 2 | 1 |
| mc | 1 | 2 | 4 | 5 | 7 |
程序界面如下图所示，在文本框Text1中输入查询成绩，点击“查找”按钮，若找到，则输出该分数的名次和同分数的人数，若找不到，则输出“查无此分”。
程序代码如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(l To 1000) As Integer ’存放不同的分数值
Dim m(0 To 1000) As Integer ’存放相同分数的人数
Dim mc (0 To 1000) As Integer ’存放此分数的名次
Private Sub Form_Load()
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim tmp As Integer
Dim s As Integer
tmp = -1: n = 0
conn. Connectionstring = 〃provider=Microsoft. AC
| A．OLEDB. 12. 0; data source=〃 & App. Path & 〃\mydb. accdb〃 |
Set rs. ActiveConnection = conn
rs.Open "Select * from score"
mc(0) = 1: m(0) = 0
Do While Not rs. EOF
s = rs. Fields (〃成绩〃)If s = tmp Then ’当前读入分数与上一个分数相同
m(n) = __________
Else
n = n + 1
a(n) = s
m(n) = 1
mc(n) = ___________
End If
_____________
rs. MoveNext
Loop
End SubPrivate Sub Command1_Click0
Dim key As Integer, i As Integer, j As Integer, mid As Integer
key = Val (Text1.Text)
i = 1: j = n
mid = (i + j) \ 2
Do While i <= j And ____________
mid = (i + j) \ 2
If a(mid) < key Then
j = mid – 1Else
i = mid + 1End If
LoopIf a(mid) = key Then
Label2. Caption = 〃名次: 〃+ Str(mc (mid)) + 〃同分人数: 〃+ Str(m(mid))
ElseLabel2. Caption = 〃查无此分〃
End IfEnd Sub
设计算法，求同时满足以下条件的所有四位正整数之合s。①不大于n(n的值由键盘输入)②能被9整除③十位数是2。算法流程图如下所示：
（1）解决上述问题的算法属于（_______）
A.枚举法 B.擂台法 C.解析法 D.对分法
（2）判断x能被9整除的设计思路是 ；取x十位上数字的设计思路是 。（_______）
A.x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商
B.x除以9的商为0；先求x除以10的余数，再求该余数除以100的商
C.x除以9的商为0；先求x除以100的余数，再求该余数除以100的商
D.x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商
（3）小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。
Dim n as Integer，x as Integer，s as long
s=0
n=InputBox(“输入四位数上限值”)
For____________
_____________
（1）解决上述问题的算法属于（_______）
A.枚举法 B.擂台法 C.解析法 D.对分法
（2）判断x能被9整除的设计思路是 ；取x十位上数字的设计思路是 。（_______）
A.x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商
B.x除以9的商为0；先求x除以10的余数，再求该余数除以100的商
C.x除以9的商为0；先求x除以100的余数，再求该余数除以100的商
D.x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商
（3）小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。
Dim n as Integer，x as Integer，s as long
s=0
n=InputBox(“输入四位数上限值”)
For____________
If___________and_____________ Then
s=s+xEnd If
Next_____________
数组d中存放了一组数据如表所示，采用对分査找数组元素值86。第一次査找的数组元素是d[4]，第二组査找的数组元素是( )
| d[1] | d[2] | d[3] | d[4] | d[5] | d[6] | d[7] |
| 65 | 73 | 75 | 82 | 85 | 91 | 95 |
| A．d[2] | B．d[3] | C．d[5] | D．d[6] |
某对分查找算法的VB程序段如下：
Key=val(Text1. text)
i = 1: j = 10
Do While i <= j
m = int<(i + j) / 2)
If a(m) = key Then Exit Do
If key>a(m) Then i = m + 1 Else j = m - 1
Text2. text= Text2. text+str(a(m))
Loop
Key=val(Text1. text)
i = 1: j = 10
Do While i <= j
m = int<(i + j) / 2)
If a(m) = key Then Exit Do
If key>a(m) Then i = m + 1 Else j = m - 1
Text2. text= Text2. text+str(a(m))
Loop
数组元素a(1)到a(10)的值依次为“5，12，20，29，36，40，55，58，66，74”，若在文本框Text1中输入数据，执行该程序段，文本框Text2中显示的内容为：36，58，40，55，则key的值可能是
| A．38 | B．45 | C．55 | D．70 |