高考信息技术考试试题

专项训练一字表处理

_＞项训练第1页I

一、选择题

1.在Word中，查找替换功能可以使用通配符"”和““”表示任意个字符,而“?”表示一个字符。比如查找

内容设为“天宫?号”，就能在图1所示的文档中找出“天宫一号”、“天宫二号”等文字。图2所示为一Word文档

部分截图,若要把文中所有类似“【33065001］"、“【33065002］”的字符都删除，以下做法效率最高的是（）

天宫二号即天宫二号空间实迨宣，是

继天育一号后申国自主硒发的第二个空

向实位宣，也是中国第一个・正量义上的

空间实通支，将用于进一步通证空间文会

对接技术及迸行一系史性间械验.一

图1

【33065001】越吟1$201133065002】越吟楼202

【33065003］越吟陵203133065004】越吩楼204

C1306»90＞］越吟梅，“13306＞。。。］越“榜302

【33065407】姑吟梅303133065008】越蜂柳304

【33065009】超一槎403133065010】越畤梅404

图2

A.找一个删除一个

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

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

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

答案B

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

“【】“。又因为是要将找到的文字删除,所以替换内容设为空，即不填文字，最后全部替换，即可完成任务。

2.下图是Word自动更正设置窗口，由图可知,当输入“（e）”后会变成（）

?X

自血用格大

目5♦正数字符号自动更正8LXn自眠用格式

0显示“自动更正逢喷”按钮抑

回更正而两个字4连毋大马3)例外瑜

口句口字目大写(£)

□女格单元格的・字母大写(G

13英文日哧一个拿田人号谑)

