高考信息技术考试试题

专项训练一字表处理

一、选择题

1.在Word中,查找替换功能可以使用通配符“”和“?”。“”表示任意个字符,而“?”表示一个字符。比如查找内容设为“天宫?号”,就能在图1所示的文档中找出“天宫一号”、“天宫二号”等文字。图2所示为一Word文档部分截图,若要把文中所有类似“【33065001】”、“【33065002】”的字符都删除,以下做法效率最高的是()

图1

图2

A.找一个删除一个

B.打开替换功能,在查找内容中输入“【】”,替换内容为空,再全部替换

C.打开替换功能,在查找内容中输入“【?】”,替换内容为空,再全部替换

D.打开查找功能,在查找内容中输入“【】”,找到一个删除一个

答案 B

解析本题可以使用替换功能,替换内容有一共同特点,就是首尾字符都一样,中间不同,所以查找内容可以设为

“【】”。又因为是要将找到的文字删除,所以替换内容设为空,即不填文字,最后全部替换,即可完成任务。2.下图是Word自动更正设置窗口,由图可知,当输入“(e)”后会变成()

A.(e)

B.

C. D.

答案 B

解析由自动更正设置窗口可知,不同字符组合会自动转变为不同字符。如输入“(e)”会自动变成。

3.使用Word 软件编辑文档的部分界面如下,以下说法正确的是()

A.批注人有2个

B.第1处批注的对象是“战狼Ⅱ”

C.若拒绝修订,第3行文字是:透过电影,中国向世界展示了中国军人

D.若接受修订,第3行文字是:透过电影,中国向世界展示了中国军人

答案 D

解析文中批注人只有1个,即LHL。被批注的对象左右会有中括号,所以第1处批注的对象是“《战狼Ⅱ》”。在修订模式下,输入的文字有下划线,删除的文字有删除线或在侧边栏中有提示。

4.如下图所示,小李在使用Word软件时插入了一张图片。由图可知,该图片的文字环绕方式是()环绕。

A.衬于文字下方

B.嵌入型

C.四周型

D.上下型

答案 C

5.在Word中输入文字时,有时文字下面会有红色的波浪线,有关此现象下列说法错误的是()

A.启用了修订功能

B.说明有单词拼写错误

C.可能设置了波浪线格式

D.启用了拼写和语法检查功能

答案 A

解析在Word中,启用了拼写和语法检查功能,输入文字时有绿色的波浪线表明有语法错误,红色的波浪线表示有单词拼写错误。

6.下列应用中,体现了人工智能技术的有()

①微信聊天中的语音转文字②“道路监控系统”监测高速公路的通行情况③使用QQ与网友语音聊天④在线翻译网站上,输入英文自动翻译成中文⑤通过手机拍照,“口算作业批改”APP程序自动验证口算的正确性A.①②③ B.①③④ C.①④⑤ D.③④⑤

答案 C

解析人工智能包含识别技术(如语音识别、人脸识别、指纹识别、OCR)、人机对弈、机器翻译等。

7.大年三十,支付宝推出扫福集福参加抽奖活动,用户只要用手机扫一下任何一个福字,会随机得到一张福卡,集齐五种福就能参加抽奖。如果你扫的不是福字,系统不会生成福卡。这种扫一下就能判断是否为福主要使用的技术是()

A.数码成像

B.扫描

C.OCR

D.全息投影

答案 C

解析 OCR技术就是把图像中的文字识别为文本,使其可以方便地用文本编辑软件进行修改。

8.使用OCR软件进行文字识别,识别对象与识别结果如下:

其中可能为识别结果文件的是()

A.OCR1.jpg,OCR1.tif

B.OCR1.jpg,OCR1.rtf

C.OCR1.tif,OCR1.txt

D.OCR1.rtf,OCR1.txt

答案 D

解析 OCR软件的识别对象是图像文件,识别结果是文本文件。

9.用OCR软件识别文字的主要操作步骤有:①对图象进行倾斜校正;②单击识别按钮;③划分识别区域;④打开图像文件;⑤校对文字。

正确的操作顺序是()

A.①②③④⑤

B.⑤①③②④

C.①④③⑤②

D.④①③②⑤

答案 D

10.下列属于数据库应用系统

．．．．的是()

A.Oracle

B.支付宝系统

C.SQLServer

D.Access

答案 B

