【加试题】用选择排序算法对一组数据进行排序，已知第一遍排序结束后的数据序列为66,78,93,87,82，则下列选项中可能是原始数据序列的是：（）

题型：单选题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷七

A、78,93,87,82,66 B、93,78,66,87,82 C、78,93,66,82,87 D、93,66,78,87,82

举一反三

【加试题】有如下VB程序段：

i =1：j=2

Do While j <= 10

If j < 10 Then

If a(j) > a(j + 1) Then j = j + 1

End If

If a (i) > a(j) Then

temp =a (i): a(i) = a(j): a(j) = temp

i=j

j=2*i

Else

Exit Do

End If

Loop

Text1.Text =a (2)

已知数组元素a(1)到a(10)的原始数据为“20, 3, 10, 17,18, 15, 16, 19, 21, 30”，执行该代码后,文本框Text1中显示内容是：（）

【加试题】某同学编写了一段模仿Excel的Rank排位函数VB程序，运行界面如图。程序功能如下：程序运行后先自动生成1000个取值范围在[1,100]的随机数（保留两位小数）并显示在List1中，在Text1和Text2中输入排序范围的起始位置和结束位置，在b(i)中存储a(i)在该范围中的排位，并输出排位到列表框List2，实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()

Randomize '生成 1000 个随机数 For i = 1 To 1000

① '产生随机数，保留二位小数

b(i) = 1 '初始排位为 1

List1.AddItem "a(" & i & ")=" & a(i) Next i

End Sub

Private Sub Command1_Click()

Dim ks As Integer, js As Integer

ks = Val(Text1.Text)

js = Val(Text2.Text)

For i = ks To js

For j = ks To js

If Then b(i) = b(i) + 1 ②

Next j

Text1 Text2

List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i

End Sub

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

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及其前面4个数据进行比较。程序界面如下图所示

以下程序实现了冒泡排序的优化，请在划线处填写合适的代码。

Dim n As Integer

Dim a (1 to 100) As Integer

Private Sub Form_Load()

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

‘代码略

End Sub

Private Sub Command1_Click()

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

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

Do While i < n

start = n

For j = n To i Step {#blank#}2{#/blank#}

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

t = a(j): {#blank#}3{#/blank#} : a(j - 1) = t

start = j

End If

Next j

{#blank#}4{#/blank#}

Loop

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

有如下VB程序段：

s=“7218634594” : n=Len(s): c=0

For i=1 To n-1

a(i)=Val(Mid(s, i, 2))

Next i

For i=1 To n-2 Step 2

k=i

For j=i+2 To n-1 Step 2

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

Next j

If k <> i Then

t=a(i): a(i)=a(k): a(k)=t: c=c+1

End If

Next i

Text1.Text=Str(c)

该程序段运行后，Text1中显示的内容是（）

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

摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组 h和数组c中。程序运行界面如图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮(Command1)，在文本框Text4中输出小林最多能摘得的苹果数ans。

相应程序如下，在划线处填入适当的语句和代码，把程序补充完整。

Dim c(1 To 100) As Integer, h(1 To 100) As Integer, d(1 To 100) As Integer

Dim n As Integer

Private Sub Form_Load()

‘从数据库中读取n个苹果的摘取所需力气和高度存放在数组c和h中,并显示在List1中,代码略

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer, i As Integer, j As Integer, m As Integer

a = Val(Text1.Text) ‘梯子高度

b = Val(Text2.Text) ‘手伸直高度

s = Val(Text3.Text) ‘可用力气

m = 0

For i = 1 To n ‘将所有能够摘得的苹果所需力气存储到数组d中

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

m = m + 1

d(m) = c(i)

End If

For i = 1 To m - 1

k = i

For j = i + 1 To m

If{#blank#}2{#/blank#}Then k = j

If k <> i Then

t = d(k): d(k) = d(i): d(i) = t

End If

ans = 0 ‘用剩余的力气去摘最多的苹果

For i = 1 To m

If s >= d(i) Then

{#blank#}3{#/blank#}

ans = ans + 1

End If

Text4.Text = Str(ans)
End Sub

相关试卷

公司介绍

服务介绍

帮助中心