- 二一组卷

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

浙江省高中信息技术算法及其程序实现单元检测

n个数据的冒泡升序排序需要经过n-1遍的加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面，在第i遍加工过程中需要进行n-i对数据的比较。在某些情况下，第i遍加工过程中，在上面部分较小数据已经有序的情况下，不需要再进行n-i对数据的比较。如对“17, 18,19, 24, 23, 20”这6个数据排序中，第1遍排序结束后数据为“17, 18,19, 20, 24, 23”，第2遍排序时不再需要对20及其前面3个数据进行比较。以下程序实现了冒泡排序的优化，在横处填入合适的代码。

Dim n As Integer

Dim a(1 To 100) As Integer

’n=10,排序前生成的数据存储在数组a中，并在列表框List1中显示，代码略

Private Sub Command1_Click()

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

i=2

Do While i < n start=n

For j=n To i Step-1

IfThen

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

End If

Next j

i=start+1

Loop

For i=1 To n

List2.AddItem

Next i

End Sub

举一反三

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While '（1）

flag = False

For j = n To i + 1 Step -1

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

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

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为+ " '（2）

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

采用冒泡排序某数组a有5个元素，分别是88,110,48,64,35。采用冒泡排序对其进行排序，若完成某一遍时的结果是35,88,110,48,64，则完成下一遍时的结果是（）

【加试题】随机数排序程序。程序功能如下：窗体加载时生成[10，100]范围内的随机整数10个存储在数组a中,并在列表框List1中显示原始数据，单击“排序”按钮，这10个数据按降序排序后显示在列表框List2中。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 10) As Integer

Private Sub Command1 Click()

Dim i As Integer, j As Integer, x As Integer p = True

i = 1

Do While i <= 9 And p p= False

For j = 10 To i + 1 Step -1

If Then '①

k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True

End If

Next j

i = i + 1

Loop

For i = 1 To 10

List2.AddItem Str(a(i)) Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

List1.Clear

Randomize '初始化随机函数 Rnd

For i = 1 To 10

a(i) = '②

List1.AddItem

Str(a(i))

Next i

End Sub

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

有如下程序段：

For i=1 To 2

k=i

For j=i+1 To 5

If d(k) < d(j) Then k=j

Next j

If k <> i Then t=d(k): d(k)=d(i) :d(i)=t

Next i

经过该程序段“加工”后，数组元素d(1)到d(5)的值依次为“44, 35, 30, 11,7”，则数组元素d(1)到d(5)的原始数据依次为（）

小明学了排序和查找算法后，编写了一个处理成绩的程序。单击“获取成绩”按钮得到n个非降序数保存在数组a(1)—a(n)中，并显示在 List1中。在文本框Text1中输入成绩key，单击“查找”按钮，则在标签 label1中显示共有多少位同学的成绩大于等于该成绩。

小王基于选择排序算法编写了一个VB程序，功能如下：读取若干数据依次存储在数组a中，并将数据分段排序，每段数据的元素个数及排序的次序要求依次存储在数组b中。如图，在文本框Text1中显示数组a的原始数据，在文本框Text2中显示每段数据的元素个数及排序次序要求(0表示升序、1表示降序)；单击“排序”按钮Command1，根据要求输出对每段数据进行排序的结果。实现上述功能的VB程序如下：

Dim n As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Form Load()

‘读取若干数据依次存储到数组a中，并将数据元素的总个数存储到变量n中。

‘将每段数据的元素个数及排序的次序依次存储到数组b中；

‘b(1)、b(2)分别存储第1段数据的元素个数、排序的次序，

‘b(3)、b(4)分别存储第2段数据的元素个数、排序的次序，.....

“代码略。

End Sub

Private Sub Command1_Click())

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

Dim pb As Integer, endpos As Integer

pb=1: endpos =b(1)

For i=1 To n-1

If i=endpos Then

pb=pb+2:i=endpos+1

①

End If

k=i

For j =i+1 To endpos

If Then k=j ‘⑵

Next j

If k<>i Then

②

End If

Next i

Text3.Text ="" ‘⑷

For i=1 To n

Text3.Text=Text3.Text + Str(a(i))

Next i

End Sub

相关试卷

公司介绍

服务介绍

帮助中心