解析常用的数据库管理系统有Access、SQLServer、Foxpro、Oracle等。手机和网上的APP大多属于数据库应用系统。

11.下列关于数据库的说法,正确的是()

A.数据库是相关数据的集合,主要用于组织和存储数据

B.Access软件是数据库应用程序,可以创建、管理和维护数据库

C.“浙江省中小学生学籍信息管理系统”是数据管理系统

D.数据库应用程序可以直接对数据库进行查询、删除和添加等操作

答案 A

解析 Access软件是数据库管理系统。“浙江省中小学生学籍信息管理系统”是数据库应用系统。数据库应用程序对数据库进行查询、删除和添加等操作要通过数据库管理系统完成。

12.对于数据库和数据表,下列说法正确的是()

A.数据库不能被多个用户同时访问

B.计算机中的数据只能存放在数据库中

C.Access数据表同一列中各数据的类型都相同

D.在Access数据表视图中,不能对字段进行添加、删除操作

答案 C

解析数据库能被多个用户同时访问。计算机中的数据可以存放在数据库、文本文件、音视频文件等各种文件中。在Access数据表视图中,除了可以添加删除记录外,还能对字段进行添加、删除操作。

13.下列关于Access数据库的描述中,正确的是()

A.一个数据库可以包含多张数据表

B.数据表中某字段的数据类型一旦确定,就无法进行更改

C.同一字段中的字段值采用的数据类型可以不相同

D.一张数据表可以包含多条记录,每条记录的字段数可能不同

答案 A

解析数据表中字段的数据类型可以修改。同一字段中的字段值必须采用相同的数据类型。数据表是一种二维表,一个数据表中各条记录的字段个数必定相等。

14.下图是一个Access数据库的数据视图,有关该表描述正确的是()

A.数据库名称为“资产”

B.ID字段的值可以有重复

C.当前数据表中有4条记录

D.为避免项目字段值的重复,可以把该字段设置为主键

答案 D

解析当前打开的数据表名称是资产,数据库名称无法从图中获取。ID字段是自动编号类型的,因此其字段值不会重复。当前数据表有3条记录。

二、综合题

1.下表是“2017中国企业20强排名榜”,放置于Excel工作簿“sheet1”工作表中,如下图所示:

(1)若要把标题放在区域A1:F1中间,可以通过下列哪个命令实现(填编号)。

(2)计算各企业的利润率(利润率=利润/营业收入),先在F3单元格中输入公

式,然后利用自动填充功能完成其余单元格的计算。

(3)根据第(2)题计算结果,在F23单元格中使用COUNTIF函数统计利润率大于10%的公司个数,则F23单元格中的公式是。

(提示:COUNTIF函数用于统计某个区域满足条件的单元格个数。例如:=COUNTIF(E3:E22,″<10000″)表示在数据区域E3:E22中统计数值小于10000的单元格个数。)

(4)要按各企业利润率进行降序排序,如果按下图所示的参数进行排序,那么排序前应先选中区域。若取消“数据包含标题”,则排序前应先选中区域,然后在“排序”对话框中设置“主要关键字”为。

(5)下图是以区域的数据制作的2017中国企业十强比较图。

(6)若要给上题创建的图表柱形上添加对应数据,如下图所示,可使用什么命令(选填:

)。

(7)若通过“使用目标主题和嵌入工作簿”方式粘贴图表到Word文档中,当Excel中数据发生变化时,Word文档中的图表(填:会/不会)变化。若要使Word文档中的图表随着Excel表格中数据的变化而变化,则应选择粘贴方式是(填编号)。

答案 (1)B

(2)=E3/D3

(3)COUTIF(F3:F22,″>0.1″)或COUTIF(F3:F22,″>10%″)

(4)A2:F22A3:F22列E

(5)C2:E12

(6)数据标签

(7)不会3或4

解析 (1)合并居中命令。

(3)函数中的条件不能写成″>10″。因为根据第2题的公式,单元格中不可能产生百分号%,必定是一个小于1的小数。

2.小刘收集了2018年第1季度全国猪料比价数据,并使用Excel软件进行数据处理,如图a所示。请回答下列问题:

图a

(1)如图a所示,根据预期盈利的计算方法,在F3单元格中可使用公式。

计算1月第1周的预期盈利。(提示:预期盈利=110×(猪料比价-猪料比价平衡点)×饲料价格)

