1.选择题- (共12题)
1.
下列应用中,体现人工智能技术的有( )
①用“百度在线翻译”将英文文章翻译成中文
②使用在线二维码生成器自动生成二维码
③用指纹解锁功能打开手机
④使用 OCR 软件将杂志扫描文件识别为电子文档,以便 Word 编辑
⑤使用 Word 的“修订”功能自动记录所有编辑过程
①用“百度在线翻译”将英文文章翻译成中文
②使用在线二维码生成器自动生成二维码
③用指纹解锁功能打开手机
④使用 OCR 软件将杂志扫描文件识别为电子文档,以便 Word 编辑
⑤使用 Word 的“修订”功能自动记录所有编辑过程
A.①②④ | B.①③④ | C.①②③ | D.③④⑤ |
2.
小明用IE浏览器访问浙江天气网“http://zj.weather.com.cn/”,如图所示。
下列说法正确的是()

下列说法正确的是()
A.选择“网页,全部”方式保存网页,保存的网页文件包含图片 |
B.该网页是由HTTP语言编写的,可以由记事本、Frontpage等软件编辑 |
C.收藏该网页,保存的是网址“http://zj.weather.com.cn/” |
D.该网页的文件名为“浙江首页-浙江天气网” |
4.
小张设计出一份介绍学校的多媒体作品报告表
该报告表的设计在多媒体作品制作过程中属于 ( )
主题思想 | 热爱学校,尊师重教 |
结构类型 | 演示 |
设施要求 | 多媒体计算机,数码相机,扫描仪,网络,图像、音频、视频处理软件 |
作品内容 | 主要模块:学校历史;学校简介;师资力量;风景风貌;办学成果 |
发布方式 | 网上发布 |
该报告表的设计在多媒体作品制作过程中属于 ( )
A.创作需求分析 | B.应用需求分析 |
C.系统结构设计 | D.功能模块设计 |
5.
某数据加密方法描述如下:
(1)以字节为单位进行加密处理;
(2)将1个字节的8位二进制数右移一位,最高位用右移出的最低位填充;
(3)将处理后的8位二进制数分割成前4位与后4位两个二进制数;
(4)分别将上述两个4位二进制数转换为十六进制数;
所得两个十六进制数码按先后顺序连接,即为该字节的密文。
已知字母“Y”的ASCII码用十进制表示是89,则其加密后的密文是 ( )
(1)以字节为单位进行加密处理;
(2)将1个字节的8位二进制数右移一位,最高位用右移出的最低位填充;
(3)将处理后的8位二进制数分割成前4位与后4位两个二进制数;
(4)分别将上述两个4位二进制数转换为十六进制数;
所得两个十六进制数码按先后顺序连接,即为该字节的密文。
已知字母“Y”的ASCII码用十进制表示是89,则其加密后的密文是 ( )
A.C4 | B.6C | C.4C | D.AC |
6.
(加试题)(改编)有如下 VB 程序段:
For i=1 to 3
For j=1 to 5-i
If a(j)>a(j+1) Then
t=a(j) : a(j)=a(j+1) : a(j+1)=t
End If
Next j
Text1.Text = Text1.Text + Str(a(i))
Next i
数组元素 a(1)到 a(5)的值依次为“3,7,9,8,4”。若该程序段执行后,文本框 Text1 显示的内容是
For i=1 to 3
For j=1 to 5-i
If a(j)>a(j+1) Then
t=a(j) : a(j)=a(j+1) : a(j+1)=t
End If
Next j
Text1.Text = Text1.Text + Str(a(i))
Next i
数组元素 a(1)到 a(5)的值依次为“3,7,9,8,4”。若该程序段执行后,文本框 Text1 显示的内容是
A.3 7 7 | B.3 7 4 | C.3 7 4 | D.3 8 9 |
7.
(加试题)(改编)有一段 VB程序,代码如下:
For i = 1 To 2
For j = 8 To i + 1 Step -1
If a(j) < a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
数组元素 a(1)到 a(8)的值依次为“35,18,14,20,30,15,28,26”,运行该程序段后,a(5)到a(8)的值依次是( )
For i = 1 To 2
For j = 8 To i + 1 Step -1
If a(j) < a(i) Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
数组元素 a(1)到 a(8)的值依次为“35,18,14,20,30,15,28,26”,运行该程序段后,a(5)到a(8)的值依次是( )
A.30,26,28,35 | B.14,15,18,20 | C.26,15,18,14 | D.26,28,30,35 |
11.
如图a、图b所示是小明在旅游期间用数码相机拍了两张jpg照片,拍摄期间没有修改相机设置,由此可以推断正确的是:


