- 二一组卷

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

浙江省临海市白云高级中学2018-2019学年高二下学期信息技术期中考试试卷

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相信两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示，实现上述功能的VB代码如下：

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

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

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean

i = 1

flag = True

Do While '改错

flag = False

For j = n To i + 1 Step -1

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

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

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为" + '填空

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

（1）、代码“Private Sub Command1_Click()”中的Click是。（单选，填字母：A . 对象名/B . 属性名/C . 事件名）

（2）、程序代码中，Do While语句加框处有错，请改正。

（3）、程序代码中，将Label3.Caption赋值语句补充完整。

（4）、程序代码中，flag值为表示某一遍加工中发生过交换。

举一反三

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

S=“7218634594”：n=Len(s)

t=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(i)<a(k)Then k=j

Next j

If k<>i Then

temp=a(i)：a(i)=a(k)：a(k)=temp：t=t+1

End If

Next i

Text1．Text=Str(t)
运行程序段后， t的值为（）

有如下程序段：

For i=1 To 2

k=i

For j=i+1 To 5

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

Next j

If k <> i Then t=d(k): d(k)=d(i) :d(i)=t

Next i

经过该程序段“加工”后，数组元素d(1)到d(5)的值依次为“44, 35, 30, 11,7”，则数组元素d(1)到d(5)的原始数据依次为（）

下列VB程序功能为：先把数组中最小的元素放到中间位置，再把第二小的元素放到中间的后一个位置，然后把第三小的元素放到中间的前一个位置，以此类推。如数组元素a(1)到a(9)的值依次为72，61，3，95，39，38，64，65，98，程序运行后，数组元素a(1)到a(9)的值依次为98，72，64，39，3，38，61，65，95。

m = (1 + n) \ 2 ‘n为数组元素的个数，m为数组中间位置元素的下标

For i = 1 To n

If a(i) < a(m) Then t = a(i): a(i) = a(m): a(m) = t

Next i

p = m: q = m

For i = 1 To n - 2

If i Mod 2 = 1 Then

k = q + 1: q = q + 1

Else

k = p - 1: p = p - 1

End If

pos = k

For j = 1 To n

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

Next j

If pos > k Then

t = a(pos): a(pos) = a(k): a(k) = t

End If

Next i

上述程序段方框处的代码为（）

某排序算法，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)的值为（）

某VB程序部分程序段如下：

For i=1 To n-1

For j=________

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

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

End If

Next j

Next i

为了使此程序段能实现数组a中的数据升序排列，则划线处应填入的代码是（）。

某工厂每天会收到多个订单，有 n 台机器对零件进行加工。为减少机器的损耗，需要在满足所有订单加工的情况下（订单即到即加工），机器开启数量尽量少。若开启 n 台机器不能满足订单即到即加工，则计算所有订单最少的平均等待时间。若给定某天内所有的订单信息，请计算需要开启的机器数量以及订单平均等待时间，代码运行效果图如图所示（注意：若上一个订单结束时间为 9:00，下一个订单开启时间最早为 9:00）。

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心