(2)选择F3单元格,自动填充至F4:F14区域,会出现错误提示的单元格是。(填名称)

(3)根据图a中数据制作的图表如图b所示,创建图表的数据区域是,A7:E7,A11:E11。

图b

(4)对图a中数据进行筛选,能与图c所示筛选条件等价的是。(单选,填字母:A.等于?1周/B.等于 1周/C.包含1月第1周)

图c

答案 (1)=110 (D3-E3) C3(2)F8(3)A2:E3(4)B

解析 (2)F8中公式是=110 (D8-E8) C8,C8、D8、E8单元格中不是数字,不能进行数学运算,会出现#value的

错误。

3.小骆想制作一个手机号码归属地的APP,于是从网上下载了一个“手机号码归属地数据库.accdb”,如下图所示。

根据图示回答下列问题:

(1)数据库中共有张数据表。当前打开的数据表的名称是。在表中,共有

个字段,有条记录。

(2)当前数据表中,字段code的数据类型是(填自动编号/文本/数字/)。id字段的数据类型

是,(填:能/不能)直接输入数据。

(3)若要把code字段类型改为数字型,可在(填:设计视图/数据透视表视图/数据透视图视图)中修改,也可在数据表视图中选择(选填下图中的编号)命令进行修改。

答案 (1)2 list5174495

(2)文本自动编号不能

(3)设计视图 3

解析 (1)尽管在状态栏直接看不到总记录数,但当前选中的是最后一条记录,它是第174495条,因此总数即为174495条。

(2)code字段的值有以0开始的,不可能是数字型或自动编号,可能是文本型或备注型。在id字段最后一行

中有“(新建)”字样,表明它是自动编号的数据类型,自动编号值由Access软件自动生成。

(3)1处是添加数字型字段,2处是修改字段名称和标题,4处则是修改数据格式。

4.打开某Access数据表,其数据表视图和设计视图如下图所示:

(1)输入新记录,记录的ID值(填:可能/一定)是10。

(2)该工作表的主键是,该字段的值时不允许有重复。

(3)在新记录中输入生日“2000年10月1日”,回车后显示结果为。

(4)如果把工号的字段类型改为数字型,则第1条记录的工号显示为。

(5)如果把姓名字段的长度改为3,则第3条记录的姓名将变成。

答案 (1)可能(2)工号(3)2000/10/1(4)1(5)欧阳夏

解析 (1)ID字段的数据类型是自动编号,其字段值是从1开始的连续数值,当有记录删除后,其值不再连续,添加新记录后也不会再出现被删除的ID值。(2)字段名称前有钥匙标记的是主键。(3)日期的格式有多种,输入正确的日期值后,都会自动转变为设定的显示格式。(4)数字型数据前不会有前导的0。(5)文本型字段,若把字段长度改小,则右边超过长度的字符被截掉。

专项训练二程序设计

一、选择题

1.一个VB工程的部分设计界面如下图所示:

下列选项不正确的是()

A.窗体的Caption属性值是“删除文本”

B.窗体中有3个文本框

C.当前选中对象的名称是“Label1”

D.窗体的名称是Form1

答案 D

解析窗体的名称是main。

2.程序运行界面如下图所示。要求在文本框Text1中输入字符串,单击“统计”按钮Count后,在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为()

A.Count_Click

B.Text1_Click

https://www.360docs.net/doc/4112699202.html,mand1_Click

https://www.360docs.net/doc/4112699202.html,bel2_Click

答案 A

解析需要在Count按钮中添加单击事件处理过程,事件处理过程名的格式是“对象名_事件名”,本题需要添加事件处理过程的对象是按钮Count,事件是单击事件Click。

3.下列Visual Basic表达式中计算结果为4的是()

A.Len(”a1234”)

B.Sqr(4)

C.Fix(3.6)

D.Abs(Int(4.2))

答案 D

解析 abs是求绝对值,sqr是求算术平方根,len是求字符的个数,int是向下取整。

4.某VB程序如下

Private Sub Command1_Click()

Dim i As Integer

For i=2 To 10

If fx(i) Then List1.AddItem i

Next

End Sub

Function fx(x As Integer) As Boolean

Dim s As Integer, i As Integer

s=1

For i=2 To x \ 2

If x Mod i=0 Then s=s+i

Next

If s=x Then fx=True Else fx=False

End Function

