1.选择题- (共12题)
1.
二维码是近年来非常流行的编码方式,以下关于二维码的说法正确的是( )
A.手机扫描二维码,属于信息的编码过程 |
B.二维码可以表示文字、图像、超链接等信息 |
C.通过扫描二维码获得某URL的过程,涉及信息的加工与发布 |
D.某支付APP付款二维码每隔一定时间自动更新,主要体现了信息的载体依附性 |
2.
使用Word软件编辑某文档,部分界面如下图所示。下列说法正确的是( )


A.文中有插入和删除两类修订 | B.文中有一处拼写和语法检查提示 |
C.正文中鹳雀楼的图片版式为嵌入型 | D.文中有用户为“V1”和“V2”的两处批注 |
3.
用Goldwave软件对某音频文件进行编辑,Goldwave状态栏如下图所示:以下说法正确的是( )


A.该文件类型为WAVE格式,属于无损压缩格式 |
B.该音频每秒钟采样1411次,选中部分音频时长为10秒 |
C.当前状态下插入5秒静音,按原参数保存,文件大小约为4. 2MB |
D.当前状态下,点击“删除”,以原参数保存,则声音存储容量约为原来的一半 |
4.
某数据的加密方法如下:
(1)将字符的ASCII码值以字节为单位进行加密处理;
(2)将一个字节的8位二进制数右移1位,最高位用右移出来的最低位补充;
(3)将二进制数转换为十六进数,顺序连接,即为该字符的密文。
用UltraEdit软件观察字符“2018,Lucky!”的内码如图所示。

则字符“z”(小写英文字母)加密后的密文是( )
(1)将字符的ASCII码值以字节为单位进行加密处理;
(2)将一个字节的8位二进制数右移1位,最高位用右移出来的最低位补充;
(3)将二进制数转换为十六进数,顺序连接,即为该字符的密文。
用UltraEdit软件观察字符“2018,Lucky!”的内码如图所示。

则字符“z”(小写英文字母)加密后的密文是( )
A.3A | B.3D | C.40 | D.36 |
5.
编辑Access数据表“精品书籍表”(如图a所示),将Excel表(如图b所示)A2:F9区域数据复制到“精品书籍表”中,则正确的是( )




A.“出借否”字段打“√”记录有4条 | B.“书籍编号”字段的值不能修改 |
C.《小妇人》所在记录的书籍编号为1 | D.存储“出借否”字段数据类型需要1字节 |
6.
有如下VB程序段:
a(1) = 1:a(2) =1:b(1) =1:b(2) = 2
For i = 3 To 5
执行该程序段后,数组元素b(5)的值为( )
a(1) = 1:a(2) =1:b(1) =1:b(2) = 2
For i = 3 To 5
a(i) = a(i-1) + a(i-2)
b(i) = b(i-1) + a(i)
Next i执行该程序段后,数组元素b(5)的值为( )
A.4 | B.5 | C.8 | D.12 |
8.
使用Flash软件制作动画作品,部分编辑界面如下图所示。其中“蜻蜓”图层第40帧有动作命令gotoAndStop(“load”,10);“蜻蜓”图层利用“蜻蜓”元件实例制作了从左到右飞出舞台的动画效果;“声音”图层中声音的同步属性为“数据流”。下列说法不正确的是( )


A.“蜻蜓”元件的类型一定是“影片剪辑” |
B.当前状态下,可以在“背景”图层第15帧插入关键帧 |
C.测试场景时,播放到最后一帧,动画会自动跳转并停止在load场景第10帧 |
D.若要声音播放2秒后停止,可以在“声音”图层第25帧插入空白关键帧 |
9.
用Photoshop软件编辑某psd文件的界面如下图所示,下列说法正确的是( )


