某仓库货物查询系统，数组id保存货物编号（货物编号已经按照从小到大的顺序保存），数组n保存货物名称，数组c保存货物数量。数组中的数据信息一一对应。该系统提供3种查询方式，查询优先级最高的是按编号查询，其次是按名称查询，最低的是按数量查询（在输入多个查询条件的情况下，只按照优先级高的条件进行查询，其中按数量查询可以查询到所有货物数量小于输入值的结果）并将查询结果在list1中显示。程序界面如图2-1...

题型：综合题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷九

某仓库货物查询系统，数组id保存货物编号（货物编号已经按照从小到大的顺序保存），数组n保存货物名称，数组c保存货物数量。数组中的数据信息一一对应。该系统提供3种查询方式，查询优先级最高的是按编号查询，其次是按名称查询，最低的是按数量查询（在输入多个查询条件的情况下，只按照优先级高的条件进行查询，其中按数量查询可以查询到所有货物数量小于输入值的结果）并将查询结果在list1中显示。程序界面如图2-1所示。

部分程序代码如下：

Public number As String '货物编号

Public na As String '货物名称

Public co As String '货物数量

Private Sub Command1Click()

Dim flag As Integer '查询结果标志

number = Text1.Text

na = Text2.Text

co = Text3.Text

If (number = "" And na = "" And co = "") Then MsgBox ("你还没有输入查询条件") ’第一种情况

If number <> ""Then ’第二种情况

flag = searchnum(1, n) 'n 表示总的货物种类数量

List1.AddItem id(flag) + n(flag) + c(flag)

If flag = -1 Then MsgBox ("查询无结果，检查是否输入有误")

End If

If na <> "" Then ‘第三种情况

flag = searchna(1, n) 'n 表示总的货物种类数量

List1.AddItem id(flag) + n(flag) + c(flag)

If flag = -1 Then MsgBox ("查询无结果，检查是否输入有误")

End If

If co <> "" Then ‘第四种情况

flag = searchco(1, n)

If flag = 0 Then MsgBox ("查询无结果，检查是否输入有误")

End If

End Sub

Function searchnum(i, j) As Integer '按编号查询函数

Dim m As Integer

Do While i <= j

m = Fix((i + j) / 2)

If id(m) = number Then

searchnum = m: Exit Function '查询到结果返回值并结束该函数

End If

If id(m) > number Then ① Else i = m + 1

Loop

searchnum = -1

End Function

Function searchna(i, j) As Integer '按名称查询函数

For i = 1 To j Step 1

If n(i) = na Then searchna = i: Exit Function

Next i

searchna = -1

End Function

Function searchco(i, j) As Integer '按货物数量函数

Dim f As Integer

f = 0

For i = 1 To j Step 1

If ② Then

List1.AddItem id(i) + n(i) + c(i)

f = 1

End If

Next i

searchco (f)

End Function

回答下列问题：

（1）、程序中划线处应填入的代码是：①②

（2）、Sub Command1 Click()事件处理过程中，使用了4个IF语句区分四种情况分别进行查询。按照题目所给的程序代码能否实现只按照优先级高的条件进行查询？(填是/否)

举一反三

字符串删除与插入:给定一个长度不超过100位的字符串S，现有以下两种操作指令：

指令1（删除）：给出一个字符串S1，在字符串S中找到最左边的一个字符串S1，将其删除，若在S中不存在字符串S1，则字符串S不变。

例如：S=“China is a big family,it is big” S1=“big”

则执行指令1后，S=“China is a family,it is big”

若S1=“small”，则S不变。

指令2（插入）：给出一个字符串S2，和一个整数w，将S2插入到S中以w开始的位置。

例如：S=“a big family” S2=“very ” w=3

则执行指令2后，S=“a very big family”

注意S中“a”后有一个空格，S2中“y”后有一个空格

实现上述功能的VB程序如下。请在划线处填入合适代码。

Dim S As String

Private Sub Command1_Click() ’单击Command1实现删除指令

Dim S1 As String

S = Text1.Text

S1 = Text2. Text

S = del(S1)

Text5.Text = S

End Sub

Private Sub Command2_Click() ’单击Command2实现插入指令

Dim S2 As String, W As Integer

S = Text1.Text

S2 = Text2.Text

W = Val(Text4.Text)

S = {#blank#}1{#/blank#} ’调用函数，实现插入指令

Text5.Text = S

End Sub

Function del(S1 As String) As String ’在字符串S中查找并删除S1

Dim S3 As String

For i = 1 To Len(S) - Len(S1) + 1

S3 = "" ’S3表示从位置i开始，取出长度和S1相同的字符串

For j = i To i + Len(S1) - 1

S3 = S3 + Mid(S, j, 1)

Next j

If {#blank#}2{#/blank#} Then ’如果找到S1，则将S1删除

S = Mid(S, 1, i - 1) + Mid(S, i + Len(S1), Len(S) - Len(S1) - i+ 2)

del = S

Exit Function ’删除左边的第一个S1后，退出函数，以保证只删除一次

End If

Next i

End Function

Function add(S2 As String, W As Integer) As String

S = Mid(S, 1, W - 1) + S2 + {#blank#}3{#/blank#} ’将S2插入W开始的位置

add = S

End Function

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

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

i=1．j=6：flag=False：key=56

Do While i<=i

m=i+(j-i)＼2

If a(m)<=key Then

i=m+1

Else

j=m-1：flag=True

End If

Loop

If flag Then t=i Else t=-1

数组元素a(1)到a(6)的值依次为10，18，25，30，45，56。该段程序运行后，t的值是（）

数组a中存储的是左右交替上升的n个正整数，如下表所示：

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#}

有如下程序段

Dim n As Integer, i As Integer, left As Integer, right As Integer, m As Integer

Dim a(1 To 10) As String, t As String, key As String n = 6

a(1) = "35": a(2) = "20": a(3) = "18": a(4) = "8": a(5) = "274": a(6) = "47" For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(i) < a(j) Then

t = a(i): a(i) = a(j): a(j) = t

End If

Next j

Next i

key = Text1.Text

left = 1: right = n

Do While left <= right

m = (left + right) \ 2

If a(m) = key Then Exit Do

If a(m) < key Then right = m - 1 Else left = m + 1

Loop

若在文本框 Text1 中输入“212”，则程序运行结束后，m 的值为（）

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

key＝Val(Text1.Text)

s＝“ ”

i ＝ 1 : j ＝ 10

Do While i ＜＝ j

m ＝(i＋j)\2

s ＝ s＋ Str(a(m))

If a(m)＞ key Then j ＝ m -1 Else i ＝ m ＋1

Loop

Text2.Text ＝ s

数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text1中输入待查找的数，执行该程序段，则文本框text2中显示的内容可能的是（）

有如下 Python 程序段：

import random

a = [1,3,4,6,6,6,9,9,11,12]

key = random.randint(2,5) * 2

i,j = 0,9

while i <= j :

m = (i + j) // 2

if key < a[m]:

j = m - 1

else:

i = m + 1

print(j)

执行该程序段后，输出的结果不可能是（）

A ．2 B ．3 C ． 5 D ． 7

相关试卷

公司介绍

服务介绍

帮助中心