则当单击Command1按钮后,list1中显示的结果是()

答案 B

解析自定义函数fx的功能是判断x是否为它所有约数之和,若是返回true,否则返回false。2到10之间的整数只有6是它的约数1、2、3之和,所以只向list1输出1个值6。

5.运行下列VB程序后,窗体上显示的图像是()

For i = 1 To 5

s = ″ ″

For j = 5 To i Step -1

s = s + ″*″

Next j

Print s

Next i

A.*

**

***

****

***** B.*****

****

***

**

*

C.*****

*****

*****

*****

***** D.*

**

***

****

*****

答案 B

解析程序外循环控制打印的行数,内循环控制每行*的个数,每行*的个数随i值的增加而减少。

6.下列VB程序中,f是一个递归函数。

Private Sub Command1_Click()

Dim y As Long

Text1.Text=″ ″

y=f(3)

Label1.Caption=Str(y)

End Sub

Function f(n As Integer) As Long'递归函数

Text1.Text = Text1.Text+Str(n)

If n<=1 Then

f=1

Else

f=f(n-1)+2

End If

End Function

程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是()

A.3

B.3 2 1

C.1 2 3

D.1

答案 B

解析主程序中语句y=f(3)调用递归函数f,函数f仅当其参数n<=1时f=1,否则调用自己f(n-1),即每次调用,参数n的值减1,并把n的值显示在文本框text1中,调用3次后n=1,递归展开结束。所以文本框的值为″3 2 1″,label1显示5。

7.冒泡排序算法在某一遍加工过程中没有数据交换时,说明数据已经有序,无需进一步加工。优化后的VB 程序段如下:

i = 1: flag = True

Do While i < = 4 And flag = True

flag=False

For j = 5 To i + 1 Step -1

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

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

flag = True

End If

Next j

i = i + 1

Loop

数组元素 a(1)到 a(5)的值依次为“48,36,24,97,77”,经过该程序段“加工”后,变量i的值是()

A.1

B.2

C.3

D.4

答案 D

解析这是一个降序形式的冒泡排序,排序两趟以后数据已全部降序排列,第3趟排序时无须对数据进行交换,则

第3趟排序结束后flag=flase,排序结束,i=4。

8.有如下程序段:

s=″ ″

For i=7 To 5 step -1

For j=1 To i-1 step 1

If a(j)>a(i) Then

t=a(j)

a(j)=a(j+1)

a(j+1)=t

End If

Next j

s=s + Str(a(i))

Next i

Text1.Text=s

数组元素a(1)到a(7)的数据依次为“4,2,9,32,46,3,23”经过该程序段“加工”后,文本框Text1中显示的内容是() A.2 4 9 B.2 4 3

C.46 32 23

D.23 32 46

答案 C

解析这是一个选择排序算法,当i=7时,把1到7号元素中的最大值存入a(7),s=″46″。当i=6时,把1到6号元素中的最大值存入a(6),s=″46 32″。当i=5时,把1到5号元素中的最大值存入a(5),s=″46 32 23″。

9.有以下VB程序段

i=1:j=10:flag=True:cs=0

Key=Int(Rnd() 10)+20

Do While i<=j And flag

m=(i+j)\2:cs=cs+1

If a(m)=Key Then

flag=False

ElseIf a(m)

i=m+1

Else

j=m-1

End If

Loop

数组元素a(1)到a(10)依次是5、11、20、26、30、31、33、45、50、60,变量cs的值可能是()

A.3或4

B.1或4

C.1或3

D.1或3或4

答案 A

解析程序采用对分查找法查找关键字key,key的范围是[20,29]。那么key的值如果是20或26,查找到的次数

分别是3和4。

10.某算法程序段如下:

Dim a(1 To 10) As Integer

Dim i As Integer,j As Integer,key As Single

i=1:j=10:n=0

key=Int(Rnd() 100)

Do While i<=j

m=(i+j)\2

If key=a(m) Then

Exit Do

ElseIf key

j=m-1:n=n-1

Else

i=m+1:n=n+1

End If

Loop

Text1.Text=Str(n)

已知数组元素a(1)至a(10)的值依次为11,26,37,49,55,62,78,79,85,98,若执行该程序后,文本框Text1中显示的内

容不可能是()

A.-3

B.-4

C.3

D.4

答案 C

解析 10个数进行对分查找,如果key大于所有数,找4次后未找到,结束查找,n=4,选项D可能。如果key小于所

