- 二一组卷

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

浙江省七彩阳光新高考研究联盟2021届高三下学期信息技术返校联考试卷

一位茶叶商人从南方收购了 n 吨新茶，由于产地偏僻不通铁路，茶商准备先沿水路运到武汉，再发往全国各地销售。码头上只有 10 条规格不同的小货船，每条船舶都不足以装载全部茶叶。各船舶的最大载重量分别为 W(i)吨，需 f(i)费用(该艘船每吨的费用）（1≤i≤10）。当然，由于茶商是老主顾，而且货船舶还可以搭配载其他货物，因此船主比较客气，声称可以装一部分货物，按实际装多少货物计费（例如，只装了 1/3 吨，则费用为 1/3*f(i)）请问茶商应该选择哪些货船，使得费用最低。若有费用相同，输出用船数最少的。

解题思路：随机生成 10 条船的载重量[1，10]和费用[1，30]，然后将它们按费用从小到大排序，若费用相同，则载重大的在前，运输时，先把费用低的船装满，再按费用向下将船装好，运输。

（1）、根据图a所示，可以发现有（填数字）个对象没有 caption属性。

图 a

（2）、根据上述描述设计如下 VB 程序，请在划线处填入合适的代码。

Dim f(1 To 10) As Integer, w(1 To 10) As Integer, b(1 To 10) As Integer

Private Sub Command2_Click()

Dim n As Integer, count As Integer, yf As Integer

Dim s As String, i as integer

n = Val(Text1.Text)

count = 0

yf = 0

cz = n

i = 1

Do While n > 0

If n >= w(b(i)) Then

Else

yf = yf + n * f(b(i))

End If

count=count+1

s = s + Str(b(i)) + "号船"

i=i+1

Loop

Label2.Caption = "总计费用为:" + Str(yf) + "元 " + Str(count) + " 条船，分

别为 " + s

End Sub

Private Sub form_load()

Dim t As Integer, i as integer, j as integer

List1.Clear

List1.AddItem "编号载重费用'"

For i = 1 To 10

w(i) = Int(Rnd * 10 + 1)

f(i) = Int(Rnd * 30 + 1)

b(i) = i

List1.AddItem Str(b(i)) + " " + Str(w(i)) + " " + Str(f(i))

Next i

For i = 1 To 9

For j = 10 To i + 1 Step -1

If Then

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

End If

Next j

Next i

End Sub

举一反三

下列程序段实现对num数组进行排序，并将排序结果输出。

Private Sub Command1Click()

Dim num(0 To 5) As Integer

Dim i As Integer, j As Integer

Dim t As Integer

num(0) = 4: num(1) = 7: num(2) = 2: num(3) = 0: num(4) = 3: num(5) = 9

i = 0: j = 1: t = 0

For i = 1 To 5 Step 1

For j = i + 1 To 4 Step 1

If num(i) > num(j) Then

t = num(i)

num(i) = num(j)

num(j) = t

End If

Next j

Next i

For i = 1 To 5

List1.AddItem num(i)

Next i

End Sub

【加试题】小李基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

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

Const n=10

Private Sub Form_Load()

‘排序前数据存储在数组a中，并在文本框Text1中显示

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer

Dim bottom As Integer

Dim j As Integer

Dim a(1 To n)As Integer

i=1

bottom=n

Do While i<bottom

k=i

j=i+1

Do While i<=bottom

If a(j)=a(k)Then

a(i)=a(bottom)

‘(1)

bottom=bottom-1

E1seIf a(j)<a(k) Then

k=j

End If

j=j+1

Loop

If Then ‘(2)

t=a(i)

a(i)=a(k)

a(k)=t

End If

i=i+1

Loop

‘排序后数据存储在数组a中，并在文本框Text2中显示

End Sub

【加试题】编写一个 VB 程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框list1中显示，单击“排序”按钮Command1，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

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

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

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

Dim imin1 As Integer, imin2 As Integer

For i = 1 To n \ 2

imin1 = i: imin2 = i + 1

If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

For j = i + 2 To n - i + 1

If a(j) < a(imin1) Then

imin2 = imin1: imin1 = j

'①

imin2 = j

End If

Next j

If i <> imin1 Then t = a(i): a(i) = a(imin1): a(imin1) = t

If imin2 = i Then '②

If n - i + 1 <> imin2 Then

t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

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

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

‘①

List1．Addltem Str(a(i))

Next i

End Sub

Private Sub Command2 Click()

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If ＞0 Then ①

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

End If

Next j

②

Next i

For i=1 To 10

List2．Addltem Str(a(i))

Next i

End Sub

小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

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

Const n = 10

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

Dim i As Integer，j As Integer，t As Integer

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text 1中显示。代码略

bottom = n

i = 1

Do While i<= bottom-1

For j = bottom To i + 1 Step -1

If Then ‘⑴

t = a（j）： a（j）= a（j - 1）：a（j - 1）= t

Elself a（j）= a（j - 1）Then '相邻两个数据相等，进行剔除处理

‘⑵

bottom = bottom -1

End If

Next j

i = i+1

Loop

Text2.Text=＂＂

For i = 1 To bottom

Text2.Text = Text2.Text+Str（a（i））

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

round（3.1415926,3），正确的结果是（）

相关试卷

公司介绍

服务介绍

帮助中心