- 二一组卷

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

浙江省高一下学期信息技术期末考试试卷

把杂乱无章的数据变为有序的数据，这一过程称为排序。冒泡排序是其中一种最基础的排序方法，其中的升序是把数列中把较小的数据逐次向上推移的一种排序技术。它的方法是把待排序的n个元素的数组看成是垂直堆放的一列数据，从最下面一个元素起，自下而上的比较相邻两个元素中的数据，如果较小的数据在下面，那将较小的数据换到上面的元素中（否则不交换）重复这一过程，直到处理完最后两个元素中的数据，称为一遍加工，当第1遍加工完成时，最小的数据已经上升到第1个元素的位置；第2遍加工对余下的n-1个元素重复上述处理过程，第2遍加工完成后剩下最小的数据上升到第2个位置；直到n-1遍加工完成后发现数据完成了从小到大的排序。

假设有4个数据：27 36 32 18，需要4-1=3遍加工

第1遍加工如下：

第2遍加工如下：

第3遍加工如下：

假设4个数据放在数组d(1), d(2),d(3), d(4)

第1遍：比较d(j)、d(j-1)，j=4,3,2,比较3次；

第2遍：比较d(j)、d(j-1)，j=4,3,比较2次；

第3遍：比较d(j)、d(j-1)，j=4,比较1次；

（1）、假设另有一组未经排序的数据如下：

45 67 23 87 13 30

按照上述规则进行从小到大冒泡排序，第一遍加工完成后这6个数的位次应该是

。

冒泡排序对应流程图片段如下：

（2）、下面程序片段要实现数据d(1)..d(n)的从小到大排序，请根据上面流程图说明，填写中间部分代码：

……

For i=1 to n-1 '1到n-1遍加工

Next i

……

举一反三

【加试题】过桥问题。n个旅行者在夜晚要通过一座狭窄的桥，桥上最多只能上2个人且必须借助手电筒，手电筒只有一只。为了所有人在最短时间内过桥，设计算法如下：

⑴如果只有1人过桥，时间为个人过桥时间。

⑵如果有2人一起过桥，时间以慢的人为准。

⑶如果有3个人a、b、C，耗时T_a<T_b<T_c ，过桥方案为让a和b一起过桥，a拿手电筒回来，然后与C一起过桥。

⑷如果存在多于3个人，如a、b、……、y、z需要过桥，耗时T_a<T_b<……<T_y<T_x ，这时有两种可选方案，选择其中用时少的，直至剩余少于4人。

①最快的1个将最慢的2个分别送过桥。

a拿手电筒与z过桥，然后a拿手电筒回来再与y一起过桥，a拿手电筒回来；

②最快的2个将最慢的2个送过桥。

让a、b拿手电筒先过桥，a拿手电筒回来，让y、z手拿电筒过桥，然后b拿手电筒回来。

为验证方案，小明设计了相应的VB程序。首先从数据库中获取每个人的过桥时间，并显示在列表框List1中，单击“计算”按钮Command1，在文本框Text1中输出最短耗时，界面如图a所示。

编写VB程序，实现如下功能：在文本框Text1和Text2中分别输入一个整数，单击“转换”命令按钮，在列表框List1中显示结果，运行结果如图a所示。结果包含两列数据，第1列为两数之间的厘米值g(间隔1厘米、升序)，第2列为对应的码值m。

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

有如下VB程序段：

i=1: j=8: n=1

k=Val(Text1. Text)

Do While i<=j

m=(i+j)2

IF k<d(m) Then j=m-1 Else i=m+1

n=n+1

Loop

数组元素d(1)到d(8)依次为3，9，14，17，25，29，32，35，在文本框 Text1输人“14”。执行程序后，下列说法不正确的是（）

小刘设计了一个排序算法，该排序算法会将数组a中奇数位的元素从小到大排列，偶数位的元素从大到小排列，程序界面如图，算法的VB程序段如下：

Private Sub Command2_Click()

Dim i As Integer, j As Integer, tmp As Integer

Dim s1 As String, t As Integer, s2 As String

t=1

For i=1 To n-2

For j= To n Step 2 ‘改错

If a(i)*t>a(j)*t Then

tmp =a(i): a(i)= a(j): a(j)=tmp

End if

Next j

‘填空①

Next i

For i =1 To n

If Then ‘填空②

s1 =s1 Str(a(i))

Else

s2=s2+Str(a(i))

End If

Text2. Text=“奇数位：”+s1

Text3. Text=“偶数位：”+s2

End Sub

回答以下问题：

某排序算法，VB代码如下：

i=1

Do While i<=5

If i = 0 or a(i - 1)<= a(i) Then

i=i+1

Else

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

i=i-1

End If

Loop

数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（）

数组a中存储n个2位正整数，从倒数第2个数开始，利用对分查找的思想，找到它的所在位置，并插入正确位置中，实现整个数组有序。实现该功能的VB程序如下：

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, left As Integer

Dim right As Integer, m As Integer, t As Integer

i = n-1

Do While i > = 1

________

right = n

t = a(i)

Do While left < = right

m = Int((left + right)/2)

If a(m) = t Then right = m: Exit Do

If a(m) < t Then

left = m + 1

Else

right = m-1

End If

Loop

For j = i To right-1

a(j) = a(j + 1)

Next j

________________

i = i-1

s = “”

For j = 1 To n

s = s + Str(a(j))

Next j

List1.AddItem s

Loop

End Sub

相关试卷

公司介绍

服务介绍

帮助中心