某社区为庆五一进行“摘草莓”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据草莓颗数进行排序，程序中所有参赛者的成绩保存在数组result中，对应的姓名保存在数组name中。程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。解决此问题...

题型：填空题题类：模拟题难易度：普通

浙江省杭州市2015年高考模拟命题比赛信息技术(6)

某社区为庆五一进行“摘草莓”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据草莓颗数进行排序，程序中所有参赛者的成绩保存在数组result中，对应的姓名保存在数组name中。

程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim result(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim I, J, K, X As Single, Y As String

For I = 1 To 9

K = I

For J = I + 1 To 10

If ① Then K = J

Next J

If K <> I Then

X = result(I) : result(I) = result(K) : ②

Y = name (I) : name (I) = name (K) : name (K) = Y

End If

Next I

For I = 1 To 10

List2.AddItem Str(result(i)) + " " + result(i)

Next i

End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

程序中①划线处应填入。

程序中②划线处应填入。

举一反三

【加试题】小华在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写VB程序功能如下：在列表框List1中显示排序前的数据(存储在数组c中)，单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。程序运行界面如图所示。

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

Const n1=9 ‘第1段已排序数据长度为n1

Const n2=6 ‘第2段已排序数据长度为n2

‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

‘数组c依次存储两段已按从小到大排序的数据

‘并在列表框List1中显示，代码略

List2．Clear

A位置

For i=n1+1 To n1+n2

j=i

B位置

Do While j>1 And Flag

t=c(j)

c(j)=c(j-1)

c(j-1)=t

C位置

Else

Flag=False

End If

j=j-1

‘②

Loop

Next i

For i=1 To n1+n2

List2．Addltem c(i)

Next i

End Sub

下列程序的功能是对某校2011年3月份技术高考成绩进行排名分析，数组a中保存学生技术考试的成绩，数组b中保存学生的姓名，第i个学生的技术成绩保存在a(i)中，对应的学生姓名保存在b(i)中，最后按技术成绩从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有学生到的原始数据，单击"排序"按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按成绩从高到低排列）。

采用冒泡排序对一组数据进行排序，第一遍排序后的结果为2,19,4,55,6,7,11,13,32，那么该数组的原始顺序不可能是（）

原始的冒泡排序是单向的，它始终是从第一个（或最后一个）一个元素开始扫描。小王对冒泡排序进行了改进，从两端进行扫描，首先从数组的左端到右端进行扫描，把最大的数往后交换（以升序为例），再从右端到左端进行扫描，把最小的数往前交换，多次扫描后，最终得到一个有序的序列。他定义了left1、right1两个变量，变量left1表示左边指针，变量right1表示右边指针，每一遍排序，左边指针向右移动一位，右边指针向左移动一位。一趟排序，把最大值沉到最后一个，最小值冒泡到最前一个，最终让数组有序。运行界面如图a,单击“生成数据”按钮在列表框List1中显示生成的10个随机数，单击“排序”按钮后，将排序结果显示在列表框List2中。

实现上述功能的 VB 程序如下，请回答下列问题：

Dim b(1 To 10) As Integer

Dim left1 As Integer, right1 As Integer Private Sub Cd1_Click()

Dim i As Integer, j As Integer

For i = 1 To 10

b(i) = Int(Rnd * 100) + 10 List1.AddItem Str(b(i))

Next i left1 = 1 right1 = 10

End Sub

Private Sub Cd2_Click()

Dim i As Integer, j As Integer, t As Integer

Do While left1 < right1

For j = left1 To right1 - 1

If b(j) > b(j + 1) Then

t = b(j): b(j) = b(j + 1): b(j + 1) = t

End If

Next j

For j = right1 To ‘改错

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

t = b(j): b(j) = b(j - 1): b(j - 1) = t end If

Next j

right1 = ‘填空

Loop

‘将排序结果显示在列表表框List2中，代码略

End Sub

将数组a中的8个数据“18,33,5,26,86,0,60,200”按从大到小的顺序排列，每次可以交换任意两个元素，最少需要交换的次数是（）

编写一个查找最接近的数的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

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

相关试卷

公司介绍

服务介绍

帮助中心