有数,找3次后未找到,结束查找,n=-3,选项A可能;显然B不可能。选项C说明是3次后找到key,结束查找,n=3。

二、综合题

1.现要求编写VB程序实现如下功能:在文本框Text1中输入正整数n(n为奇数),单击“生成”命令按钮后,如下图

所示,在文本框Text2中会显示一个有规律的对称数字串,形式为“1 3…n-2 n n-2 3 1”。例如 n=7 时,显示的数字

串为“1 3 5 7 5 3 1”。

(1)根据代码可知,命令按钮“生成”的对象名是。

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

Private Sub Com1_Click()

Dim n As Integer, i As Integer, s As String

①

s = ″ ″

For i = 1 To n

Else

s = s + ②

End If

Next i

Text2.Text = s

End Sub

(3)当 n=9 时,在实现程序功能的情况下,如果将程序中加框处的代码换成“s = Str(2 i-1) + s”,单击“生成”按钮,

其输出结果为。

答案 (1)Com1(2)①n=val(text1.text)②str((n-i) 2+1)

(3)9 7 5 3 1 7 5 3 1

解析 (1)由过程名Com1_click可知,按钮对象名是com1。

(2)程序中①处是要从文本框text1中取出需要生成数字的个数n。②处则是要生成后半段(即n\2+1)奇数,其值同变量n和i的关系是(n-i) 2+1。

(3)加框处程序的功能是生成前半段奇数,将代码换成“s = Str(2 i-1) + s”,即是把新生成的奇数放在前面,

则前半段数字是9 7 5 3 1,后半段不变,是7 5 3 1。

2.利用VB设计一个十进制转换为十六进制的程序,界面如下图所示:

在文本框Text1中输入十进制数,单击转换按钮Command1,在文本框Text2中显示对应的十六进制数。程序采用“除16取余”法进行转换,即对十进制数除以16,余数作为十六进制数的一位数字,商则重复上述步骤继续除16,直到商为0结束转换。程序如下所示,请在划线处填入合适代码。

Private Sub Command1_Click()

Dim s16 As String's16存放十六进制数

s10 As Integer 's10存放十进制数

Dim x As Integer 'x存储商

s10 = Val(Text1.Text)

s16 = ″ ″

Do While s10 > 0

x =①

If x > 9 Then'如果余数大于10,则将其转换为对应的十六进制字母

c = Chr(Asc(″A″) + x - 10)

Else

c = Str(x)

End If

s16 =②

s10 = s10 \ 16

Loop

Text2.Text = s16

End Sub

答案①s10 Mod 16②c+s16

解析根据程序“除16取余”法的描述,算法首先对十进制数s10除以16,得到余数x,把x转换为相应的十六进制数字,加入变量s16中,商s16则重复上述步骤直到其值为0。所以①处要求取得余数,程序为s10 Mod 16;②处是把余数加入到变量s16中,该处程序为c+s16。

3.用Visual Basic语言设计一个具有如下功能的程序:在文本框Text1中输入一个偶数,单击求解按钮Command1,将这个偶数拆分成二个素数之和,并在列表框List1中输出所有不重复的解。程序运行界面如图所示。

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

Private Sub Command1_Click()

Dim n As Integer, i As Integer

List1.Clear

n = Val(Text1.Text)

If n Mod 2 = 0 Then

For i = 2 To Int(n / 2)

'①

List1.AddItem Str(n) + " =" + Str(i) + ″ +″ + Str(n - i)

End If

Next i

Else

Text1.Text = Str(n) + "不是偶数!"

End If

End Sub

Private Function isodd(n As Integer) As Boolean

Dim i As Integer

isodd = True

For i = 2 To Int(Sqr(n))

'②

isodd = False

Exit For

End If

Next i

End Function

答案①isodd(i) And isodd(n - i)②n Mod i = 0

解析①如果i和n-i都是素数,才能输出这两个数,自定义函数isodd的功能就是判断i是否为素数,是则返回值true,否则为false。所以表达式又可写为isodd(i)=true And isodd(n - i)=true。

②自定义函数isodd中的for循环用以判断n能否被2到Int(Sqr(n))之间的自然数整除,只要其中有一个数能整除n,则n不是素数,所以②处应填n Mod i = 0。

