Nextj
s=a(i):
a(i)=a(k):
a(k)=s
Nexti
sp=Val(Text1,Text)
t=-1:
cnt=0:
sum=0
Fori=1To2*n
mts=Val(Mid(a(i),1,2))*60+Val(Mid(a(i),4,2))
IfMid(a(i),6,2)=“IN”Thencnt=cnt+1Else__
Ifcnt>spThen
Ift=-1Thent=mts
Elselft>-1Then
__
t=-1
EndIf
Nexti
Label1.Caption="超过指定人数的总时长:
"+Str(sum)+"分钟"
EndSub
16.有n个小组(编号1至n),每个小组有m个成员,每个成员都有一个大于等于0
得分。
现要求按下列规则计算每个小组的成绩,并找出成绩最高的小组。
小组成绩的计算规则是:
若小组成员中得分最高的前k人得分都不低于k,且其他成员得分都不超过k,则该小组成绩为k。
例如,第1小组共有8个成员,得分依次为“5,2,7,11,8,6,5,1”,由此可知最高的前5人得分为“11,8,7,6,5”,其他3人得分为“5,2,1”,因此该小组成绩为5。
按上述要求,编写VB程序,功能如下:
在列表框List1中显示各小组每个成员的得分,单击“计算”按钮Command1,在列表框List2中显示成绩最高的小组编号及成绩(如果有多个小组并列最高,则全部显示)。
(l)若第2小组各成员得分依次为“0,4,12,l,5,9,3,9”,则该小组的成绩是_______。
(2)请在划线处填入合适的代码。
Constn=6
Constm=8
Dima(n*m)AsInteger
Dimc(m)AsInteger,ans(n)AsInteger
PrivateSulbForm_Load()
’读取n个小组每个成员的得分,按组别从小到大依次存入数组a,并显示在List1中
’n(l)到a(m)存储第1小组m个成员的得分
’a(m+1)到a(2*m)存储第2小组m个成员的得分
’以此类推,代码略
EndSub
PrivuteSubCummand1_Click()
DimiAsInteger,pAsInteger,gAsInteger,maxgAsInteger
maxg=-1
Fori=lTon
g=GroupScore(i)
Ifg>maxgThen
maxg=g:
p=l
__
Elselfg=maxgThen
p=p+1
ans(p)=i
EndIf
Nexti
Fori=lTop
List2.Addltcm“第”+Str(ans(i))+“组,成绩:
”+Str(maxg)
Nexti
EndSulb
函数返回第w小组的成绩
FunctionGroupScone(wAsInteger)AsInteger
DimiAsInteger,kAsInteser
Fori=0Tom
e(i)=0
Nexti
Fori=(w-l)*m+lTow*m
k=a(i)
Ifk>mThen__
e(k)=e(k)+1
Nexli
k=m
DoWhitee(k)0
k=k-1
__
Loop
GroupScore=k
EndFuinction
绝密★启用前
技术试题
注意事项:
1、答题前填写好自己的姓名、班级、考号等信息2、请将答案正确填写在答题卡上
第一部分信息技术(共50)
一、选择题(本大题共12小题,每小题2分,共24分。
每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
1.下列有关信息与信息技术的说法,正确的是()
A.5G技术的出现使信息可以脱离载体传播
B.计算机处理信息通过执行程序完成的
C.智能处理得到
信息都是真实、可信的
D.当今社公信息时时处处都有,因而不再是人类的重要资源
答案:
B
解:
本题考查的是信息与信息技术相关知识。
信息必须依附在载体上,故选项A说法错误;计算机处理信息都是通过执行程序完成的,选项B说法正确;智能处理得到的信息不一定是真实、可信的,选项C说法错误;信息是构成人类社会重要资源之一,故选项D说法错误。
2.下列有关网页与浏览器的说法,正确的是()
A.HTTP协议用于浏览器与Web服务器之间的信息传输
B.收藏夹中的网址可以重命名,但不能被删除
C.在IE浏览器中,保存一个网页不可能得到多个文件
D.使用不同的搜索引擎搜索同一关键词,搜索的结果是相同的
答案:
A
解:
本题考查的是网页与浏览器相关知识。
HTTP是超文本传输协议,用于浏览器和Web服务器之间的信息传输,选项A说法正确;收藏夹中的网址可以重命名也可以删除,故选项B说法错误;浏览器中以“网页,全部”保存,可以保存网页的所有内容,会生成多个文件,故选项C说法错误;不同的搜索引擎采集的数据不一样,故搜索的结果是不同的,选项D说法错误。
3.使用Access软件编辑某班级图书管理数据库,该数据库当前仅包含“班级藏书”一个数据表,部分界面如图所示。
下列说法正确的是()
A.该数据库中不可以创建一个表名为“借阅人”的数据表
B.“收藏日期”字段的数据类型是“日期/时间”
C.可以将“班级藏书”数据表导出为Excel文件
D.若添加一条新记录,则该记录中“书籍编号”字段的值为2
答案:
C
解:
本题考查的是Access数据库相关知识。
该数据库当前仅有“班级藏书”表,故还可以创建一个“借阅人”表,选项A说法错误;收藏日期字段含有数据“2020/11/15”又有“2020-12-1”故不可能为日期/时间类型,选项B说法错误;Access表可以导出为Excel文件,故选项C说法正确;由图中可知书籍编号为自动编号,删除后添加新记录该序号也不会再出现,故选项D说法错误。
4.下列有关信息编码的说法,正确的是()
A.十六进制数82H与十进制数82的值相等
B.根据GB2312-80标准,“信息”两字的内码共占2个字节
C.已知大写字母“X”的ASCII码值为58H,则大写字母“Z”的ASCII码值是60H
D.某7位二进制数的最高位为1,将其转换为十进制数后的值大于等于64
答案:
D
解:
本题考查的是信息编码相关知识。
十六进制数82H转换为十进制数为:
8*16+2=130。
故选项A说法错误;GB2312编码规则,一个汉字占两个字节,“信息”两字的内码共占4个字节,故选项B说法错误;ASCII码中大写字母编码是从A~Z依次进行,“H”表示十六进制数,故字母“Z”的ASCII码值是5AH,选项C说法错误;7位二进制数的最高位为1,最高位权值为:
2^6=64,故其转换为十进制数后的值大于等于64,选项D说法正确。
5.用Photoshop软件制作“春来了”作品,部分编辑界面如图所示。
下列说法错误的是()
A.“背景”图层的不透明度不可以更改为50%
B.“花朵”图层的名称可更改为“郁金香”
C.“来了”图层中的文字可用橡皮擦工具直接擦除
D.对“蝴蝶”图层执行“复制图层”操作,可产生一个“蝴媒副本”图层
答案:
C
解:
本题考查的是Photoshop相关知识。
斜体“背景”图层不能更改图层名、图层顺序、图层不透明度(填充)、图层混合选项,不能添加图层样式,故选项A说法正确;锁定图层可以修改图层名称,故选项B说法正确;“来了”是文字图层,无法使用橡皮擦、画笔、油漆桶等工具,故选项C说法错误;复制图层可产生一个副本图层,故选项D说法正确。
6.一幅未经压缩的2048×1536像素、24位色BMP图像,要将其存储容量减少到约1.5MB,在不改变其他参数的前提下,可调整图像大小、颜色分别为()
A.1024×768像素、16色B.1024×768像素、16位色
C.512×384像素、256色D.512×384像素、24位色
答案:
B
解:
本题考查的是图像大小计算。
未压缩图像存储容量=水平像素×垂直像素×每个像素色彩所需位数/8(单位:
字节)。
16色需要4位二进制,256需要8位二进制数,根据图像容量计算公式可知选项A大小为:
0.375MB,选项B大小为:
1.5MB,选项C大小为:
0.185MB,选项D大小为:
0.5625MB,故本题应选B。
7.VB表达式-3^2+14\4*3的值是()
A.-8B.0C.10D.8
答案:
A
解:
本题考查的是VB表达式。
运算顺序:
“^”是乘幂>“*”乘法>“\”整数除。
-3^2+14\4*3=-9+14\12=-9+1=-8,故本题应选A。
8.某算法的部分流程图如图所示,执行这部分流程,若输入n的值为20,则输出a,b的值分别是()
A.12,10B.10,9C.9,15D.9,10
答案:
D
解:
本题考查的是流程图相关知识。
初始值:
n=20a=0b=0。
n>=3成立,a<=b成立,执行a=a+3=3,n=n-3=17
n>=3成立,a<=b不成立,执行b=b+5=5,n=n-5=12
n>=3成立,a<=b成立,执行a=a+3=6,n=n-3=9
n>=3成立,a<=b不成立,执行b=b+5=10,n=n-5=4
n>=3成立,a<=b成立,执行a=a+3=9,n=n-3=1
n>=3不成立,输出a=9,b=10,故本题应选D。
9.有百位和十位未知的5位整数“22**6,能被37或67整除。
以下VB程序段的功能是:
在满足条件的所有数中,将最大一个5位数的百位和十位依次显示在文本框Text1中。
i=100:
flag=False
DoWhilei>0AndNotflag
Loop
Text1.Text=Str(i\10)+Str(iMod10)
方框中的代码由以下三部分组成:
①j=22006+i*10②i=i-1③If(jMod37)*(JMod67)=0Thenflag=True
下列选项中,代码顺序正确的是()
A.①②③B.①③②C.②①③D.②③①
答案:
C
解:
本题考查的是VB循环及选择语句。
要先从22996开始,依次递减来判断能否被37或67整除,找到第一个能被整除的数,即为所要找的数,i初始值为100,故要先执行i=i-1。
故正确的代码顺序是:
②①③,选项C正确。
10.某对分查找算法的VB程序段如下:
i=1:
j=30
m=(i+j)\2
DoWhilei<=jAndkey<>a(m)
Ifkey>a(m)Theni=m+1Elsej=m-1
m=(i+j)\2①
Loop
数组元素a
(1)到a(30)各不相同且按升序排列,若查找键key与a(9)相等,执行该程序段,①处语句的执行次数是()
A.2B.3C.4D.5
答案:
B
解:
本题考查
是对分查找。
初始i=1,j=30,m=(i+j)\2=15,数组升序排序。
i=1<=j=30key<>a(15)成立,key>a(15)不成立,执行j=m-1=14,m=(i+j)\2=7。
i=1<=j=14key<>a(7)成立,key>a(7)成立,执行i=m+1=8,m=(i+j)\2=11。
i=8<=j=14key<>a(11)成立,key>a(11)不成立,执行j=m-1=10,m=(i+j)\2=9。
i=8<=j=10key<>a(9)不成立,跳出循环。
故①处语句的执行次数是3次,选项B正确。
11.有如下VB程序段:
a
(1)="ABC":
a
(2)="DEF":
a(3)="GHI"
s1="31,12,23,33":
s2=""
Fori=1ToLen(s1)
ch=Mid(s1,i,1)
Ifch<>","Then
i=i+1
p=Val(Mid(s1,i,1))
s2=s2+Mid(a(p),Val(ch),1)
EndIf
Nexti
执行该程序段后,变量s2的值是()
A.“CDHI”B.“GBFI”C.“CDH”D.“GBF”
答案:
A
解:
本题考查的是VB循环及选择语句。
阅读程序可知s1中每个数字中第二个数字是决定从哪个数组a中取值,第一个数字是决定取第几个值,取完后依次链接在后面。
读取31时候取到的字符是“C”,读取12时候取到的字符是“D”,读取23