（加试题）数组a中存储的是一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组中数的总个数为3的倍数。依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

8

5

3

17

15

10

32

23

18

53

43

37

82

72

63

……

 
Private Sub Command1_Click()
Const n = 15
Dim a(1 To n) As Integer, search As Integer, key As Integer
Dim i As Integer, j As Integer, m As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1.Text)
i = 1: j = n: search = 0
Do While i <= j
m = (i + j) \ 2
If m Mod 3 <> 0 Then m= m -2   '(1) 把m调整到三个一组的最后一个数的位置
If key = a(m) Then
search = m : Exit Do
ElseIf key < a(m) Then
j = m - 3
ElseIf  key <= a(m - 2)  Then    '(2)
i = m + 1
ElseIf key = a(m - 2) Then
search = m - 2 : Exit Do
ElseIf key = a(m - 1) Then
search = m - 1 : Exit Do
Else
search = 0 : Exit Do
End If
Loop
If search <> 0 Then
Text2.Text = Str(search)
Else
Text2.Text = "找不到"
End If
End Sub
加框处代码应修改为：（1）【小题1】 （2）【小题2】

（加试）数组a存放n个学生的学号及成绩，a（2*i-1）存放第i个学生的学号，a（2*i）存放第i个学生的成绩，且成绩按降序排列（i=1,2,……n）。下列VB程序功能为:文本框Text1中输入成绩key，查找该成绩对应学生的学号，在文本框Tex2中显示。
Key = Val（Text1. Text）
i=1:j=( ① )
flag =False
Do While I <=j And Not flag
m=(i+j)\2
If key =a（2*m）Then
Flag = True
Elseif  ( ②  )  Then
j=m-1
Else
i=m+1
End If
Loop
If flag Then Text2.Text=Str（ ③ ） Else Text2.Text=“未找到！”
上述程序段3各方框处的代码分别为

A．（1）2*n （2）key>a(2*m) （3）a(2*m+1）

B．（1）2*n  （2）key<a(2*m)  （3）a(2*m+1)

C．（1）n   （2）key>a（2*m） （3）a(2*m-1)

D．（1）n  （2）key <a(2*m)    （3） a(2*m-1)

在数组元素a(1)到a(5)中查找键值为key的数，其查找算法的VB程序段如下：
Dim a(1 To 5) As Integer
Dim Key As Integer
Private Sub Command1_Click()
t＝0
For i＝1 To 5
If ____①____ Then
t＝i
Exit For ’②
End If
Next i
Print t
End Sub
Private Sub Form_Load()
’此过程用于对数组a和查找键Key进行赋初值，代码略
End Sub
(1)该程序段中所用的查找算法是_____________________________________。
(2)在程序①划线处，填入适当的语句或表达式，把程序补充完整：程序中①划线处应填入_____________________________________________。
当数组元素a(1)到a(5)中存储的数据为(2，5，1，9，5)，查找键Key为5时：
(3)该程序运行结束，t的值是_____________________________。
(4)如果将②所标记的Exit For语句删除，该程序运行结束时，t的值是________。

一次运动会上，某组6位选手的百米成绩(单位：秒)分别是“14.1、12.3、11.2、14.8、13.9、11.0”，若使用选择排序法将该组的成绩按第一名、第二名、第三名……的顺序排序，则第一次交换数据后的顺序是（）

A．14.8 14.1 12.3 11.2 13.9 11.0

B．11.0 12.3 11.2 14.8 13.9 14.1

C．14.8 12.3 11.2 14.1 13.9 11.0

D．11.0 14.1 12.3 11.2 14.8 13.9

查找最大的ASCII码字符。随机生成n（n>=40）个可见ASCII码的字符串（可见字符ASCII码的范围是33~126），并显示在文本框Text1中。单击“查找”按钮运行程序，在标签Label1中输出该字符串中最大的ASCII码值及对应的字符。程序界面如图所示，VB代码如下。请回答下列问题：

（1）要使程序运行时，窗体Form1标题显示“查找ASCII最大的字符”，则需在Form_Load事件过程中添加语句________（单选，填字母：

A．Form1.Text="查找ASCII最大的字符" /

B．Form1.Caption= "查找ASCII最大的字符"/

C．Form1.AddItem "查找ASCII最大的字符"）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 40
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer, max As Integer
s = Text1.Text
max = 0
For i = 1 To Len(s)
ch = ____________ 
If Asc(ch) > max Then max = Asc(ch)
Next i
Label1.Caption = "最大ASCII码:" + _______ + " 该字符为:" + Chr(max)
End Sub
Private Sub Form_Load()   ’随机生成可见字符并显示在文本框Text1中
Randomize
For i = 1 To n
Text1.Text = Text1.Text + _______________
Next i
End Sub