- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省温州环大罗山联盟2020-2021学年高二下学期信息技术期中联考试卷

如下图所示，数组a中存储了一组正整数，特征是：①以三个数为一组的话，每组中任意一个数都比前面一组中的任意一个数要大；②每组中三个数依次递减；③数组a的元素总个数为3的倍数。

图 a

依据对分查找思想，设计一个在数组a中查找数据key的程序。执行程序，在文本框Txt1中输入key的值，在文本框Txt2中显示查找结果。根据左右边界，计算中位值，并在标签L1中记录历次中位值的位置。

（1）、程序代码如下，请在划线处填入合适的代码。

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

Dim s As String

' 读取一组正整数，按上述规则存入数组，代码略。

key =

i = 1: j = n: search = 0

Do While i <= j

m = (i + j) \ 2

s = s + Str(m) + ","

If m Mod 3 <> 0 Then '把 m调整到三个一组的最后一个数的位置

If key = a(m) Then search = m: Exit Do

ElseIf key < a(m) Then j = m - 3

ElseIfThen 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

End If

Loop

If search <> 0 Then Txt2.Text = Str(search)

Else

Txt2.Text = "找不到" End If

L1.Caption = s

End Sub

（2）、a数组数据如图 a所示，如果key的值为 10，则L1上显示的内容为。

举一反三

【加试题】有如下VB程序段：

Dim a(1 to 10)as integer

Pos=-1

i=1

do while i<=10

if i mod 2=0 then a(i)=i*2 else a(i)=i

i=i+1

loop

i=10

do while i>=1

if a(i)=12 then Pos=i

i=i-1

loop

该程序段运行后，变量Pos值是（）

【加试题】为分析数组a中各元素依次变化的情况，进行如下定义：

●变化段：数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段(a(i)<a(i-1))和持平段(a(i)=a(i-1))。数组a中的n个元素可构成n-1个依次排列的变化段。

●波峰：从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个，终点是峰顶后所有连续下降段中的最后1个。

●对称波峰：上升段与下降段个数相同的波峰称为对称波峰。

下图为一组数据的变化段及波峰示意图。

现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计了如下VB程序。请回答下列问题：

凯撒密码是一种古老加密方法，其基本思想是：把明文中的所有字母在字母表中向后(或向前)按照一个固定位数进行偏移再替换成密文。如偏移量取3，所有字母A被替换成D，B替换成E，以此类推，X替换成A，Y替换成B。采用该算法加密，偏移量取4，然后把替换后字符的ASCII码用十六进制数表示即为加密结果，则字符“A”（“A”的ASCII码为十进制数65）对应的加密结果是（）

下列可作为VB变量名的是：（）

某对分查找算法的VB程序段如下：

i=1:j=6:flag=False key=Val(Text1.Text)

Do While i<=j And flag = False

m=(i+j)\2

If key=a(m) Then flag=True

If key<a(m) Then j=m-1 Else i=m+1 Loop

数组元素a(1)到a(6)的值依次为“7，9，15，27，34，51”。文本框Text1中输入“27”后运行该程序，运行结束后，下列说法不正确的是（）

采用如下对分查找算法对数组a中7个有序数据“about、count、end、fly、high、jack、month”进行查找。

i=1:j=7:x=“high”

Do While i <=j

m=(i+j)\2

If a(m)=x Then Exit Do

If a(m) > x Then

j=m-1

Else

i=m+1

End If

Loop

执行完上述代码后，根据最终变量值判断下列表达式，其中成立的是（）

相关试卷

公司介绍

服务介绍

帮助中心