- 二一组卷

题型：综合题题类：模拟题难易度：困难

浙江省2019年信息技术选考模拟试卷五

【加试题】小明设计了一个VB程序，随机产生n个1至20之间的整数，并在列表框List1中降序显示：实现上述功能的VB代码如下，加框外代码有误，请改正。

Private Sub Command1_Click()

Dim n, i, j, temp As Integer

Dim a(1 To 10) As Integer

n = Val(Text1.Text)

Randomize

a(1) = Int(Rnd * 20) + 1

For i = 2 To n

a(i) = Int(Rnd * 20) + 1

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

temp = a(i)

bot = 1 : Top = n

Do While bot <= Top

‘(1)

If temp < a(m) Then bot = m + 1 Else Top = m - 1

Loop

For k = n To bot + 1 Step -1

‘(2)

Next k

a(bot) = temp

End If

Next i

For j = 1 To n

List1.AddItem Str(a(j))

Next j

End Sub

以上程序段运行时，为了实现上述功能，加框处代码应改正为：

⑴；⑵。

举一反三

对N个元素用选择排序法进行排序，元素交换次数SWAP的范围是（）

摘苹果游戏。游戏中的苹果树结了n个苹果，每个苹果有一个地面高度和摘它所需要的力气，要摘到苹果，必须具备高度和力气两个条件，每摘一个苹果都要用掉一定的力气。小林的可用力气是个有限值s，小林手伸直后能摘的最大高度为b，她可以借助的梯子的高度为a。游戏中苹果的高度和所需力气分别存储在数组 h和数组c中。程序运行界面如图所示。运行程序后，输入梯子高度a、手伸直高度b、可用力气s的值，单击“计算”按钮(Command1)，在文本框Text4中输出小林最多能摘得的苹果数ans。

相应程序如下，在划线处填入适当的语句和代码，把程序补充完整。

Dim c(1 To 100) As Integer, h(1 To 100) As Integer, d(1 To 100) As Integer

Dim n As Integer

Private Sub Form_Load()

‘从数据库中读取n个苹果的摘取所需力气和高度存放在数组c和h中,并显示在List1中,代码略

End Sub

Private Sub Command1_Click()

Dim a As Integer, b As Integer, s As Integer, i As Integer, j As Integer, m As Integer

a = Val(Text1.Text) ‘梯子高度

b = Val(Text2.Text) ‘手伸直高度

s = Val(Text3.Text) ‘可用力气

m = 0

For i = 1 To n ‘将所有能够摘得的苹果所需力气存储到数组d中

If{#blank#}1{#/blank#}Then

m = m + 1

d(m) = c(i)

End If

For i = 1 To m - 1

k = i

For j = i + 1 To m

If{#blank#}2{#/blank#}Then k = j

If k <> i Then

t = d(k): d(k) = d(i): d(i) = t

End If

ans = 0 ‘用剩余的力气去摘最多的苹果

For i = 1 To m

If s >= d(i) Then

{#blank#}3{#/blank#}

ans = ans + 1

End If

Text4.Text = Str(ans)
End Sub

有如下VB程序段：

For i= 1 To 3

For j= 1 To 5-i

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

t=a(j)：a(j)=a(j+1)：a(j+1)=t

End If

Next j

Text 1．Text=Text 1．Text+str(a(i) )

Next i

数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（）

小明编写了一个有关整数闭区间合并操作的VB程序：从数据库读取闭区间数据(左端点和右端点)，存储在数组a中，按区间数据左端点升序排序，然后进行合并操作，操作结果存储在数组b中。

例如，读取的数据为2、3、15、25、10、14、1、5、30、60、15、25，过程是：

⑴设置区间信息为[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]；

⑵按区间左端点升序排序，得到J区间信息为[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]，[15，25]；

⑶合并区间，得到[1，5]，[10，25]，[30，60]。说明：区间[1，5]和[2，3]合并为[1，5]，区间[10，14]和[15，25]合并为[10，25]，区间[10，25]和[15，25]合并为[10，25]，因此合并后的结果为：[1，5]，[10，25]，[30，60]三个区间。

程序功能如下：单击“读数据库”按钮Command1，程序从数据库读取数据，输出在文本框Text1中；单击“开始处理”按钮Command2，程序进行区间排序，并进行区间合并操作，操作后的结果输出在文本框Text2中。程序运行结果如图所示。

实现上述功能的VB程序如下，请回答下列问题：

有一组正整数，要求仅对其中的奇数进行升序排序。排序后在列表框List2中也仅显示奇数部分数据，结果如图所示。

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

Const n=10

Dim a (1 To n) As Integer

Private Sub Command1_Click()

Dim t As Integer, i As Integer, j As Integer, m As Integer

Dim tmp As Integer

'读取一组正整数，存储在数组a中，并显示在列表框List1，代码略

i=1

Do While i<=n

For j=n To i+1 Step-1

If a(j) Mod 2=1 Then

If ① Then

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

t=t+1

End If

Next j

If ② Then m=m+1

i=i+1

Loop

For i=1 to m

List2.AddItem Str(a(i))

Next i

List2.AddItem "一共交换了"& t & "次"

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

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

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心