题型：填空题 题类：常考题 难易度：困难
浙江省义乌市群星外国语学校2017届高三上学期期中考试信息技术试题
实现上述功能的VB程序如下：
Private Sub Command1_Click()
Dim a(1 To 1000) As String '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = n + 1
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = ②
End Sub
以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为：
① ②
|
a（1） |
a（2） |
a（3） |
…… |
a（n —2） |
a（n—1） |
a（n） |
|
3 |
25 |
38 |
…… |
55 |
31 |
12 |
依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click（）
Const n = 6
Dim a（1 To n）As Integer，flag As Boolean
Dim i As Integer，j As Integer，m As Integer，key As Integer
'读取一组正整数，按上述规则存入数组a中，代码略。
key = VaKText1. Text）
i = 1
j = （n + 1） \ 2
flag = False
Do While 
And Not flag ‘①
m = （i + j） \ 2
If key = a（m） Then
flag = True
ElseIf key< a（m） Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m = 
‘②
If key = a（m） Then flag = True
End If
If flag Then
Text2. Text = Str（m）
Else
Text2. Text = "找不到"
End If
End Sub
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}
| 1 | 5 | 7 | 9 |
| 4 | 6 | 10 | 15 |
| 8 | 11 | 12 | 19 |
| 14 | 16 | 18 | 21 |
已知数据逐行存储在数组a中，在杨氏矩阵数组中查找某数字是否存在的VB程序段如下：
cz = False : i = 1 : j = n
Do While j >= 1 And i <= n
If key < a(s) Then
⑵
ElseIf key > a(s) Then
⑶
Else
cz = True:Exit Do
End If
Loop
方框中的代码由以下三部分组成：
①j = j - 1
②s = (i - 1) * n + j
③i = i + 1
代码顺序正确的选项是（ ）
试题篮
Then i=m＋1 Else j=m－1 ‘(1)
‘(2)