- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省高中信息技术查找算法及程序实现同步练习

有如下VB程序段：

Dim a(1 To 10) As Integer

Private Sub Form_Load()

a(1)=2:a(2)=3:a(3)=3:a(4)=3:a(5)=3

a(6)=6:a(7)=7:a(8)=7:a(9)=8:a(10)=9

End Sub

Private Sub Command1_Click()

Dim key As Integer, i As Integer, j As Integer

Dim m As Integer, p As Integer

key=Val(Text1.Text)

i=1: j=10

Do While i <=j

m=(i+j) \ 2

If a(m)=key Then

p=m

j=m-1

Else If key < a(m) Then

j=m-1

Else

i=m+1

End If

Loop

Text2.Text=Str(p)

End Sub

程序运行时，在文本框Text1中输入3，单击按钮，文本框Text2显示的内容是（）

A、2 B、3 C、4 D、5

举一反三

【加试题】有1个升序排列的数组a(a(1)～a(n)，n≥3)，从左到右相邻两个元素的差值（后一个元素值减去前一个元素值）先由小到大、再由大到小，且相邻两个差值不相等，为了查找相邻两个元素的最大差值，小李编写的VB程序段如下：

i = 1 ：j = n

Do While i + 1 < j

m = (i + j) \ 2

If a(m + 1) - a(m) > a(m) - a(m - 1) Then

Else

End if

Loop

Label1.Caption="相邻两个元素的最大差值是" + Str(a(j) - a(i))

上述程序段两个方框处的语句分别为（）

查找最接近的数。编写一个查找最接近的数的VB程序:程序运行时，在文本框Text1中输入产生随机数的个数(1到100之间)，单击命令按钮“产生随机数并升序排列”后，在列表框List1中显示已经按升序排列后的随机整数。然后在文本框Text2中输入要查找的整数，单击命令按钮“查找”后，在标签Label3中显示随机整数序列中与待查找数最接近的整数(当最接近的数有2个时，输出较大的一个)。程序运行效果如图所示。实现上述功能的VB代码如下，请在横线处填入合适代码。

Dim n As Integer ‘存储随机数的个数

Dim f(1 To 100) As Boolean ‘f (i)为true时表示随机整数i已经产生过

Dim a(1 To 100) As Integer ‘依次存放升序排序后的n个随机数

Private Sub Command1_Click() ‘命令按钮“产生随机数并升序排列”的单击事件

Dim i As Integer

Randomize

For i=1 To 100

f(i)=False

Next i

n=Val(Text1. Text)

For i=1 To n

t=Int(Rnd * 100+1)

Do While f(i)=True

t=Int (Rnd * 100+1)

Loop

{#blank#}1{#/blank#}

Next i

j=0

For i=1 To 100 ‘实现排序并输出

If f(i)=True Then

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

a(j)=i

List1.AddItem Str(i)

End If

Next i

End Sub

Private Sub Command2_Click() ‘命令按钮“查找”的单击事件

Dim key As Integer

key=Val(Text2. Text)

If key <=a(1) Then Label3. Caption=Str(a(1)) : Exit Sub

If key >=a(n) Then Label3. Caption=Str(a(n)) : Exit Sub

L=1: R=n

Do While L <=R ‘找到与key较为接近的两个数a(R)和a(L)

m=(L+R) \2

If key <=a(m) Then

R=m-1

Else

L=m+1

End If

Loop

If{#blank#}3{#/blank#}Then ‘在a(R)和a(L)中选出更接近key的数

Label3. Caption=Str(a(R))

Else

Label3. Caption=Str(a(L))

End If

End Sub

在数组d(1)到d(10)中存放了以下数据:10，12，17，20，22，27，40，45，50，80。指定关键字为50，对数组进行对分查找，依次所经过的元素为（）

查找并删除重复数据的算法是对数组a中每个元素逐个作为关键字进行从后往前查找，如果有重复，删除该数据后继续查找。例如，第一次将a(1)作为关键字，从a(10)到a(1)进行逐个查找，如果和a(1)相等，则删除该数据，然后继续查找;如果是a(1)本身和它相等，则代表无重复数据。编写VB程序，程序功能如下:运行程序时，在列表框List1中显示数组a中的原始数据；单击“去除重复”按钮(Command1)，在列表框List2中输出去除重复后的数组a中的数据，同时在标签Label1中显示删除的数据总个数，运行效果如图所示。

请回答下列问题：

小吴编写了一个查找数组中不重复数据的VB程序，功能如下:程序运行时在列表框List1中显示原始数据(存储在数组a中)，单击“查找”按钮Command1后，在列表框List1中显示数组中元素值只出现一次的数据。程序运行界面如图所示。

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

Const n = 10 ‘数组元素的总数

Dim a(1 To n) As Integer

Private Sub Form_Load()

‘该过程对数组a进行赋值,并在列表框List1中显示，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer,flag(1 To n) As Boolean

‘flag(i)记录第i个元素是否重复出现

For i = 1 To n ‘flag(i)=true开始假设都只出现1次

flag(i) = True

Next i

For i = 1 To n

If flag(i) Then

For j = i + 1 To n

If Then flag(i) = False: flag(j) = False ‘①

Next j

End If

Next i

For i = 1 To n

If Then List2.AddItem Str(a(i)) ‘②

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

杨氏矩阵数组的特征是每行从左到右是递增的，每列从上到下是递增的，如下图所示为一个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

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

相关试卷

公司介绍

服务介绍

帮助中心