- 二一组卷

题型：填空题题类：常考题难易度：困难

浙江省高中信息技术其他排序算法练习

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

如数据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

①处的代码修改为。

②处的代码修改为。

举一反三

能得到一个大于等于20且小于50随机整数的VB表达式是（）

若A=20,B=80,C=70,D=30，则表达式A+B>160 Or (B*C>200 And Not D>60)的值是 {#blank#}1{#/blank#}

【加试题】某校根据考生名单次序安排试场座位，试场座位分布为“S”形。例如试场安排为5组6排，则第一试场内考生座位分布如图1所示，超过该试场人数的考生，将按相同规则顺延至下一考场，且每场第一组座位都从上至下排列。座位安排算法如下：

⑴根据每试场安排的人数，判断输入的试场号是否在试场总数范围内，若是则转到⑵，否则重输试场号；

⑵根据考生次序和试场人数，计算每一考生所在试场号存入数组sc；

⑶计算考生在本试场中的次序，再根据试场安排的排数，计算考生座位所在的组数和排数，分别存人数组z和数组P。座位分布为“S”形，奇数组和偶数组座位排列顺序不同。

根据以上算法编写VB程序，在文本框Text1中输入组数，在文本框Text2中输入排数，在文本框Text3中输入试场号，单击“查询”按钮Command1，在List1中显示该试场座位表(名字前的数字是考生在名单中的次序)，运行界面如图2所示。

下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是{#blank#}1{#/blank#}。

Private Sub Command1_Click()

Dim t As Single, h1 As Single, h2 As Single

Const g = 9.8

t = Val(Text1.Text)

h1 = (g * t ^ 2) / 2

h2 = Int(h1)

Text2.Text = Str(h2)

End Sub

在VB中，描述x、y中存在一个小于z的逻辑表达式（）

数组a存储降序排列的m个数据，数组b中存储的是升序排列的n个数据，且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中，使c数组的数据为左右交替上升，如下表所示：

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While ①

If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If

c(pc) = s

If flag Then

pc = m + n - pc + 1

Else

pc =

End If

②

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

相关试卷

公司介绍

服务介绍

帮助中心