A.图a、图b容量一样大 |
B.图a“容量”大于图b |
C.图a“容量”小于图b |
D.图a、图b均为无损压缩 |
12.
(加试题)有一段wav 格式音频,用goldwave 软件编辑,所有参数不变直接保存为 ape
音频格式,此ape 文件大小为 13.2MB,属性如图所示。

则此次格式转换的压缩比是( )
音频格式,此ape 文件大小为 13.2MB,属性如图所示。

则此次格式转换的压缩比是( )
A.1:1 | B.2.3:1 | C.11:1 | D.22:1 |
2.填空题- (共5题)
13.
小李收集了某企业对各部门网站绩效评估的有关数据,并使用Excel 软件进行数据处理,如图a所示。

(1)小李在 H3 单元格中利用 Rank 函数(Rank 函数的功能是返回某一个数值在某一区域内的排名,例如 Rank(A1,A1:A10)返回 A1 在 A1:A10 区域内的排名)计算总分排名,并向下自动填充,但排名结果是错误的,他应将 H3 单元格中的公式修改为_________,再重新自动填充。
(2)为了更直观地表示各部门网站性能及设计指数的对比情况,小李制作了如图b所示的图表,该图表的数据区域是__________。

(3)若分别对“信息公开指数”和“公众参与指数”两列数据表进行筛选,筛选的条件均如图 c 所示,则筛选出的部门有_______(填写数字)个。

(4)对 A2:H12 数据区域按“部门名称”进行升序排序,应该选择____________ (选填:字母排序/笔划排序)的方法,才能使“水管部”排在“财政部”前面。

(1)小李在 H3 单元格中利用 Rank 函数(Rank 函数的功能是返回某一个数值在某一区域内的排名,例如 Rank(A1,A1:A10)返回 A1 在 A1:A10 区域内的排名)计算总分排名,并向下自动填充,但排名结果是错误的,他应将 H3 单元格中的公式修改为_________,再重新自动填充。
(2)为了更直观地表示各部门网站性能及设计指数的对比情况,小李制作了如图b所示的图表,该图表的数据区域是__________。

(3)若分别对“信息公开指数”和“公众参与指数”两列数据表进行筛选,筛选的条件均如图 c 所示,则筛选出的部门有_______(填写数字)个。

(4)对 A2:H12 数据区域按“部门名称”进行升序排序,应该选择____________ (选填:字母排序/笔划排序)的方法,才能使“水管部”排在“财政部”前面。
14.
有一种数字加密算法如下:将该数位与其位置相加得到X,X除以10的余数即为编号,若余数为0,编号取10,再从密码表中找出与编号对应的加密字符,其密码表如下:
例如:数字2018加密过程:
按照上述方法,设计一个字符加密的VB程序,运行程序时,在文本框Text1中输入明文数字,单击加密按钮Command1,程序将明文加密,并将加密后的密文显示在文本框Text2中。程序运行效果如图所示。

