【加试题】某排序算法思想如下：若有11个桶，编号从0～10，随机产生多个整数，每产生一个整数时，就在以该整数位编号的桶中放一面小旗子，...

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

浙江省诸暨市牌头中学2018届高三上学期信息技术期中考试试题

【加试题】某排序算法思想如下：若有11个桶，编号从0～10，随机产生多个整数，每产生一个整数时，就在以该整数位编号的桶中放一面小旗子，最后只要按顺序数每个桶中有几面小旗子，就能得到这几个整数的有序排列。例如2号桶中有1个小旗子，表示2出现了一次；3号桶中有1个小旗子，表示3出现了一次；5号桶中有2个小旗子，表示5出现了两次；8号桶中有1个小旗子，表示8出现了一次，按桶的编号顺序读出旗子数量，没有旗子的桶略过,得到有序整数为“2,3,5,5,8”。

为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0,9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Command1，在列表框List2 中显示经过上述排序算法后的数据。运行结果如图所示。

实现上述功能的VB代码如下，但横线处代码有错，请改正。

Dim a(10) As Integer'数组a表示桶的编号，如a(0)表示第0号桶

Private Sub Command1_Click()

Dim i As Integer, j As Integer

For i = 0 To 10

For j = 1 To i 错①处

List2.AddItem CStr(i)

Next j

Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

Randomize

For i = 0 To 10'将数组初始化为0

a(i) = 0

Next i

For i = 1 To 6'产生6个[0,9]的随机数

t = Int(Rnd * 10)

a(t) = t + 1 '第t桶中小旗子数量加1 错②处

List1.AddItem CStr(t)

Next i

End Sub

① ②

举一反三

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

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

有如下VB程序段：

i = 1

Do While i <= 6

t = Int(Rnd * 10) + 1

If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1

Loop

For i = 1 To 2

k = 1

For j = 1 To 6 - i * 2

If a(j) * k > a(j + 2) * k Then

t = a(j) : a(j) = a(j + 2) : a(j + 2) = t

End If

k = -k

Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（）

有如下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)的值是（）

有如下VB程序段：

For i = 1 To n - 1

t = n - (n + i) Mod 2

For j = t To i + 2 Step -2

If d(j) > d(j - 2) Then t = d(j):d(j) = d(j - 2):d(j - 2)= t

Next j

Next i

已知n = 10，数组元素d(1)到d(10)的原始数据为1、2、3、4、5、6、7、8、9、10，程序运行后，d(10)的值为( )

有如下VB程序段：

s =" shenzhen"

For i=1 To Len(s)

a(i) = Mid(s，i，1)

b(i) = i

Next i

For i=Len(s) To 2 Step-1

If a(b(i)) >= a(b(i - 1)) Then

t=b(i)：b(i)=b(i-1)：b(i-1)=t

End If

Next i

Text1.Text = b(1)

文本框Text1中显示的内容是（）

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

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心