- 二一组卷

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

浙江省杭州市建人高复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）、若要实现仅对偶数列进行升序排列，加框处的表达式应改为。

举一反三

下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。

数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

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

小吴为了探究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：

在列表框List1中显示排序前数据（存储在数组a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，请在横线处填上合适的代码，改正加框处的代码。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

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

'代码略

End Sub

Private Sub Command1_Click()

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

Dim pos As Integer '变量pos存储指定数据的位置（既下标值）

Dim s As String '变量s存储pos变化情况

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = ⑴

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)

'（3）

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#} ⑶{#blank#}3{#/blank#}

有如下VB程序段：

Dim a(1 To 5)As Integer, i As Integer, j As Integer key As Integer

a(1)=8：a(2)=13：a(3)=25：a(4)=98：a(5)=56

For i=4 To 5

j=i： Key a(j)

Do While a(j-1)>Key and j>

a（j）=a(j-1)

j=j-1

Loop

a(j)=Key

Next i

执行该程序段后，数组元素a(1)~a(5)的值是（）

小吴研究插入排序算法，若对无序数列5，2，9，5，3，利用传统的简单插入排序进行升序排序，其方法如下：

首先将5取出，得到序列5；

第二步将2取出，插入序列得到2，5；

第三步将9取出，插入后得到2，5，9；

第四步将5取出，插入后得到2，5，5，9；

第五步将3取出，插入后得到2，3，5，5，9，排序完成。

小吴对这种插入排序进行了一些改进，将无序数列存入a数组中，将排序后的数据存入b数组中，同时保证b数组不存在重复的数字。对于重复出现的数字，用cnt数组记录重复个数。例如无序数列8、6、7、4、4、9、1、9、9、8，a(1)～a(10)存储原数据，b(1)～b(6)存储排序后的不重复数据，cnt(1)～cnt(6)存储每个数字重复的个数，如图a所示。

数组/下标	1	2	3	4	5	6
b	1	4	6	7	8	9
cnt	1	2	1	1	2	3

图a

程序运行后，自动随机生成原数组并显示在列表框List1中，点击按钮“开始”后，生成升序排序数组并显示在列表框List2中，程序运行界面如图b所示。

图b

请回答下列问题。

有如下VB程序段：

For i=1 To 6

j=7

Do While j>i

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

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

End If

j=j-1

Loop

Next i

For i=3 To 6

s=s+a(i)

Next i

Label1.Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8，2，3，7，10，6，5”，则执行该程段后，标签Label1中显示的是（）

相关试卷

公司介绍

服务介绍

帮助中心