0更正息外使用大专假定M产生的大小专横法(»

团批入时自动曾揍(D

时描(酊首接为值,应文本W帝格式文本

(.)•:!

m(Q)

目的使用旅号归置法提曲B道:

A.(e)B.«

C.D.

答案B

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

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

故狼》用指楙《＞牧燧用.

Kn一“懒1U1U］导根,"

阳光心态卦构不断发■大起来的中国•

侬叫中皿啪界盛家”m人

口力网即终舁为&事的《m核骨，

也在以一伦生*疏!角向薪向国-11stlixui>n»MW4U*"

瞅累，是世界I呼力,蹄尢fit*

触逆证《1L[|

A.批注人有2个

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

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

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

答案D

解析文中批注入只有1个抑LHL。被批注的对象左右会有中括号,所以第1处批注的对象是“《战狼H》”。

在修订模式下,输入的文字有下划线,删除的文字有删除线或在侧边栏中有提示。

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

《故狼？》这邰费国壬义动作片刚成为中

画有史以来最卖座影片，也是全球

・卖座影片k百0中第T,

非好菜埒电彩.中国

电影A-im

好来埠式拍橙手

法来访述爱国主义故事,

的成功说明他们前做到

这一点♦这对中国观众慰于消息，却给好

悚雌出了艇够…

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.OCRD.全息投影

答案C

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

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

OOtUitOCKUtOOU.U

其中可能为识别结果文件的是（）

A.OCRl.jpg.OCRl.tifB.OCRl.jpg,OCRl.rtf

C.OCRl.tif.OCRl.txtD.OCRl.rtf,OCRl.txt

答案D

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

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

像文件;⑤校对文字。

正确的操作顺序是（）

A.①②③④⑤B.⑤①③②④

C.①④③⑤②D.④①③②⑤

答案D

10.下列属于数据库座用系级的是（）

A.OracleB.支付宝系统

C.SQLServerD.Access

答案B

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

应用系统。

U.下列关于数据库的说法，正确的是（）

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数据库的数据视图，有关该表描述正确的是（）

日

“

♦

IB<l>ISM

!*O)aoa»

交»

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

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

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

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

答案D

解析当前打开的数据表名称是资产，数据库名称无法从图中获取。ID字段是自动编号类型的，因此其字段值不

会重复。当前数据表有3条记录。

二、综合题

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

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

A.HJB.圉C.野D./

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

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

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

中的公式是。

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

据区域E3:E22中统计数值小于10000的单元格个数。)

⑷要按各企业利润率进行降序排序，如果按下图所示的参数进行排序，那么排序前应先选中区域。若

取消“数据包含标题”，则排序前应先选中区域然后在“排序”对话框中设置“主要关键字”为。

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

2500000

2000000

n(MMX>0(TTTTJu)

1IMNNHWI利尚_

500000语万洵

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

圜囤回值］

(7)若通过“使用目标主题和嵌入工作簿''方式粘贴图表到Word文档中，当Excel中数据发生变化时,Word文档中

的图表(填:会/不会)变化。若要使Word文档中的图表随着Excel表格中数据的变化而变化，则应

选择粘贴方式是(填编号)。

陶B选喳:

答案⑴B

(2)=E3/D3

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

(4)A2:F22A3:F22歹!JE

(5)C2:E12

(6)数据标签

(7)不会3或4

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

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

1的小数。

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

题：________

4AlB1c.D,ELF

2018年第1季度全国加科比价情况

询料船仔

■料比rr楮科比m平

2r(元/公斤)(元/公斤)

31&.162.46a.ia6.42

41S.342.47e.2i6.41

15.212.47e.it6.41

6n1(.IS2.47e.141.30

714.)92.405.00S.X

2RM2fl■■■.

911732.476.666.29

2月第4周IX9S2.U8.146.26

3月第12272.04.726.22

3HM21B11.892.594.595.18

历第3周11.382.574.436.16

3月第4周10.892.594.208.13

图a

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

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

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

⑶根据图a中数据制作的图表如图b所示，创建图表的数据区域是_______,A7:E7,AH：E11O

(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”,如下图所示。

_»____a19S

Z3kiid**rum•coda-eity•'cardtype•

31・917«4930W(Ml棒功£睐・『

初■伊犁新•电3A卡

勃♦伊加・■4动全睐■十

•(1四

Is《・鼻山阻塞LL2LL

根据图示回答下列问题：

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

个字段，有条记录。

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

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

⑶若要把code字段类型改为数字型，可在(填:设计视图/数据透视表视图/数据透视图视图)中修改,

也可在数据表视图中选择(选填下图中的编号)命令进行修改。

答案(1)2list5174495

(2)文本自动编号不能

(3)设计视图3

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

174495条。

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

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

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

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

用

5心g^

生B•□-M••・

泉

ID祟

1W/B/8□U7,000.g13S883743Z3

陈

双

器>4M

1W/5/3□V6.85a0313t88572347

»,

1W/9/7n",23X813S885B8858

器

国

S1陈

物2000/5/4cM7,3g0313305750575

丁*

埼1W/5/1BVB.345.0313C887B98CT

零

方*

«

E17,312.W13CW58877

江

・

片2000/1/8

霏DVd,744.0313305753848

佳

黄

琴1W/0/6CUe,577.g1385755751

金*

哀1999/9/SC17,578.0913sos750321

宇同名你nis^a

白加号

晟文本

透文本

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

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

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

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

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

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

解析(1)ID字段的数据类型是自动编号，其字段值是从1开始的连续数值，当有记录删除后,其值不再连续，添加

新记录后也不会再出现被删除的ID值。(2)字段名称前有钥匙标记的是主键。(3)日期的格式有多种，输入正确

的日期值后,都会自动转变为设定的显示格式。(4)数字型数据前不会有前导的0。(5)文本型字段，若把字段长

度改小，则右边超过长度的字符被截掉。

专项训练二程序设计

_＞项训练第4页

一、选择题

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

下列选项不正确的是()

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

B.窗体中有3个文本框

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

D.窗体的名称是Forml

答案D

解析窗体的名称是main。

2.程序运行界面如下图所示。要求在文本框Textl中输入字符串，单击“统计”按钮Count后,在标签Label2中显

示所输入字符串长度。需要编写的VB事件处理过程的名称为()

A.Count_Click

B.Textl_Click

C.Commandl_Click

D.Label2_Click

答案A

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

件处理过程的对象是按钮Count,事件是单击事件Clicko

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

A.Len("al234”)

B.Sqr(4)

C.Fix(3.6)

D.Abs(Int(4.2))

答案D

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

4.某VB程序如下

PrivateSubCommand1_Click()

DimiAsInteger

Fori=2To10

Iffx(i)ThenList1.Additemi

Next

EndSub

Functionfx(xAsInteger)AsBoolean

DimsAsInteger,iAsInteger

s=l

Fori=2Tox\2

IfxModi=0Thens=s+i

Next

Ifs=xThenfx=TrueElsefx=False

EndFunction

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

Ag

B®C.日

D.EOI

答案B

解析自定义函数fx的功能是判断x是否为它所有约数之和，若是返回true,否则返回false。2到10之间的整数

只有6是它的约数1、2、3之和，所以只向listl输出1个值6。

5.运行下列VB程序后，窗体上显示的图像是（）

Fori=1To5

s="〃

Forj=5ToiStep-1

s=s+“*〃

Nextj

Prints

Nexti

A.*

**

***

****

*****B*****

****

***

**

*

C*****

*****D*

**

***

****

答案B

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

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

PrivateSubCommand1_Click()

DimyAsLong

Textl.Text=z,"

y=f(3)

Label1.Caption=Str(y)

EndSub

Functionf(nAsInteger)AsLong'递归函数

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

Ifn<=lThen

f=l

Else

f=f(n-l)+2

EndIf

EndFunction

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

A.3B.321

C.123D.1

答案B

解析主程序中语句y=f(3)调用递归函数f,函数f仅当其参数n<=l时f=l,否则调用自己f(n-l),即每次调用，参数

n的值减1,并把n的值显示在文本框textl中，调用3次后n=l,递归展开结束。所以文本框的值为"32Isabel1

显示5o

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

段如下：

i=1:flag=True

DoWhilei<=4Andflag=True

flag=False

Forj=5Toi+1Step-1

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

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

flag=True

EndIf

Nextj

i=i+1

Loop

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

A.lB.2C.3D.4

答案D

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

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

8.有如下程序段：

s=〃〃

Fori=7To5step-1

Forj=lToi-1step1

Ifa(j)>a(i)Then

t二a①

a(j)=a(j+l)

a(j+l)=t

EndIf

Nextj

s=s+Str(a(i))

Nexti

Textl.Text=s

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

A.249B.243

C.463223D.233246

答案C

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

中的最大值存入a(6),s="4632"。当i=5时，把1到5号元素中的最大值存入a(5),s="463223"。

9.有以下VB程序段

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

Key=Int(Rnd()10)+20

DoWhilei<=jAndflag

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

Ifa(m)=KeyThen

flag=False

Elselfa(m)<KeyThen

i=m+l

Else

j=m-l

EndIf

Loop

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

A.3或4B.1或4

C.1或3D.1或3或4

答案A

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

分别是3和4o

10.某算法程序段如下：

Dima(lTo10)AsInteger

DimiAsInteger,jAsInteger,keyAsSingle

i=l:j=10:n=0

key=Int(Rnd()100)

DoWhilei<=j

m=(i+j)\2

Ifkey=a(m)Then

ExitDo

Elselfkey<a(m)Then

j=m-l:n=n-l

Else

i=m+l:n=n+l

EndIf

Loop

Textl.Text=Str(n)

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

容不可能是()

A.-3B.-4C.3D.4

答案C

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

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

二、综合题

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

所示，在文本框Text2中会显示一个有规律的对称数字串，形式为“13...n-2nn-23r\例如n=7时，显示的数字

串为“1357531”。

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

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

PrivateSubComl_Click()

DimnAsInteger,iAsInteger,sAsString

(D_________

Fori=1Ton

Ifiv=n\2+1Then

s=s+Str(2i-1)

Else

s=s+___________

EndIf

Nexti

Text2.Text=s

EndSub

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

其输出结果为o

答案(l)Coml(2)①n=val(textl.text)②str((n-i)2+1)

(3)975317531

解析⑴由过程名Coml_click可知,按钮对象名是coml0

(2)程序中①处是要从文本框textl中取出需要生成数字的个数n。②处则是要生成后半段(即n\2+l)奇数,

其值同变量n和i的关系是(n-i)2+1o

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

则前半段数字是97531,后半段不变，是7531。

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

在文本框Textl中输入十进制数,单击转换按钮Commandl,在文本框Text2中显示对应的十六进制数。程序采

用“除16取余”法进行转换，即对十进制数除以16,余数作为十六进制数的一位数字，商则重复上述步骤继续除

16,直到商为0结束转换。程序如下所示，请在划线处填入合适代码。

PrivateSubCommand1_Click()

Dimsl6AsString'sl6存放十六进制数

slOAsInteger*slO存放十进制数

DimxAsInteger'x存储商

slO=Val(Textl.Text)

sl6=〃"

DoWhilesl0>0

x__________

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

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

Else

c=Str(x)

EndIf

sl6=©__________

slO=slO\16

Loop

Text2.Text=sl6

EndSub

答案①slOMod16②c+sl6

解析根据程序“除16取余”法的描述,算法首先对十进制数slO除以16,得到余数x,把x转换为相应的十六进制

数字，加入变量S16中，商S16则重复上述步骤直到其值为0。所以①处要求取得余数,程序为s10Mod16;②处是

把余数加入到变量S16中，该处程序为c+sl6o

3.用VisualBasic语言设计一个具有如下功能的程序:在文本框Textl中输入一个偶数,单击求解按钮Command1,

将这个偶数拆分成二个素数之和，并在列表框Listl中输出所有不重复的解。程序运行界面如图所示。

*nTm

鸵-

?l*79

=力

植

■2»3

肾■359

■53

eg41

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

PrivateSubCommand1_Click()

DimnAsInteger,iAsInteger

List1.Clear

n=Val(Textl.Text)

IfnMod2=0Then

Fori=2ToInt(n/2)

Ifjsodd(i)|rhen'①

List1.AdditemStr(n)+"="+Str(i)+〃+"+Str(n-i)

EndIf

Nexti

Else

Textl.Text=Str(n)+”不是偶数!”

EndIf

EndSub

PrivateFunctionisodd(nAsInteger)AsBoolean

DimiAsInteger

isodd=True

Fori=2ToInt(Sqr(n))

If|nMod2=Okhen，②

isodd=False

ExitFor

EndIf

Nexti

EndFunction

答案@isodd(i)Andisodd(n-i)②nModi=0

解析①如果i和n-i都是素数才能输出这两个数，自定义函数isodd的功能就是判断i是否为素数，是则返回值

true,否则为falseo所以表达式又可写为isodd(i)=trueAndisodd(n-i)=trueo

②自定义函数isodd中的for循环用以判断n能否被2到Int(Sqr(n))之间的自然数整除，只要其中有一个数

能整除n,则n不是素数，所以②处应填nModi=0。

4.某种纸牌游戏，三人一起玩一副牌，每人17张。5张及以上的连续单牌(不分花色)称为顺子，顺子最大到K,如

“A,2,3,4,5,6”是长度为6的顺子。编写程序，判断游戏刚开始时某玩家有没有顺子,最长的顺子是几张。

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

Constn=17

Dima(n)AsInteger

PrivateSubCommand1_Click()

DimmaxAsInteger,countAsInteger

DimiAsInteger,jAsInteger

count=0:max=0

i=l

DoWhilei<=n-l

①

j=i+l

DoWhilej<=n

If②Then

j=j+l

count=count+l

Elselfa(j)=a(j-l)Then

j=j+l

Else

ExitDo

EndIf

Loop

③

Ifcount>maxThenmax=count

Loop

Ifmax<5Then

Label2.Caption="无顺子"

Else

Label2.Caption="最长顺子长度:r,+Str(max)

EndIf

EndSub

PrivateSubForm_Load()

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

彳弋码略

EndSub

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

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

a(j)=a(j-l)+l,可以组成顺子一部分,count加L指针j后移，即j=j+l。如果a(j)=a(j-l),说明和前面的牌相同，不能再

做为顺子中的一张牌。如果前后两张牌不连续也不相同，说明顺子牌到此结束,接下来可能是新的顺子要开始了。

然后比较本次找到的顺子长度count是否大于之前的长度max,若是,max=count。最后更新i的值为j,为找下一

个顺子做准备。

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

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

与名次(平均分最高是第1名)。程序运行界面如下图所示，启动程序，从数据库中读取各班学生成绩存入数组a

中，并在列表框listl中显示成绩。单击成绩统计按钮，在列表框List2中显示各班平均分与名次。

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

Constn=50，每班最多人数

Constbjs=15'班级数量

Dima(1000)AsInteger，数组a存放学生成绩

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

PrivateSubCommand1_Click()

Dimpj(lTobjs)AsSingle,mc(lTobjs)AsInteger

DimzfAsSingle,rsAsInteger,cjAsSingle

Fori=lTobjs

zf=O:rs=O

Forj=lTon

|cj=a(i*n+j)|，①

Ifcj>0Then

rs=rs+l

zf=zf+cj

EndIf

Nextj

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

Nexti

Fori=lTobjs

k=0

Forj=lTobjs

IfPj(j)>Pj(i)Thenk=k+l

Nextj

|mc(i)=k|，②

List2.AddItemi&〃"&pj(i)&"〃&mc(i)

Nexti

EndSub

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

解析①处是要获取第i班第j号学生的成绩，因为i初值为1,该成绩存放在下标为(i-1)n+j的元素中。②处

是要把i班的名次存入me⑴中，②处之前的循环统计比i班平均分高的班级数量k,则i班的名次为k+lo

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(l)、a(2)、a(3)中,金币堆数存储在变量n中,n堆金币的重量数

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

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

[2,5,3

值少H■体力,|------记—

[赵I

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

是O

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

Constn=20

Dima(lTon)AsInteger

PrivateSubForm_Load()

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

'代码略

EndSub

PrivateFunctionsort(xAsInteger)asinteger，sort(x)过程的功能是对a(x)、a(x+1)...a(n)中的数进行从小到大排

序,并返回a(x)+a(x+l)的值。

Fori=CDTon-1

Forj=nToi+1Step-1

Ifa(j)<a(j-l)Then

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

EndIf

Nextj

Nexti

sort=^_______________________

EndFunction

PrivateSubCommand1_Click()

DimsumAsInteger,kAsInteger

sum=0

Fork=lTon-1

a(k+1)=(3)_______________________

sum=sum+^_______________________

Nextk

Text2.Text=Str(sum)

EndSub

答案(1)57(2)①x②a(x)+a(x+l)@sort(k)@a(k+l)

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

应填X。函数最终返回a(x)+a(x+l)的值，所以②处填a(x)+a(x+l)。主程序