- 二一组卷

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

【bj】高中信息技术综合库——排序算法及程序实现1

编写一个查找最接近的数的VB程序：程序运行时，在文本框Text1中输人产生随机数的个数（1到100之间），单击命令按钮“产生随机数并升序排列”后，在列表框List1中显示已经按升序排列后的随机整数，然后在文本框Text2中输入要查找的整数，单击命令按钮"查找"后，在标签Label3中显示随机整数序列中与待查找数最接近的整数（当最接近的数有2个时，输出较大的一个）。程序运行效果如图所示：

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

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

Dim f(1To100)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(t)=True

t=Int(Rnd * 100+1)

Loop

Next i

j=0

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

If f(i)=True Then

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 Then

'在a(R)和 a(L)中选出更接近key的数

Label3. Caption=Str(a(R))

Else

Label3. Caption=Str(a L))

End If

End Sub

举一反三

【加试题】数组a为一组正整数，奇数在前，偶数在后。奇数与偶数已分别按升序排序。依据对分查找思想，设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下：

i=1:j=10

Key=Val(Text1．Text)

If a(m)=Key Then Exit Do ‘Exit Do表示退出循环

If Key Mod 2=1 And a (m)Mod 2=0 Then

ElseIf Key Mod 2=0 And a(m)Mod 2=1 Then

Else

End If

Loop

If i>j Then s=“没有找到!”Else s=“位置：”+Str(m)

Text2.Text=s

上述程序中方框处可选语句为：

①i=m+1

②j=m-1

@If Key<a(m)Then j=m-1 Else i=m+1

则(1)(2)(3)处语句依次是（）

有如下VB程序段：

i = 1: j = 6: c = 0: f = False

key = Val(Text1.Text)

Do While i<= j And Not f

c = c + 1

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

If key = a(m) Then f = True

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

Loop

数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是（）

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

i=1 : j=8 : t=0

key=Int(Rnd()*7)+14

Do While i<=j

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

t=t+1

if a(m)=key Then

Exit Do else

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

Else

i=m+1

End if

End if Loop

数组元素 a(1)到 a(8)的值依次为“2,11,14,15,18,19,20,22”，该程序段运行结束后，变量t的最大值可能是（）

【加试题】有如下VB程序段：数组元素a(1)到a(6)的值分别为“Beijing”、“Guangdong”、“Jiangsu”、“Jiangxi”、“Shanghai”、“Zhejiang”，已按字典序排序。当key的值为“Zhejiang”时，单击命令按钮Command1，文本框Text1中显示的内容为（）

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer

Dim s As String

i = 1: j = 6

Key = Text1.Text：s = ""

Do While i <= j

m = Int((i + j) / 2 + 0.5)

s = s + " " + a(m)

If Key > a(m) Then

i = m + 1

Else

j = m - 1

End If

Loop

Text1.Text = s

End Sub

某VB程序部分程序段如下：

For i=1 To n-1

For j=________

If a(j)<a(j -1) Then

t=a(j): a(j)=a(j-1): a(j-1)=t

End If

Next j

Next i

为了使此程序段能实现数组a中的数据升序排列，则划线处应填入的代码是（）。

小王基于选择排序算法编写了一个VB程序，功能如下：数组a有n*n个元素，按列进行升序排序，例如6*6的数组，第一列将a(1)，a(7)，a(13)，a(19)，a(25)，a(31)进行排序。运行程序，在列表概List1中显示n*n个数列单击“排序"按钮Command1，在列表概List2中显示排序后的结果，程序运行界面如图a所示。

图a

相关试卷

公司介绍

服务介绍

帮助中心