A.“NOSMOKING”图层添加了“挤压”滤镜效果 |
B.可用“自由变换”命令调整背景图层的大小 |
C.使用文本工具更改“禁止吸烟”文字大小,“NOSMOKING”文字大小一起改变 |
D.保存为jpg格式后,“外发光”图层样式不可见 |
10.
未经压缩的BMP图像文件a. bmp和b. bmp,其参数分别为80万像素、256色和40万像素、16色,则图像文件a. bmp与b. bmp存储容量之比约为( )
A.4:1 | B.8:1 | C.16:1 | D.32:1 |
11.
有如下VB程序段:
For i =" 1" To 6
a(i) =" Int(Rnd" * 10) + 1
Next i
For i =" 1" To 5
If i Mod 2 =" 1" And a(i) > a(i + 1) Then
t =" a(i)" : a(i) =" a(i" + 1) : a(i + 1) = t
Else
a(i) =" a(i)" + 1
End If
Next i
执行该程序段后,a(l)~a(6)各元素可能的值是
For i =" 1" To 6
a(i) =" Int(Rnd" * 10) + 1
Next i
For i =" 1" To 5
If i Mod 2 =" 1" And a(i) > a(i + 1) Then
t =" a(i)" : a(i) =" a(i" + 1) : a(i + 1) = t
Else
a(i) =" a(i)" + 1
End If
Next i
执行该程序段后,a(l)~a(6)各元素可能的值是
A.11,11,7,9,3,9 | B.6,2,8,10,5,9 |
C.6,9,3,7,8,12 | D.3,9,0,8,2,7 |
12.
小明利用邮件客户端软件收到了同学小亮发来的一封电子邮件,但他在写好回信单击“发送”按钮时却发送失败,可能的原因是( )
A.POP3协议设置错误 | B.SMTP协议设置错误 |
C.TCP/IP协议设置错误 | D.HTTP协议设置错误 |
2.填空题- (共5题)
13.
某校教务处汇总了选考模拟报考表,并使用Excel软件进行数据处理,部分界面如下图。请回答下列问题:

(1)表中“学考门数”和“选考门数”是用COUNTIF函数计算得到的。分别选择I3、J3单元格输入公式,然后用自动填充功能完成其他单元格的计算。观察上图,可知J3单元格中的公式为__________________。
(COUNTIF函数的作用是计算某个区域中满足给定条件的单元格个数,如COUNTIF(B3:H3,“学考”)的作用是计算数据区域B3:H3中内容为“学考”的单元格的个数。)
(2)表中第13行姓名为“胡桐”的同学地理学考不考了,则清除D13单元格内容后,I13单元格显示的内容为___________(单选,填字母:A. 1 / B. #REF! / C. #VALUE!)
(3)表中E列数据错位了,即第3行应为第4行,第4行应为第5行……第15行应为第16行。现要将错位更正,则下列操作可行的是___________(多选,填字母。全部选对得2分,选对但不全得1分,不选或错选得0分)
A. 选择E3单元格,选择右键菜单“插入”命令,在弹出的对话框中选择“活动单元格下移”
B. 选择E3单元格,选择右键菜单“删除”命令,然后在弹出的对话框中选择“下方单元格上移”
C. 选择E3:E16单元格,执行“剪切”命令,然后选择E4单元格,执行“粘贴”命令

(1)表中“学考门数”和“选考门数”是用COUNTIF函数计算得到的。分别选择I3、J3单元格输入公式,然后用自动填充功能完成其他单元格的计算。观察上图,可知J3单元格中的公式为__________________。
(COUNTIF函数的作用是计算某个区域中满足给定条件的单元格个数,如COUNTIF(B3:H3,“学考”)的作用是计算数据区域B3:H3中内容为“学考”的单元格的个数。)
(2)表中第13行姓名为“胡桐”的同学地理学考不考了,则清除D13单元格内容后,I13单元格显示的内容为___________(单选,填字母:A. 1 / B. #REF! / C. #VALUE!)
(3)表中E列数据错位了,即第3行应为第4行,第4行应为第5行……第15行应为第16行。现要将错位更正,则下列操作可行的是___________(多选,填字母。全部选对得2分,选对但不全得1分,不选或错选得0分)
A. 选择E3单元格,选择右键菜单“插入”命令,在弹出的对话框中选择“活动单元格下移”
B. 选择E3单元格,选择右键菜单“删除”命令,然后在弹出的对话框中选择“下方单元格上移”
C. 选择E3:E16单元格,执行“剪切”命令,然后选择E4单元格,执行“粘贴”命令
A.选择E3:E16单元格,移动该区域至E4:E17单元格 |
14.
在一个数字字符串中,求最长连续递增序列的长度。例如,字符串“123423416789”,最长的递增序列为“16789”,长度为5。编写一个程序,功能如下:在文本框Text1中输入数字字符串,单击“计算”按钮Command1,在标签Label3中显示最长连续递增序列的长度。程序设计界面与运行界面如图所示。

(1)要使程序运行时,按钮Command1上的文字显示为“计算”,可在___________事件过程中添加语句Command1. Caption="计算"。
(单选,填字母:
(2)实现上述功能的VB程序如下,请在划线处填入合适代码。
PrivateSubCommand1_Click()
Dim s As String,max As Integer
Dim t As Integer,I As Integer
max=0:t=1
s=Text1. Text
i=1
Do While i <= Len(s)-1
______________
End If
i=i+1
If t > max Then max = t
(3)如果删除加框处代码,并运行程序,在文本框Text1中输入“123423416789”,单击“计算”按钮,则标签框Label3中显示的内容为__________________。

(1)要使程序运行时,按钮Command1上的文字显示为“计算”,可在___________事件过程中添加语句Command1. Caption="计算"。
(单选,填字母:
A.Command1_Click / | B.Form_Load / | C.Command1_DblCkick)。 |
PrivateSubCommand1_Click()
Dim s As String,max As Integer
Dim t As Integer,I As Integer
max=0:t=1
s=Text1. Text
i=1
Do While i <= Len(s)-1
If Val(Mid(s,i,1)) < ___________Then
t=t+1Else
If t > max Then max = t______________
End If
i=i+1
Loop
If t > max Then max = t
Label3. Caption = Str(max)
End Sub(3)如果删除加框处代码,并运行程序,在文本框Text1中输入“123423416789”,单击“计算”按钮,则标签框Label3中显示的内容为__________________。
15.
在数组a中按顺序找出一组升序子序列,可以不连续,但要求长度最长。例如:数组a的值分别为2,11,4,13,5,7。升序子序列分别有[2,11]、[2,4]、[2,11,13]、[2,4,13]、[2,4,5]、
[2,4,5,7]、[11,13]、[4,13]、[4,5]、[4,5,7]、[5,7],其中最长升序子序列的数据是2,4,5,7。

(1)观察上图,最长升序子序列的数据是____________________________。
(2)请在划线处填入合适的代码。
Const n = 9
Dim a(1 To n) As Integer
Private Sub Form_Load()
Private Sub Command1_Click()
Dim d(1 To n) As Integer ‘记录i位置的最长升序子序列长度
Dim pre(1 To n) As Integer ‘记录i结尾的最长升序子序列前一数据的位置
Dim st As String,i As Integer,k As Integer,maxlen As Integer
For i = 1 To n
For i = 2 To n
d(i) = ___________
pre(i) = j
End If
maxlen = 0:k = 0
For i = 1 To n
Do While k <> 0
Text1. Text = Mid(st,1,Len(st)-1)
End Sub
[2,4,5,7]、[11,13]、[4,13]、[4,5]、[4,5,7]、[5,7],其中最长升序子序列的数据是2,4,5,7。
算法思路如下:
(1)求以a(i)为结尾元素的最长升序子序列时,找到所有序号j(j=1,2……i-1),且a(j)<a(i)。
如果这样的元素存在,且d(j)>=d(i)(d(i)记录i位置的最长升序子序列长度),那么就增加i位置的最长升序子序列长度,并记录该升序子序列倒数第二个位置。(2)在d数组中找出最大值,即最长升序子序列长度。
(3)例如,2、11、4、13、5、7,d(1)=1,d(2)=2,d(3)=2,d(4)=3,d(5)=3,d(6)=4,所以最长升序子序列长度为4,是以a(6)为结尾元素。
现设计了如下VB程序,界面如图所示,请回答下列问题:

(1)观察上图,最长升序子序列的数据是____________________________。
(2)请在划线处填入合适的代码。
Const n = 9
Dim a(1 To n) As Integer
Private Sub Form_Load()
‘生成n个[1,10]范围的随机数,存储在a数组,并显示在列表框List1。代码略
End SubPrivate Sub Command1_Click()
Dim d(1 To n) As Integer ‘记录i位置的最长升序子序列长度
Dim pre(1 To n) As Integer ‘记录i结尾的最长升序子序列前一数据的位置
Dim st As String,i As Integer,k As Integer,maxlen As Integer
For i = 1 To n
d(i) = 1
Next iFor i = 2 To n
For j = 1 To i-1
If a(j) < a(i) And d(j) >= d(i) Thend(i) = ___________
pre(i) = j
End If
Next j
Next imaxlen = 0:k = 0
For i = 1 To n
If ___________ Then maxlen = d(i):k = i
Next iDo While k <> 0
st = a(k) & "," & st
_____________
LoopText1. Text = Mid(st,1,Len(st)-1)
End Sub
16.
小李同学制作关于“新春祝福”的多媒体作品。他首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作动画。请回答下列问题:

(1)在当前状态下,若要使图-1中的“猪年大吉”四个字出现在图-2所示的作品中,下列操作可行的是________________(多选,填字母:
(2)如图-3所示,“文字”图层实现了从第1帧的“2019”字样变成第20帧的“学业进步”动画效果,并持续到第50帧,则该图层第1帧到第20帧的动画补间类型为___________。

(3)测试影片时,发现声音一开始就播放,当前状态下若要让声音推迟1秒播放,可进行的操作是
________________________________。
(4)“声音”图层的声音时长为10s,同步为“事件”,若要实现动画和声音在最后一帧同时停止,可在__________图层的最后一帧添加动作脚本___________________________________。
(5)将该作品按图-4设置发布,生成的文件除了这两种格式的文件有交互功能外,还有_________格式的文件也具有交互功能。

(1)在当前状态下,若要使图-1中的“猪年大吉”四个字出现在图-2所示的作品中,下列操作可行的是________________(多选,填字母:
A.选中图-1中的“背景”图层,执行“全部”选择、拷贝操作,在图-2中进行“粘贴” / | B.将图-1的“猪年大吉”图层直接通过鼠标拖拽到图-2中 / | C.用魔棒工具选中图-1“猪年大吉”图层中的文字区域并进行拷贝操作后,在图-2中进行粘贴 / | D.选中图-1的“猪年大吉”图层后,执行“全部”选择操作,并进行拷贝,在图-2中进行粘贴。(注:全部选对的得2分,选对但不全的得1分,不选或有选错的得0分)。 |

(3)测试影片时,发现声音一开始就播放,当前状态下若要让声音推迟1秒播放,可进行的操作是
________________________________。
(4)“声音”图层的声音时长为10s,同步为“事件”,若要实现动画和声音在最后一帧同时停止,可在__________图层的最后一帧添加动作脚本___________________________________。
(5)将该作品按图-4设置发布,生成的文件除了这两种格式的文件有交互功能外,还有_________格式的文件也具有交互功能。

17.
数组a中存储的是左右交替上升的n个正整数,如下表所示:
依据对分查找思想,设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n)As Integer,flag As Boolean
Dim i As Integer,j As Integer,m As Integer,key As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1. Text)
i = 1
j = (n + 1) \ 2
flag = False
Do While i<j And Not flag '(1)
m = (i + j) \ 2
If key = a(m) Then
flag = True
ElseIf key< a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a(m) Then flag = True
End If
If flag Then
Text2. Text = Str(m)
Else
Text2. Text = "找不到"
End If
End Sub
a(1) | a(2) | a(3) | …… | a(n —2) | a(n—1) | a(n) |
3 | 25 | 38 | …… | 55 | 31 | 12 |
依据对分查找思想,设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n)As Integer,flag As Boolean
Dim i As Integer,j As Integer,m As Integer,key As Integer
'读取一组正整数,按上述规则存入数组a中,代码略。
key = Val(Text1. Text)
i = 1
j = (n + 1) \ 2
flag = False
Do While i<j And Not flag '(1)
m = (i + j) \ 2
If key = a(m) Then
flag = True
ElseIf key< a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
If Not flag And j > 0 Then
m=n-i
If key = a(m) Then flag = True
End If
If flag Then
Text2. Text = Str(m)
Else
Text2. Text = "找不到"
End If
End Sub
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17