- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省十校联盟2020届高三上学期信息技术10月联考试卷

纪念品分组问题。某教师节晚会的纪念品分组规则如下：

按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定值w，单击“分组”按钮，在标签Label2上输出最少的分组数。程序运行界面如图所示。

（1）、要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在 Form Load事件过程中添加语句(单选，填字母：A .Fron1=“纪念品分组”/B .Form1.Name=“纪念品分组”/C .Form1. Caption=“纪念品分组”/D . Forml.Text=纪念品分组”)。

（2）、实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。

Private Sub Command1 Click（）

Dim a(1 To 1000), n As Integer, w As Integer, cnt As Integer

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

Dim s As String, ch As String

Dim p As Integer, q As Integer

s= Text1. Text： w= Val (Text2 Text)： n=0

For i= 1 To Len (s)

ch= Mid(s, i, 1)

If ch=“,”Then

n=n+1：a(n)=t：t=0

Else

End If

Next i

For i= n To 2 Step-1

For j= 1 To ‘

If a(i)< a(j+1)Then

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

End If

Next j

Next i

cnt=0

p=1：q=n

Do While<p

cnt=cnt+1

If Then

p=p+1： q=q-1

Else

p=p+1

End If

Loop

If p= q Then cnt=cnt+1

Labe12 Caption=Str(cnt)

End Sub

（3）、若在文本框 TextI中输入“50．30，100，70，80，40，50，20，”，文本框Text2中输入“110”，单击“分组”按钮，标签Labe12中显示的内容是。

举一反三

【加试题】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中。程序运行界面如图所示。