(1)将命令按钮上显示的文本Command1”改为“加密”,可在其属性窗口中将____属性的属性值修改为“加密”。
(2)为实现上述功能,请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim jm As String, s1 As String, s2 As String, x As Integer
jm = "HowAreYOU?"
s1 = ____________________
For i = 1 To Len(s1)
x = Val(Mid(s1, i, 1)) + i
x = ____________________
If x = 0 Then x = 10
s2 = ____________________
Next i
Text2.Text = s2
End Sub
(3)若密文是“YwUH”,则明文是____________________。
编号 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
加密字符 | H | o | w | A | r | e | Y | O | U | ? |
例如:数字2018加密过程:
数字 | 2 | 0 | 1 | 8 |
位置 | 1 | 2 | 3 | 4 |
编号 | 3 | 2 | 4 | 12 mod 10=2 |
加密字符 | w | o | A | o |
按照上述方法,设计一个字符加密的VB程序,运行程序时,在文本框Text1中输入明文数字,单击加密按钮Command1,程序将明文加密,并将加密后的密文显示在文本框Text2中。程序运行效果如图所示。

(1)将命令按钮上显示的文本Command1”改为“加密”,可在其属性窗口中将____属性的属性值修改为“加密”。
(2)为实现上述功能,请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim jm As String, s1 As String, s2 As String, x As Integer
jm = "HowAreYOU?"
s1 = ____________________
For i = 1 To Len(s1)
x = Val(Mid(s1, i, 1)) + i
x = ____________________
If x = 0 Then x = 10
s2 = ____________________
Next i
Text2.Text = s2
End Sub
(3)若密文是“YwUH”,则明文是____________________。
15.
(加试题)某同学编写一个VB程序模拟音乐播放器的“随机排序”功能。单击“随机排序”按钮Command1,随机生成15个“歌曲名”(歌曲名由3-6个大写英文字母组成),在列表框list1输出原播放顺序,在列表框list2输出随机排序后的顺序。运行界面如下:

实现上述功能的VB代码如下,其中加框处代码有错,请改正。
(1)________________________;
(2)________________________;
Private Sub Command1_Click()
Dim a(1 To 15) As String, b(1 To 15) As Boolean, c(1 To 15) As String
'数组a和数组c分别代表排序前后的文件名
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 15 ‘生成各文件名,存放在数组a
k =Int(Rnd*5)+2 (1)
a(i) = ""
For j = 1 To k
a(i) = a(i) + Chr(65 + Int(Rnd() * 26))
Next j
List1.AddItem Str(i) + " " + a(i)
Next i
For i = 1 To 15
b(i) = False
Next i
For i = 1 To 15
k = Int(Rnd() * 15) + 1
Do While b(k) = True
k = Int(Rnd() * 15) + 1
Loop
b(k) = True
c(i) = a(k) + " " + "原位置" + Str(k)
Next i
For i = 1 To 15
List2.AddItem Str(i) + " " +str(a(i)) (2)
Next i
End Sub

实现上述功能的VB代码如下,其中加框处代码有错,请改正。
(1)________________________;
(2)________________________;
Private Sub Command1_Click()
Dim a(1 To 15) As String, b(1 To 15) As Boolean, c(1 To 15) As String
'数组a和数组c分别代表排序前后的文件名
Dim i As Integer, j As Integer, k As Integer
For i = 1 To 15 ‘生成各文件名,存放在数组a
k =Int(Rnd*5)+2 (1)
a(i) = ""
For j = 1 To k
a(i) = a(i) + Chr(65 + Int(Rnd() * 26))
Next j
List1.AddItem Str(i) + " " + a(i)
Next i
For i = 1 To 15
b(i) = False
Next i
For i = 1 To 15
k = Int(Rnd() * 15) + 1
Do While b(k) = True
k = Int(Rnd() * 15) + 1
Loop
b(k) = True
c(i) = a(k) + " " + "原位置" + Str(k)
Next i
For i = 1 To 15
List2.AddItem Str(i) + " " +str(a(i)) (2)
Next i
End Sub
16.
(加试题)小李与小王合作编写一个成绩统计的VB程序:小王编写一个过程,该过程从数据库读取某一指定科目的相关数据,存储在数组a中;小李编写一个过程,该过程依据数组a中的相关数据进行排序。小李与小王约定的数组a各元素含义如图所示。
程序功能如下:在文本框Text1中输入科目名称,单击“读取数据库”按钮Command1,程序从数据库读取数据,数据存放与a()中,呈现方式如表所示;在文本框text2中输入第几班级,单击“开始排序”按钮Command2,程序对输入班级的学生成绩进行排序,结果输出在列表框List1中。程序运行界面如下图所示。