4.某种纸牌游戏,三人一起玩一副牌,每人17张。5张及以上的连续单牌(不分花色)称为顺子,顺子最大到K,如“A,2,3,4,5,6”是长度为6的顺子。编写程序,判断游戏刚开始时某玩家有没有顺子,最长的顺子是几张。

实现上述功能的VB程序代码如下,请在划线处填写正确的语句。

Const n=17

Dim a(n) As Integer

Private Sub Command1_Click()

Dim max As Integer,count As Integer

Dim i As Integer,j As Integer

count=0:max=0

i=1

Do While i<=n-1

①

j=i+1

Do While j<=n

If ② Then

j=j+1

count=count+1

ElseIf a(j)=a(j-1) Then

j=j+1

Else

Exit Do

End If

Loop

③

If count>max Then max=count

Loop

If max<5 Then

Label2.Caption=″无顺子″

Else

Label2.Caption=″最长顺子长度:″+Str(max)

End If

End Sub

Private Sub Form_Load()

'获取17张牌的数值(J、Q、K、A分别对应11、12、13、1),升序存储在数组a中

'代码略

End Sub

答案①count=1②a(j)=a(j-1)+1③i=j

解析程序中变量i代表某一顺子的开始位置,j代表结束位置,count代表顺子长度。从j=i+1处开始找顺子,如果

a(j)=a(j-1)+1,可以组成顺子一部分,count加1,指针j后移,即j=j+1。如果a(j)=a(j-1),说明和前面的牌相同,不能再做为顺子中的一张牌。如果前后两张牌不连续也不相同,说明顺子牌到此结束,接下来可能是新的顺子要开始了。然后比较本次找到的顺子长度count是否大于之前的长度max,若是,max=count。最后更新i的值为j,为找下一

个顺子做准备。

5.计算各班平均分与名次。分数存放在数组a中,其中a(1)到a(n)存放1班学生成绩,a(n+1)到a(2 n)存放2班

学生成绩, a(2 n+1)到a(3 n)存放3班学生成绩,依次类推,分数为0的表示缺考或空号。求出各班的平均分

与名次(平均分最高是第1名)。程序运行界面如下图所示,启动程序,从数据库中读取各班学生成绩存入数组a 中,并在列表框list1中显示成绩。单击成绩统计按钮,在列表框List2中显示各班平均分与名次。

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

Const n = 50 '每班最多人数

Const bjs = 15'班级数量

Dim a(1000) As Integer '数组a存放学生成绩

'成绩从数据库中读取,程序略

Private Sub Command1_Click()

Dim pj(1 To bjs) As Single, mc(1 To bjs) As Integer

Dim zf As Single, rs As Integer, cj As Single

For i=1 To bjs

zf=0:rs=0

For j=1 To n

'①

If cj>0 Then

rs=rs+1

zf=zf+cj

End If

Next j

pj(i)=Int(zf/rs 10+0.5)/ 10

Next i

For i=1 To bjs

k=0

For j=1 To bjs

If pj(j)>pj(i) Then k=k+1

Next j

'②

List2.AddItem i & ″″ & pj(i) & ″″ & mc(i)

Next i

End Sub

答案①cj = a((i - 1) n + j)②mc(i) = k + 1

解析①处是要获取第i班第j号学生的成绩,因为i初值为1,该成绩存放在下标为(i - 1) n + j的元素中。②处是要把i班的名次存入mc(i)中,②处之前的循环统计比i班平均分高的班级数量k,则i班的名次为k+1。

6.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。可以证明15 就是最少耗费体力。

经过分析,每次n堆金币如果都是从小到大,将前两堆合并成新一堆,然后,继续进行从小到大排序,如此合并

成最后一堆,此时耗费体力最少,为此编写一个VB 程序解决上述问题。程序功能如下:窗体加载时,自动读取 n

堆金币重量的数据,依次存储在数组元素 a(1)、 a(2)、 a(3)……中,金币堆数存储在变量 n 中,n 堆金币的重量数

据显示在文本框 Text1中。单击“求解”按钮 Command1,程序对 n 堆金币进行合并处理,消耗最少的体力显示在

文本框Text2 中。程序运行界面如图所示。

(1)如果有 5 堆金币,每堆重量分别是10,2,5,3,6,则将这 5 堆金币合并成一堆金币,最少耗费体力

是。

(2)实现上述功能的 VB 程序如下,请在划线处填入合适代码。

