- 二一组卷

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

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

小李基于选择排序算法编写了一个VB程序，功能如下:在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。算法的思路:第i趟排序从a(i)……a(bottom)中查找最小值并记录其下标k，同时将后面的每个元素与a(i)比较是否重复，若发现重复数据，进行剔除处理;找到最小值与a(i)交换。

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

Const n=10

Dim a(1 To n)As Integer

Private Sub Command1_Click()

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

Dim k As Integer, bottom As Integer

‘获取排序前数据，依次存储在数组a中，并在文本框Text1中显示。代码略

bottom = n: i = 1

Do While i <= bottom - 1

k = i: j = bottom

Do While j > i

If a(j) < a(k) Then

k = j

Elself a(j) = a(i) Then

a(j) = a(bottom)

IfThen k=j

bottom = bottom - 1

End If

j = j - 1

Loop

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

Else

End If

Loop

For i = 1 To

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

Next i

End Sub

举一反三

有8个西瓜的重量（单位：斤）分别是5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5。若采用选择排序算法对其进行从小到大排序，共需交换数据的次数是（）

有一组数，依次为3、2、8、5、9，若采用选择排序算法对其进行从大到小排序，其中排序方向为从前向后，则第二趟的排序结果是:（）

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

‘①

List1．Addltem Str(a(i))

Next i

End Sub

Private Sub Command2 Click()

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If ＞0 Then ①

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

End If

Next j

②

Next i

For i=1 To 10

List2．Addltem Str(a(i))

Next i

End Sub

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

If{#blank#}1{#/blank#}Then

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

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

End If

Next j

i=start+1

Loop

For i=1 To n

List2.AddItem{#blank#}3{#/blank#}

Next i

End Sub

小吴为了研究冒泡排序过程中数据的”移动”情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数组a中），在文本框'Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Labell中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

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

Dim a（1 To 8）As Integer

Dim n As Integer

Private Sub Form_Load（）

a（1）= 30：a（2）= 47：a（3）= 30：a（4）= 72

a（5）= 70：a（6）= 23：a（7）= 99：a（8）= 24

n = 8

For i = 1 To 8

List 1.Addltem a（i）

Next i

End Sub

Private Sub Command1_Click（）

Dim i As Integer， j As Integer， k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val（Text1.Text）

For i = 1 To n- 1

For j = n To i+1 Step-1

If a（j）< a（j -1） Then

‘⑴

a（j-1）= a（j）

a（j）= k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j-1

s = s + " →" + Str（pos）

‘⑵

pos = j

s = s + " →" + Str（pos）

End If

Next j

Next i

Label1.Caption = "位置变化情况：" +s

For i = 1 To n

List2.AddItem Str（a（i））

Next i

End Sub

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

lst1和lst2都是升序排序的列表，执行如下Python程序段:

result=[]

i=0#用于遍历1st1

j=0#用于遍历1st2

while i<len(lst1) and j<len(lst2) :#①

if lst1[i]<lst2[j]:

result.append(lst1[i])

i+=1

else:

result.append(lst2[j])

j+=1

while i<len(lst1):

result.append(lst1[i]) #②

i+=1

while j<len(lst2):

result.append(lst2[j]) #③

j+=1

下列说法不正确的是（）

相关试卷

公司介绍

服务介绍

帮助中心