全一卷
1.下列有关信息与信息处理的说法,错误的是( )。
A.智能手机已成为信息处理的常用工具 |
B.内存容量是影响计算机信息处理能力的因素之一 |
C.未经数字化的图像所承载的信息是没有价值的 |
D.人工智能广泛应用于图像识别、自然语言处理等领域 |
2.下列有关网页与浏览器的说法,正确的是( )。
A.使用搜索引擎对相同关键词检索两次,得到的结果一定相同 |
B.用HTML(超文本标记语言)可以描述网页中的文本、图像和超链接等元素 |
C.在IE浏览器中,使用“添加到收藏夹”功能可以保存正在浏览的网页内容 |
D.在IE浏览器中,以“文本文件(*.txt)”类型保存网页,可以保存网页中的超链接地址 |
3.使用Access软件设计一个数据表,存储如图所示的学生提问记录数据。
下列表结构设计合理的是( )。
序号 | 问题编号 | 问题摘要 | 解答状态 | 学号 | 提问日期 |
1 | XX0051 | 选择排序优化 | 已解答 | 20180131 | 2020-3-10 |
2 | WL0192 | 共点力的合成 | 未解答 | 20191201 | 2020-4-11 |
… | … | … | … | … | … |
A. | B. | C. | D. |
4.下列十六进制数中,转换为二进制数后含有奇数个“1”的是( )。
A.F082 | B.EA30 | C.A906 | D.F311 |
5.用 Photoshop软件制作“飞越高峰”作品,在“鹰”图层中已选择矩形区域,如图所示。
下列说法正确的是( )。
下列说法正确的是( )。
A.执行“拷贝”、“粘贴”命令后,粘贴的鹰图像将出现在新增图层中 |
B.可以执行“自由变换”命令,调整鹰图像的大小和位置 |
C.选中“飞越高峰”图层,添加“描边”图层样式,描边效果将呈现在矩形选区边缘 |
D.选中“背景”图层,添加“镜头光晕”滤镜,滤镜效果将呈现在矩形选区外 |
6.两个未经压缩的音频文件,相关参数如图所示。
则文件1与文件2的存储容量比约为( )。
则文件1与文件2的存储容量比约为( )。
A.3:1 | B.6:1 | C.12:1 | D.18:1 |
7.若x是整型变量,下列选项中,与表达式Not(x>=5 And x<9)等价的是( )。
A.x<5 And x>= 9 |
B.Not x > 5 And Not x< 9 |
C.x >= 5 Or x< 9 |
D.x<5 Or x >= 9 |
8.某算法的部分流程图如图所示。执行这部分流程,若输入a的值为36,则输出c的值为( )。
A.2 | B.3 | C.4 | D.5 |
9.有如下VB程序段:
sl = "1324":s2="abcdefgh"
j = 1:m=0:c=" "
For i= 1 To Len (s2)
执行该程序段后,变量c的值是( )。
sl = "1324":s2="abcdefgh"
j = 1:m=0:c=" "
For i= 1 To Len (s2)
k =Val(Mid(sl,j,1))
c= c +Mid(s2,m +k,1)
j=j+1
If j>4 Then j= 1:m =m+ 4
Next i执行该程序段后,变量c的值是( )。
A.acbdegfh | B.acbdacbd | C.acbdefgh | D.abcdefgh |
10.下列VB程序段功能为:在文本框 Text中显示整型数组元素a(1)到a(9)中的最小值和最大值。
amin= a(1):amax=a(1)
i=2:j=9
Do While i <= j
Loop
Text 1. Text= Str(amin)+"," Str(amax)
上述程序段中方框处可选语句为:
①If a(j)>amax Then amax =a(j)
②If a(j)< amin Then amin =a(j)
③If a(i)<amin Then amin =a(i)
④If a(i)>amax Then amax =a(i)
则(1)(2)(3)(4)处语句依次可为( )。
amin= a(1):amax=a(1)
i=2:j=9
Do While i <= j
If a(i) > a(j) Then
(1)
(2)
Else
(3)
(4)
End If
i=1:j=j-1
Loop
Text 1. Text= Str(amin)+"," Str(amax)
上述程序段中方框处可选语句为:
①If a(j)>amax Then amax =a(j)
②If a(j)< amin Then amin =a(j)
③If a(i)<amin Then amin =a(i)
④If a(i)>amax Then amax =a(i)
则(1)(2)(3)(4)处语句依次可为( )。
A.④③②① | B.④②③① | C.③②④① | D.③①④② |
11.某对分查找算法的VB程序段如下:
'数组元素f(1)到f(9)赋初值为0,代码略
key= Val(Text1. Text)
i=1:j=9
Do While i<=j
整型数组元素a(1)到a(9)为升序序列,在文本框 Text1中输入待查找数,执行该程序段后,下列选项中,f(1)到f(9)各元素值不可能的是( )。
'数组元素f(1)到f(9)赋初值为0,代码略
key= Val(Text1. Text)
i=1:j=9
Do While i<=j
m=(i+j)\2
F(m)=1
If a(m)= key then Exit Do 'Exit Do表示退出循环
If a(m)> key Then j= m-1 Else i= m +1
Loop整型数组元素a(1)到a(9)为升序序列,在文本框 Text1中输入待查找数,执行该程序段后,下列选项中,f(1)到f(9)各元素值不可能的是( )。
A.1,1,0,0,1,0,0,0,0 |
B.0,0,0,0,1,0,0,0,0 |
C.0,0,0,0,1,1,1,1,0 |
D.0,1,1,1,1,0,0,0,0 |
12.有如下ⅤB程序段:
'生成6个随机正整数,依次存入数组元素a(1)到a(6),代码略
For i=1 To 2
t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
执行上述程序段后,下列选项中,a(1)到a(6)各元素值不可能的是( )。
'生成6个随机正整数,依次存入数组元素a(1)到a(6),代码略
For i=1 To 2
For j=6 To i+ 1 Step-l
If a(j)Mod 3 >a(j-1)Mod 3 Thent=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
执行上述程序段后,下列选项中,a(1)到a(6)各元素值不可能的是( )。
A.2,1,4,3,6,7 |
B.5,2,1,7,8,3 |
C.7,7,6,3,3,1 |
D.8,7,4,3,3,2 |
13.小李收集了手机网民互联网应用的用户规模数据,并用Excel软件进行数据处理,如图a所示。
请回答下列问题:
(1)为计算图a中的“相对2017年12月的增长率(%)”,小李已正确计算了单元格G4中的数据。他希望将单元格G4中的公式向下自动填充至单元格G13,再将区域G4:G13中的公式向右自动填充至I列,从而正确计算出区域G4:I13中的数据,则单元格G4中的公式应修改为_______ 。
(2)根据图a中数据制作的图表如图b所示,创建该图表的数据区域是A3:A5,C3:F5,A8,____ 。
(3)为了获得“商务交易”类别中2020年3月用户规模最大的数据,并显示在操作结果的最前面(紧邻第3行),一种可行的操作是:选择数据区域A3:F13后,对该区域_________ (选填2个序号,按操作顺序)。
①以“2020年3月”为关键字进行降序排序
②以“类别”为关键字(按字母排序)进行降序排序
③按“类别”进行筛选,选择的值为“商务交易
④按“2020年3月”进行筛选,选择“10个最大的值”并显示最大的1项
请回答下列问题:
(1)为计算图a中的“相对2017年12月的增长率(%)”,小李已正确计算了单元格G4中的数据。他希望将单元格G4中的公式向下自动填充至单元格G13,再将区域G4:G13中的公式向右自动填充至I列,从而正确计算出区域G4:I13中的数据,则单元格G4中的公式应修改为
(2)根据图a中数据制作的图表如图b所示,创建该图表的数据区域是A3:A5,C3:F5,A8,
(3)为了获得“商务交易”类别中2020年3月用户规模最大的数据,并显示在操作结果的最前面(紧邻第3行),一种可行的操作是:选择数据区域A3:F13后,对该区域
①以“2020年3月”为关键字进行降序排序
②以“类别”为关键字(按字母排序)进行降序排序
③按“类别”进行筛选,选择的值为“商务交易
④按“2020年3月”进行筛选,选择“10个最大的值”并显示最大的1项
14.小李使用Flash软件创作“花中君子”多媒体作品。请回答下列问题:
(1)作品的模块设计框架图图a所示,将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完成后自动停止,单击“返回”按钮,返回主交互界面。下列说法正确的是______ (多选,填字母)。
A.主交互界面中包含5个功能模块
B.主交互界面中按钮的应用体现了多媒体技术的交互性
C.各功能模块场景的最后一帧可添加帧动作脚本stop();
D.各功能模块场景中“返回”按钮上可添加动作脚本on( release){gotoAndStop(1);}
(2)“竹之韵”场景的编辑界面如图b所示,“轻舟”图层中的小船是“舟”元件的实例。“舟”元件是在当前场景中通过绘制船形状并转换为图形元件后生成的,“舟”元件中的船是_____ (选填:位图/矢量图)。若调整小船实例的大小,则“舟”元件_____ (选填:会/不会)同步变化。
(3)“轻舟”图层中实现了小船从起始位置1移动到终止位置2的动画,位置1、2及其坐标(X,Y)值如上图所示。下列关于小船动画的描述正确的是______ (多选,填字母)。
A.测试场景时,小船沿水平方向匀速移动
B.小船动画的补间类型为“动画”,移动时间约为4.5秒
C.若将小船动画的缓动值调整为100,测试场景时,小船移动总时长将增加
D.若在当前图层第15帧插入关键帧,测试场景时,小船从第1帧到第15帧没有移动
E.若将小船起始坐标改为(150,200),测试场景时,小船移动将变快
(4)“文字”图层的第30帧和第36帧均为关键帧。测试场景时,为了使“文字”图层第31帧到第35帧中的内容完全消失,其他动画效果保持不变,应进行的操作是__________ 。
(1)作品的模块设计框架图图a所示,将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完成后自动停止,单击“返回”按钮,返回主交互界面。下列说法正确的是
A.主交互界面中包含5个功能模块
B.主交互界面中按钮的应用体现了多媒体技术的交互性
C.各功能模块场景的最后一帧可添加帧动作脚本stop();
D.各功能模块场景中“返回”按钮上可添加动作脚本on( release){gotoAndStop(1);}
(2)“竹之韵”场景的编辑界面如图b所示,“轻舟”图层中的小船是“舟”元件的实例。“舟”元件是在当前场景中通过绘制船形状并转换为图形元件后生成的,“舟”元件中的船是
(3)“轻舟”图层中实现了小船从起始位置1移动到终止位置2的动画,位置1、2及其坐标(X,Y)值如上图所示。下列关于小船动画的描述正确的是
A.测试场景时,小船沿水平方向匀速移动
B.小船动画的补间类型为“动画”,移动时间约为4.5秒
C.若将小船动画的缓动值调整为100,测试场景时,小船移动总时长将增加
D.若在当前图层第15帧插入关键帧,测试场景时,小船从第1帧到第15帧没有移动
E.若将小船起始坐标改为(150,200),测试场景时,小船移动将变快
(4)“文字”图层的第30帧和第36帧均为关键帧。测试场景时,为了使“文字”图层第31帧到第35帧中的内容完全消失,其他动画效果保持不变,应进行的操作是
15.某校为学生期末考试分配考场,并编制准考证号。每个班级有班号,每位学生有班内序号,班内序号是按班级现有人数从1开始逐个编排的。准考证号格式为“入学年份+班号+班内序号”。每个考场有30个座位,座位号从1开始。连续分配座位的两个学生不属于同一个班级。
分配方法是:按考场号递增、同一考场座位号递增的顺序逐一分配座位。每次分配,先选班级,再选学生。选择班级时,在班级降序序列(按未分配人数)中选择第1个班级,但如果该班和前一次分配选定的班级相同,则改选第2个班级。选定班级后,再为该班耒分配学生中序号最大的学生分配考场座位,并维护班级降序序列(按未分配人数)。
编写VB程序,实现考场分配功能:在文本框Text1中填写入学年份,单击“读取”按钮Commandl后,将各班数据按人数降序显示在列表框List1中,然后单击“分配”按钮Command2,在列表框List2中显示分配结果。程序运行界面如图所示。
请回答下列问题:
(1)下列对象中,有 Caption属性的是 (单选,填字母:A.Command 1 / B.Text 1/C.List 1)。
(2)实现考场分配功能的VB程序如下,请在划线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Dim n As Integer, y As String
Dim cla(1 To 20)As Integer, num(I To 20)As Integer
Dim room as Integer '存储考场号
Dim seat as Integer '存储座位号
Function fm(k As Integer) As String
'返回整数k(l≤k≤99)对应的数字字符串,不足两位左侧补“0”,代码略
End function
Private Sub Command 1_ Click()
'从Text l中读取入学年份存入变量y,从数据库中读取该人学年份的班级数据,
'将班级个数存人变量n(1<n≤20),各班班号和人数分别存人数组cla和num,
'各班班号均大于0,各班人数均未超过总人数的一半,
'将数组cla和num按班级人数降序排列后,显示在List l中,代码略
Dim choice As Integer, m As Integer, f As Boolean
room=1:seat=1:choice=0
①
Do While f = True
If cla (1) <> choice Then m= 1 Else m = 2
choice = cla(m)
'在列表框List2中显示准考证号、考场号、座位号
List 2. Addltem y+fm(cla(m))+fm(num(m))+" "+fm(room)+" "+fm(seat)
seat = seat+ 1
If seat > 30 Then
seat = 1
End If
Num(m)= num(m)-1
For i= ② To n-1 '维护班级降序序列(按未分配人数)
If num(i)< num(i + 1)Then
t=num(i):num(i)=num(i+1):num(i+1)=t
s = cla(i):cla(i)= cla(i + 1):cla(i+1)=s
Else
Exit For 'ExitFor表示退出循环
End If
Next i
If ③ Then f = False
Loop
End Sub
分配方法是:按考场号递增、同一考场座位号递增的顺序逐一分配座位。每次分配,先选班级,再选学生。选择班级时,在班级降序序列(按未分配人数)中选择第1个班级,但如果该班和前一次分配选定的班级相同,则改选第2个班级。选定班级后,再为该班耒分配学生中序号最大的学生分配考场座位,并维护班级降序序列(按未分配人数)。
编写VB程序,实现考场分配功能:在文本框Text1中填写入学年份,单击“读取”按钮Commandl后,将各班数据按人数降序显示在列表框List1中,然后单击“分配”按钮Command2,在列表框List2中显示分配结果。程序运行界面如图所示。
请回答下列问题:
(1)下列对象中,有 Caption属性的是 (单选,填字母:A.Command 1 / B.Text 1/C.List 1)。
(2)实现考场分配功能的VB程序如下,请在划线处填入合适的代码。
(3)程序中加框处代码有错,请改正。
Dim n As Integer, y As String
Dim cla(1 To 20)As Integer, num(I To 20)As Integer
Dim room as Integer '存储考场号
Dim seat as Integer '存储座位号
Function fm(k As Integer) As String
'返回整数k(l≤k≤99)对应的数字字符串,不足两位左侧补“0”,代码略
End function
Private Sub Command 1_ Click()
'从Text l中读取入学年份存入变量y,从数据库中读取该人学年份的班级数据,
'将班级个数存人变量n(1<n≤20),各班班号和人数分别存人数组cla和num,
'各班班号均大于0,各班人数均未超过总人数的一半,
'将数组cla和num按班级人数降序排列后,显示在List l中,代码略
End Sub
Private Sub Command 2_ Click()
Dim i As Integer, t As Integer, s As IntegerDim choice As Integer, m As Integer, f As Boolean
room=1:seat=1:choice=0
①
Do While f = True
If cla (1) <> choice Then m= 1 Else m = 2
choice = cla(m)
'在列表框List2中显示准考证号、考场号、座位号
List 2. Addltem y+fm(cla(m))+fm(num(m))+" "+fm(room)+" "+fm(seat)
seat = seat+ 1
If seat > 30 Then
seat = 1
End If
Num(m)= num(m)-1
For i= ② To n-1 '维护班级降序序列(按未分配人数)
If num(i)< num(i + 1)Then
t=num(i):num(i)=num(i+1):num(i+1)=t
s = cla(i):cla(i)= cla(i + 1):cla(i+1)=s
Else
Exit For 'ExitFor表示退出循环
End If
Next i
If ③ Then f = False
Loop
End Sub
16.编写VB程序,功能是根据A城和B城同一时间段内的温度数据,计算两城温差(A城温度B城温度)A城数据和B城数据分别为包含若干个记录的序列,其中,A城每个记录包含温度及其截止时间,B城每个记录包含温度及其持续时长。两城温差计算结果表示为若干个记录的序列,每个记录包含温差及其持续时长。持续时长是指同一温度(或温差)保持不变的最大时长。示例见下表。
(时间单位:小时,温度单位:摄氏度)
表中,A城数据有4个记录,其中第1个记录为(温度30,截止时间2),第2个记录为(温度33,截止时间4),这表明从开始到第2小时的温度都是30,此后到第4小时的温度都是33。B城数据有4个记录,其中第3个记录为(温度21,持续时长2),这表明第5、第6这2个小时的温度都是21.两城温差计算结果的第4个记录为(温差10,持续时长3),这表明第5第6、第7这3个小时的温差都是10。
(1)若将示例中A城数据修改为3个记录,依次是(温度30,截止时间4)、(温度31,截止时间6)、(温度32,截止时间7),B城数据不变,则两城温差计算结果中第1个记录为(温差10,持续时长________)(填数值)。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Const m =1000 '温度数据和温差数据包含的记录数都少于1000
Dim na As Integer, nb as integer 'A、B城数据分别有na和nb个记录
Dim ha(m)As Integer 'ha(i)存储A城第i个记录中的温度
Dim ta(m)As Integer 'ta(i)存储A城第i个记录中的截止时间
Dim hb(m)As Integer 'hb(i)存储B城第i个记录中的温度
Dim tb(m)As Integer 'tb(i)存储B城第i个记录中的持续时长
Dim h(m)As Integer 'h(i)存储计算结果第i个记录中的温差
Dim t(m)As Integer 't(i)存储计算结果第i个记录中的持续时长
Private Sub Command l__ Click()
Dim i As Integer,j As Integer
Dim p0 As Integer,p1 As Integer,diff As Integer
Dim n As Integer '两城温差数据的记录个数
'读取两城数据,存入变量ma,nb及数组ha,ta,hb,tb中,代码略
For i=2 To nb
Tb(i)=_________ '将B城第i个记录中的持续时长转换为截止时间
Next i
i=1:j=1
n=0
p0=0
Do While i < na And i<= nb
diff = ha(i)-hb(j)
pl = ta(i)
If_________Then i =i+1
If p1 >= tb (j) Then
pl = tb(i)
j=j+1
End if
If n = 0 Or diff <> h(n) Then
n=n+l
h(n) = diff
t(n) = pl- p0
Else
__________
End If
p0=pl
Loop
'输出两城温差数据,代码略
End Sub
时间 | 第1小时 | 第2小时 | 第3小时 | 第4小时 | 第5小时 | 第6小时 | 第7小时 | |
A城温度 | 30 | 30 | 33 | 33 | 31 | 31 | 32 | |
A城数据 | 温度 | 30 | 33 | 31 | 32 | |||
截止时间 | 2 | 4 | 6 | 7 | ||||
B城温度 | 20 | 20 | 20 | 22 | 21 | 21 | 22 | |
B城数据 | 温度 | 20 | 22 | 21 | 22 | |||
持续时长 | 3 | 1 | 2 | 1 | ||||
计算结果 | 温差 | 10 | 13 | 11 | 10 | |||
持续时长 | 2 | 1 | 1 | 3 |
表中,A城数据有4个记录,其中第1个记录为(温度30,截止时间2),第2个记录为(温度33,截止时间4),这表明从开始到第2小时的温度都是30,此后到第4小时的温度都是33。B城数据有4个记录,其中第3个记录为(温度21,持续时长2),这表明第5、第6这2个小时的温度都是21.两城温差计算结果的第4个记录为(温差10,持续时长3),这表明第5第6、第7这3个小时的温差都是10。
(1)若将示例中A城数据修改为3个记录,依次是(温度30,截止时间4)、(温度31,截止时间6)、(温度32,截止时间7),B城数据不变,则两城温差计算结果中第1个记录为(温差10,持续时长________)(填数值)。
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
Const m =1000 '温度数据和温差数据包含的记录数都少于1000
Dim na As Integer, nb as integer 'A、B城数据分别有na和nb个记录
Dim ha(m)As Integer 'ha(i)存储A城第i个记录中的温度
Dim ta(m)As Integer 'ta(i)存储A城第i个记录中的截止时间
Dim hb(m)As Integer 'hb(i)存储B城第i个记录中的温度
Dim tb(m)As Integer 'tb(i)存储B城第i个记录中的持续时长
Dim h(m)As Integer 'h(i)存储计算结果第i个记录中的温差
Dim t(m)As Integer 't(i)存储计算结果第i个记录中的持续时长
Private Sub Command l__ Click()
Dim i As Integer,j As Integer
Dim p0 As Integer,p1 As Integer,diff As Integer
Dim n As Integer '两城温差数据的记录个数
'读取两城数据,存入变量ma,nb及数组ha,ta,hb,tb中,代码略
For i=2 To nb
Tb(i)=_________ '将B城第i个记录中的持续时长转换为截止时间
Next i
i=1:j=1
n=0
p0=0
Do While i < na And i<= nb
diff = ha(i)-hb(j)
pl = ta(i)
If_________Then i =i+1
If p1 >= tb (j) Then
pl = tb(i)
j=j+1
End if
If n = 0 Or diff <> h(n) Then
n=n+l
h(n) = diff
t(n) = pl- p0
Else
__________
End If
p0=pl
Loop
'输出两城温差数据,代码略
End Sub