实现上述功能的VB程序如下,请回答下列问题:
(1)根据程序运行界面中的数据及数组a各元素的含义,数组元素a(5)表示的是_____________
(2)分析程序,可知数据库的文件名为____________________
(3)请在划线处填入合适的代码。
Dim a(1 To 600) As Integer '数组大小满足处理要求
Private Sub Command1_Click() '本过程由小王完成,从数据库读取指定科目的各相关数据,存储在数组a中
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
conn ConncctionString = "provider=Microsoft.AC
conn.Open
Set rs.ActiveConnection = conn '本过程的其他语句略
End Sub
Private Sub Command2_Click() '依据数组a中的相关数据对第k个班级的学生平均分进行升序排序
Dim i As Integer, j As Integer, n As Integer ‘i,j为循环变量,n为班级个数
Dim k as integer,t as integer
Dim p As Integer ‘p为前几个班级的总人数
k=val(text2.text)
For i=2 to k ‘求得前几个班级的总人数
p=p+a(i)
Next i
t=___________‘t为第k-1个班级最后一个学生所在的位置
For i=t+1 to t+a(k+1)-1 ‘t+1为第k个班级第一位学生所在的位置,t+a(k+1)为第k个班级最后一个学生所在的位置
For j= __________ to i+1 step -1
If a(j)<a(j-1) then
k= a(j - 1): a(j - 1) = a(j): a(j) = k
Endif
Next j
Next i
For i=1 to a(k+1)
List1.additem str(i)+” ”+str(a(t+i))
Next i
End Sub
数组元素 | 数组元素的含义 |
a(1) | 存储班级数n |
a(2) | 从a(2)到a(n+1) 依次存储第1、2、…第n个班级人数 |
… | |
a(n+1) | |
a(n+2) | 从a(n+2) 依次存储第1班每个学生的单科成绩、第2班每个学生的单科成绩、…第n班每个学生的单科成绩 |
… | |
… |
程序功能如下:在文本框Text1中输入科目名称,单击“读取数据库”按钮Command1,程序从数据库读取数据,数据存放与a()中,呈现方式如表所示;在文本框text2中输入第几班级,单击“开始排序”按钮Command2,程序对输入班级的学生成绩进行排序,结果输出在列表框List1中。程序运行界面如下图所示。

实现上述功能的VB程序如下,请回答下列问题:
(1)根据程序运行界面中的数据及数组a各元素的含义,数组元素a(5)表示的是_____________
(2)分析程序,可知数据库的文件名为____________________
(3)请在划线处填入合适的代码。
Dim a(1 To 600) As Integer '数组大小满足处理要求
Private Sub Command1_Click() '本过程由小王完成,从数据库读取指定科目的各相关数据,存储在数组a中
Dim conn As New ADODB.Conncction
Dim rs As New ADODB.Recordset
conn ConncctionString = "provider=Microsoft.AC
A.OLEDB.12.0;data source=" + "Score.accdb" |
Set rs.ActiveConnection = conn '本过程的其他语句略
End Sub
Private Sub Command2_Click() '依据数组a中的相关数据对第k个班级的学生平均分进行升序排序
Dim i As Integer, j As Integer, n As Integer ‘i,j为循环变量,n为班级个数
Dim k as integer,t as integer
Dim p As Integer ‘p为前几个班级的总人数
k=val(text2.text)
For i=2 to k ‘求得前几个班级的总人数
p=p+a(i)
Next i
t=___________‘t为第k-1个班级最后一个学生所在的位置
For i=t+1 to t+a(k+1)-1 ‘t+1为第k个班级第一位学生所在的位置,t+a(k+1)为第k个班级最后一个学生所在的位置
For j= __________ to i+1 step -1
If a(j)<a(j-1) then
k= a(j - 1): a(j - 1) = a(j): a(j) = k
Endif
Next j
Next i
For i=1 to a(k+1)
List1.additem str(i)+” ”+str(a(t+i))
Next i
End Sub
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17