Const n=20

Dim a(1 To n) As Integer

Private Sub Form_Load()

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

'代码略

End Sub

Private Function sort(x As Integer)as integer'sort(x)过程的功能是对 a(x)、a(x+1)…a(n)中的数进行从小到大排序,并返回a(x)+a(x+1)的值。

For i=①To n-1

For j=n To i+1 Step-1

If a(j)

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

End If

Next j

Next i

sort=②

End Function

Private Sub Command1_Click()

Dim sum As Integer, k As Integer

sum = 0

For k=1 To n-1

a(k+1)=③

sum=sum+④

Next k

Text2.Text=Str(sum)

End Sub

答案 (1)57(2)①x②a(x)+a(x+1)③sort(k)④a(k+1)

解析自定义函数sort(x)的功能是对 a(x)、a(x+1)…a(n)中的数进行从小到大排序,即排序区域是x~n,所以①处

应填x。函数最终返回a(x)+a(x+1)的值,所以②处填a(x)+a(x+1)。主程序中每次循环先是对k~n号元素进行升

序排列,并把a(k)+a(k+1)的值赋予a(k+1),所以③处填sort(k)。然后再把a(k)+a(k+1)的值累加到sum,因此④处

填a(k+1)。

7.拍照队列是按人员的身高进行排列,形成中间高两边低的队形;例如有5个人A、B、C、D、E的身高依次由矮到高,则排列后的顺序为“B、D、E、C、A”。小李用VB编写模拟“拍照队列”程序,功能如下:在文本框Text1中输入各人身高;单击“排队”按钮Command1,把Text1中输入的各人身高存入数组a中,对数组a的元素进行有序排列后存入数组b中形成拍照队列,并将结果显示在文本框Text2中。程序运行界面如下图所示:

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

Private Sub Command1_Click()

Dim a(1 To 20) As Integer,b(1 To 20) As Integer

Dim right As Integer, left As Integer, i As Integer,n As Integer

n=Len(Text1.Text) \ 4 + 1'计算人数n

'下列程序段把各人身高存入数组a中各元素

For i = 1 To n

a(i) = Val(Mid(Text1.Text, (i - 1) * 4 + 1, 3))

Next i

'下列程序段对数组a进行升序排列

For i = 1 To n - 1

For j =1 To n-i

If ① Then

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

End If

Next j

Next i

'下列程序段实现数组b的拍照队列

m = (1 + n) \ 2

left = m: right = m

b(m) = a(n)

For i = n - 1 To 1 Step -1

If i Mod 2 =1Then

right = right + 1

b(right) = a(n-i+1)

Else

②

b(left) = a(n-i+1)

End If

next i

s =③

For i = 2 To n

s = s + "," + Str(b(i))

Next i

Text2.Text = s

End Sub

答案①a(j)>a(j+1)②left = left-1③ Str(b(1))

解析对数组a进行升序排列,采用的是冒泡排序算法,每一遍冒泡排序是从第1个元素开始两两比较,把小的数向前移动,所以①处填a(j)>a(j+1)。②处所在程序段的功能是:从数组a的第i号开始排队,若i是奇数,放在队列

右半部分right位置处,right值加1,否则放在队列左半部分left位置处,left值减1。③处开始的程序段的功能是把数组b中的拍照队列数据存储到变量s中,最后显示在文本框Text2中。

8.小王设计了一个程序来列举仁川亚运会的奖牌前十的国家。下列VB程序实现如下功能:单击命令按钮Command1后,在列表框List1中按奖牌数由多到少显示国家名称,界面如下图所示。

请根据算法将下列程序补充完整。

Dim a(1 To 45) As String '存放45个参赛国家和地区

Dim b(1 To 45) As Integer'存放奖牌数

Private Sub Form_Load()

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

conn.ConnectionString = ″provider=microsoft.ace.oledb.12.0;data source=″ & App.Path & ″\仁川亚运.accdb″conn.Open

Set rs.ActiveConnection = conn

rs.Open ″select * from奖牌榜″

i=0

do while not rs.eof

i=i+1

a(i)=rs.fields(″country″)

b(i)=rs.fields(″medal″)

rs.movenext

loop

rs.close : conn.close

End Sub

Private Sub Command1_Click()

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

For i = 1 To 44

For j =45 To i+1 Step -1

If①Then

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

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

End If

Next j

Next i