- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省杭州市建人高复2021届高三上学期信息技术第一次考试试卷

小王基于选择排序算法编写了一个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

（1）、若要修改按钮上文字“排序”字体的字号，可以修改Command1对象中的属性(单选。填字母：A . Caption /B . BackColor/ C . Font)

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

Const n=6

Dina(1 To n*n)As Integer

Private Sub Form_Load() ' 产生n*n个数组元素，每行按n个数显示在list1中

Din i As Integer， s As String

For i=2 To n* n

a(i)=Int(Rnd*90)+10

s =s+ Str(a(i))

If i Mod n = 0 Then List1.AddItem s： s =“”

Next i

End Sub

Private Sub Comnand1_ Click()

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

For i = 1 To n*n

k= i

For j= To i+n step -n

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

Next j

If Then t= a(k)： a(k) = a(i)： a(i) =t

Next i

‘将排序后数组a的元素，每行按n个数显示在list2中．

End Sub

（3）、若要实现仅对偶数列进行升序排列，加框处的表达式应改为。

举一反三

用选择排序将七个数“2022，2017，2018，2014，2021，2012，2015”从小到大进行排序，则第二轮交换数据后的顺序是（）

合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回车，则输入的各队员身高分别存入数组a中；单击“合唱队列”按钮Command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中。程序运行界面如图所示：甲、乙、丙、丁、戊和己

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

小明最近学习了一种插入排序的算法。算法的基本思想如下：每次将一个待排序的记录，按其关键字大小插入前面已经排好序的记录集中，使记录依然有序，直到所有待排序记录全部插入完成。

如数据25 54 8 54 21 排序过程如下(n=5):

待排序数据：【25】 54 8 54 21

i=2:【25 54】 8 54 21

i=3:【8 25 54】 54 21

i=4:【8 25 54 54】 21

i=5:【8 21 25 54 54】

程序产生10个-100~100之间的整数，从小到大排序后输出，运行结果如图所示：

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

Dim a(0 To 10) As Integer

Private Sub Command1_Click()’产生10个随机数放在数组a中

Dim i As Integer

For i = 1 To 10

‘①

List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, j As Integer

For i = 2 To 10

a(0) = a(i)

j = i - 1

Do While a(0) < a(j)

‘②

j = j - 1

Loop

a(j + 1) = a(0)

Next i

For i = 1 To 10

List2.AddItem Str(a(i))

Next i

End Sub

①处的代码修改为{#blank#}1{#/blank#}。

②处的代码修改为{#blank#}2{#/blank#}。

有如下VB程序段：

For i = 2 To 4

j = i: flag = False

Do While j >= 2 And Not flag If a(j) < a(j - 1) Then

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

End If j = j - 1

Loop Next i

数组元素a(1)到a(7)的初值依次为“8,2,7,10,6,9,5,3”，则程序运行后，元素a(1)到a(7)的值依次为（）

【加试题】摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组h和数组c中。

程序运行界面如题图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮（Command1），在文本框Text4中输出小林最多能摘得的苹果数ans。

有如下程序段：

For i=1 To 3

For j=i+1 To 7

If a(j)< a(i) Then

k= a(j): a(j)= a(i): a(i)=k

c=c+1

End If

Next j

s= Str(a(i))+s

Next i

Text1.Text=Str(c) & ":" & s

数组元素a(1)至a(7)中值分别为3，9，1，5，8，6，2，该程序段运行后，文本框Text1中显示的内容是（）

相关试卷

公司介绍

服务介绍

帮助中心