- 二一组卷

题型：单选题题类：常考题难易度：困难

浙江省嘉兴市2018-2019学年高三信息技术3月嘉丽联考试卷

【加试题】插值查找。在有序数组中查找值的VB程序段如下：

Dim a(1 To 10)As Integer

Dim i As Integer，j As Integer，m As Integer，flag As Boolean

Dim key As Integer，n As Integer，C As Integer，d As Integer

i=1：J=10：m=0：flag=False

key=Val(Text1．Text)

Do While i<=J And Not flag

If key<a(i)Or key>a(j)Then n=-1：Exit Do 未找到退出

If a(i) ＜＞a(j) Then

c=key-a(i)：d=a(j)一a(i)

m=i+Int(c*(j-i)／d)

Else

m=i

End If

If key=a(m)Then flag=True：n=m

If key>a(m)Then i=m+1

If key<a(m)Then j=m-1

Loop

If flag=False Then n=-1

其中数组元素a(1)到a(10)分别为“15，25，37，40，63，70，87，90，92，96”，下列说法错误的是（）

A、如在文本框Text1中输入10，程序执行后，变量m取初值0，结果n=-1 B、如在文本框Text1中输入25，程序执行后，变量m的值变化为0→2，结果n=2 C、如在文本框Text1中输入40，程序执行后，变量m的值变化为0→3→4，结果n=4 D、如在文本框Text1中输入78，程序执行后，变量m的值变化为0→6→7，结果n=-1

举一反三

某算法的部分流程图如图所示，执行这部分流程后，输出c的值是（）

执行各选项的VB程序段后，变量s的值为“99以内所有正偶数之和”的是（）

阅读下面程序：

Private Sub command1_click()

a=val(text1.text)

b=val(text2.text)

if a=b then

text3.text=str(a)

exit sub

end if

do while b<>0

r=a mod b

a=b

b=r

loop

text3.text=str(a)

End Sub

在text1、text2中输入30、6，则text3中的值为（）

编写VB程序，实现如下功能：在文本框Text1中输入筛选关键词“ca”,单击“筛选”按钮Command1，在列表框List1所列字符串中查找左边与“ca”相匹配的字符串，并在列表框List2中输出(运行效果如图所示)；否则，在列表框List2中显示“无筛选结果”。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 20)As String ‘用于存储20个字符串

‘将20个字符串分别保存赋值给数组元素a(1)、a(2)、a(3)、a(4)、…、a(19)、a(20)，并在列表框List1中显示

Private Sub Form_Load()

‘代码略

End Sub

Private Sub Command1_Click()

Dim s As String, n As Integer, i As Integer

Dim flag As Boolean ‘变量flag用于标记是否在数组a中筛选到左边与s匹配的字符串

List2.Clear ‘筛选时清空上次筛选结果

s=Text1.Text

n=Len(s)

flag=False

For i=1 To 20

If Then ‘{#blank#}1{#/blank#}

List2.AddItem a(i)

flag=True

End If

Next i

If flag=False Then

‘{#blank#}2{#/blank#}

End If

End Sub

有如下程序段：

s = "defghiabc"

key = Text1.Text

i = 1: j = Len(s)

Do While i <= j

m = (i + j) \ 2

c = Mid(s, m, 1)

If c = key Then Exit Do

If Mid(s, i, 1) < c Then

If key >= Mid(s, i, 1) And key < c Then j = m - 1 Else i = m + 1

Else

If key > c And key <= Mid(s, j, 1) Then i = m + 1 Else j = m - 1

End If

ans = ans + Str(m)

Loop

运行程序后，若在文本框Text1中输入字符"b"，则变量ans的值是（）

杨氏矩阵数组的特征是每行从左到右是递增的，每列从上到下是递增的，如下图所示为一个4×4的杨氏矩阵。

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

代码顺序正确的选项是（）

相关试卷

公司介绍

服务介绍

帮助中心