- 二一组卷

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

浙江省湖州市菱湖中学2019届高三上学期信息技术12月月考试卷

【加试题】n堆金币，把两堆金币合并到一起，n堆金币经过n-1次合并之后就只剩下一堆了。如何消耗最少的体力，把这n堆金币合并成一堆？合并所消耗的体力等于每次合并两堆金币的重量之和。比如，n=3时表示共有3堆金币，每堆重量分别是2、1、9.一种合并方案是2和9合并，新堆重量是11，消耗体力为11；接着11和1合并，新堆重量是12，消耗体力为12，因此总消耗体力是11+12=23。另一种方案是：1和2合并，新堆重量是3，消耗体力为3；接着3和9合并，新堆重量是12，消耗体力为12，因此总消耗体力是3+12=15。可以证明这就是最少消耗体力。

小张经分析，每次n堆金币如果都是从小到大，将前两堆合并成新一堆，然后，继续进行从小到大排序，如此合并成最后一堆，此时消耗体力最少，为此他编写了一个解决上述问题，求最少体力的VB程序，功能如下：窗体加载时，自动读取n堆金币的数据，依次存储在数组元素a(1)、a(2)、a(3)…中，金币堆数存储在变量n中，n堆金币的重量数据显示在列表框List1中。单击“求解”按钮Command1，程序对n堆金币进行合并处理，消耗最少的体力显示在文本框Text1中。程序运行界面如图所示。

（1）、如果有5堆金币，每堆重量分别是12、8、5、9、15，则将这5堆金币合并成一堆金币，最少消耗体力是。

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码。

Const n = 10

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

Dim a(1 To n) As Integer

Private Sub Form_Load()

'本过程用于读取n堆的数据并存储在数据a中

'代码略

End Sub

'sort(x)过程的功能是对a(x)、a(x+1)、……、a(n)中的数进行从小到大排序

Private Sub sort(x As Integer)

For i =To n - 1

For j = n To i + 1 Step -1

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

End Sub

Private Sub Command1_Click()

Dim sum As Integer, k As Integer

sum = 0

sort (1)

For k = 1 To n - 1

a(k + 1) = a(k) + a(k + 1)

sum = sum +

sort ()

Next k

Text1.Text = Str(sum)

End Sub

举一反三

某社区进行“摘葡萄”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据葡萄串数进行排序，程序中所有参赛者的成绩保存在数组m中，对应的姓名保存在数组name中。

程序运行界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：

Dim m(1 To 10) As Single

Dim name(1 To 10) As String

Private Sub Command1_Click( )

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

For i = 1 To 9

k = i

For j = i + 1 To 10

If ① Then k = j

Next j

If k <> i Then

x = m(i) : m(i) = m(k) : ②

y = name (i) : name (i) = name (k) : name (k) = y

End If

Next I

For I = 1 To 10

List2.AddItem Str(m(i)) + " " + name(i)

Next i

End Sub

Private Sub Form_Load()

' 此过程用于对数组a和数组b进行初始赋值，代码略

End Sub

在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：

若采用选择排序算法对其进行从大到小排序，则第二趟的排序结果是（）

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

Dim a(1 To 8) As Integer

a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 26

a(5) = 48: a(6) = 91: a(7) = 98: a(8) = 13

n = 8: t = 0

For i = 1 To n - 1

k = i

For j = i + 1 To n

If a(j) < 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)

该程序段运行后，文本框Text1中显示的内容是（）

小明编写了一个有关整数闭区间合并操作的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程序如下，请回答下列问题：

编写一个查找最接近的数的VB程序：程序运行时，在文本框Text1中输人产生随机数的个数（1到100之间），单击命令按钮“产生随机数并升序排列”后，在列表框List1中显示已经按升序排列后的随机整数，然后在文本框Text2中输入要查找的整数，单击命令按钮"查找"后，在标签Label3中显示随机整数序列中与待查找数最接近的整数（当最接近的数有2个时，输出较大的一个）。程序运行效果如图所示：

实现上述功能的VB代码如下，请在横线处填入合适代码。

Dim n As Integer '存储随机数的个数

Dim f(1To100)As Boolean

'f(i)为True时表示随机整数i已经产生过

Dim a(1 To 100)As Integer

'依次存放升序排序后的n个随机数

Private Sub Command1_Click()

'命令按钮“产生随机数并升序排列”的单击事件

Dim i As Integer

Randomize

For i=1 To 100

f(i)=False

Next i

n=Val(Text1. Text)

For i=1 To n

t=Int(Rnd * 100+1)

Do While f(t)=True

t=Int(Rnd * 100+1)

Loop

{#blank#}1{#/blank#}

Next i

j=0

For i=1 To 100 '实现排序并输出

If f(i)=True Then

{#blank#}2{#/blank#}

a(j)=i

List1.AddItem Str(i)

End If

Next i

End Sub

Private Sub Command2_Click()

'命令按钮“查找”的单击事件

Dim key As Integer

key=Val(Text2. Text)

If key <=a(1) Then Label3. Caption=Str(a(1)): Exit Sub

If key >=a(n) Then Label3. Caption=Str(a( n)): Exit Sub

L=1: R=n

Do While L<=R '找到与 key 较为接近的两个数a(R)和a(L)

m=(L+R)\2

If key<=a(m)Then

R=m-1

Else

L=m+1

End If

Loop

If {#blank#}3{#/blank#}Then

'在a(R)和 a(L)中选出更接近key的数

Label3. Caption=Str(a(R))

Else

Label3. Caption=Str(a L))

End If

End Sub

下列程序功能为：根据列表lst中各数字的大小关系，计算各数字升序排列的序号，并将序号保存在列表y中。如lst内容为[2,5,2,1]，程序运行后列表y的值为[2,4,3,1]。

lst = [2,5,2,1]

y = [1,1,1,1]

n = len(lst)

for i in range(①____):

for j in range(②____):

if ③____:

y[j] = y[j] + 1

else

y[i] = y[i] + 1

上述程序段3个划线处的表达式分别为（）

相关试卷

公司介绍

服务介绍

帮助中心