1.选择题- (共12题)
1.
下列关于信息和信息技术的说法正确的是( )
A.计算机对各类信息进行加工处理,本质上都是通过计算完成的。 |
B.某GPS导航规划的路线经常出错,更新数据后很少出错,主要体现信息的真伪性。 |
C.蓝牙音箱是一种主要用于将声音的模拟信号转换为数字信息的设备。 |
D.一般来说,网页是用VB语言编写的,通过HTTP协议进行传输。 |
2.
使用UltraEdit软件观察字符内码,结果如图所示:

则字符“Olympic”的内码为:

则字符“Olympic”的内码为:
A.4F 6C 79 73 70 69 63 | B.4F 72 79 73 70 69 63 |
C.4F 6C 79 6D 70 69 63 | D.4F 72 79 6D 70 69 63 |
4.
日前,在2017中国移动全球合作伙伴大会上,5G研发应用的最新成果亮相。在5G基础通信方面,中国移动展示了全球首个基于国际统一标准的“5G新空口端到端互通”。此次大会还展示了全球首个5G IoDT测试、5G体验车、5G无人机、5G无线宽带接入、5G潜水艇、5G VR云游戏六大5G业务。“4G改变生活,5G改变社会。” 5G是一个全新的通信技术。对5G技术的理解,你认为下列选项错误的是( )
A.随着5G技术的发展,人类可能进入了万物互联的时代。 |
B.5G技术为虚拟现实、智能驾驶等提供了创新动力。 |
C.5G技术主要是提高了网络传输速度,和人工智能、物联网等技术没多大关系。 |
D.5G技术不只是人与人之间的通信,虚拟现实、3D息影都将成为现实。 |
5.
某WORD文档中出现了8处“iPhone x”和“iPhone X”单词,使用“查找和替换”功能进行操作,部分界面如图所示。

单击“全部替换”按钮后,下列描述正确的是( )

单击“全部替换”按钮后,下列描述正确的是( )
A.仅将全文中所有的“iPhone x”替换为红色的“iPhone X”。 |
B.只能将文中所有红色的“iPhone X”替换为“iPhone x”。 |
C.可以将单词“iPhone x”和“iPhone X”全部替换为红色字体。 |
D.可以将全角的“iPhone x”单词也替换为红色字体。 |
6.
(加试题)有如下VB程序段:
s = "7218634594" :n = Len(s)
t = 0
For i = 1 To n - 1
a(i) = Val(Mid(s, i, 2))
Next i
For i = 1 To n - 2 Step 2
k = i
For j = i + 2 To n - 1 Step 2
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后,文本框Text1中显示的内容是
s = "7218634594" :n = Len(s)
t = 0
For i = 1 To n - 1
a(i) = Val(Mid(s, i, 2))
Next i
For i = 1 To n - 2 Step 2
k = i
For j = i + 2 To n - 1 Step 2
If a(j) < a(k) Then k = j
Next j
If k <> i Then
temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1
End If
Next i
Text1.Text = Str(t)
该程序段运行后,文本框Text1中显示的内容是
A.1 | B.2 | C.3 | D.4 |
7.
(加试题)某VB程序段如下:
s = 0
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then
a(j) = a(j) + 1
s = s + a(j)
End If
Next j
Next i
运行程序段后,变量s的值为
s = 0
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then
a(j) = a(j) + 1
s = s + a(j)
End If
Next j
Next i
运行程序段后,变量s的值为
A.6 | B.5 | C.4 | D.3 |
8.
有如下程序段:
x=0:y=0
For i=1 to 16
If i mod 3=0 Then
x=x+1
Else
y=y+1
End if
Next i
程序运行后,输出x,y的值分别为
x=0:y=0
For i=1 to 16
If i mod 3=0 Then
x=x+1
Else
y=y+1
End if
Next i
程序运行后,输出x,y的值分别为
A.10,6 | B.11,5 | C.5,11 | D.6,10 |
9.
利用Flash软件制作按钮元件,编辑界面如下图所示:()

将该按钮应用到舞台上,下列说法不正确的是( )

将该按钮应用到舞台上,下列说法不正确的是( )
A.鼠标移动到按钮上时,按钮无法响应 |
B.测试影片,当鼠标指针经过该按钮实例时播放声音 |
C.测试影片,当鼠标指针经过该按钮实例时文字“play”将消失 |
D.测试影片,当鼠标指针经过该按钮实例时椭圆形状的背景仍旧显示 |
10.
一段未经压缩的PAL制式的AVI格式无声视频,存储容量约为34.3MB,时长为4秒、每帧画面为400×300像素,则该视频中图像的每个像素所占的位数是( )
A.8位 | B.16位 | C.24位 | D.32位 |
11.
使用ps软件处理“湘湖.psd”文件,部分编辑界面如图所示,下列说法正确的是()


A.背景图层处于锁定状态所以不能修改 |
B.草地图层的填空为0%,所以看不到草地图层的任何效果 |
C.文字图层加滤镜效果 |
D.湖面图层,草地图层有链接,所以删除湖面图层,草地图层也随之删除 |
12.
用goldwave软件编辑声音,界面如图所示,下列描述不正确的是


A.当前状态下,点击“裁剪”按钮,然后按原文件保存,原文件大小不变 |
B.重新选区选中右声道,点击“删除”按钮,然后按原文件保存文件大小不变 |
C.当前状态下,插入2静音,会在右声道5秒后增加2秒静音 |
D.不改变其他参数,执行另存为单声道文件操作后,音频文件的存储容量约为原来的1/2 |
2.填空题- (共5题)
13.
小王收集了2016年部分民航机场业务量的有关数据,并用Excel软件进行数据处理,如图所示。请回答下列问题:

(1)当前标题“2016年部分民航机场业务量”所在单元格由B2到H2单元格合并单元格得到,合并单元格可通过_______按钮实现。(单选:
(2)要计算旅客吞吐量比上年的同期增幅%,可在H5单元格中输入计算公式____________,然后用自动填充功能完成其他单元格的计算。(提示:比上年同期增幅%=(本期完成-上年同期)/上年同期*100)
(3)要对表中数据按机场名称的首字母顺序排序,则应选择排序的区域是是___________。
(4)根据上图中数据制作的图表如下图所示,创建该图表的数据区域是__________。

(1)当前标题“2016年部分民航机场业务量”所在单元格由B2到H2单元格合并单元格得到,合并单元格可通过_______按钮实现。(单选:
A.![]() | B.![]() | C.![]() | D.![]() |
(3)要对表中数据按机场名称的首字母顺序排序,则应选择排序的区域是是___________。
(4)根据上图中数据制作的图表如下图所示,创建该图表的数据区域是__________。

14.
求孪生素数。孪生素数要求为:两个相邻奇数且都是素数。下列Visual Basic程序用于查找100以内的所有孪生素数,其中自定义函数judge用于判断一个数是否是素数,程序运行界面如左图所示,Command1鼠标单击事件过程的流程图如右图所示。请在划线处填入相关代码。

程序代码如下:
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框内容
For i = 3 To 97 ___①___
If judge(i) And ②____ Then
List1.AddItem Str(i) + " 和 " + Str(i + 2)
End If
Next i
End Sub
Function judge(x As Integer) As Boolean
Dim j As Integer
judge = True
For j = 2 To Int(Sqr(x))
If x Mod j = 0 Then
judge = false
Exit For
End If
Next j
End Function
将加框部分转换为Do While条件循环结构,部分代码如下:
Private Sub Command1_Click()
Dim i As Integer
i = 3
Do While i <= 97
'循环内语句块与加框处循环内语句块相同
③________
Loop
End Sub


程序代码如下:
Private Sub Command1_Click()
Dim i As Integer
List1.Clear '清除列表框内容
For i = 3 To 97 ___①___
If judge(i) And ②____ Then
List1.AddItem Str(i) + " 和 " + Str(i + 2)
End If
Next i
End Sub
Function judge(x As Integer) As Boolean
Dim j As Integer
judge = True
For j = 2 To Int(Sqr(x))
If x Mod j = 0 Then
judge = false
Exit For
End If
Next j
End Function
将加框部分转换为Do While条件循环结构,部分代码如下:
Private Sub Command1_Click()
Dim i As Integer
i = 3
Do While i <= 97
'循环内语句块与加框处循环内语句块相同
③________
Loop
End Sub
15.
(加试题)单循环赛制是一种较为公平合理的比赛制度,比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”:数字1~n依次作为队伍编号,把编号按U型走向分成均等两边(若n为奇数,则在末尾增加编号0,使总数为偶数),即可得到第一轮的比赛顺序,例如,5个队伍的比赛编排情况如图a所示;第二轮开始,固定编号1,其余编号均按逆时针方向移动一个位置,即为该轮比赛顺序;以后各轮比赛顺序以此类推,与编号0对阵的表示本轮轮空。
小赵为此编写了VB程序,功能如下:在文本框Text1中输入参赛队伍数N,单击“编排”按钮command1,在列表框list1中输出每轮比赛顺序。程序运行效果如图所示。

实现上述功能的VB代码如下,
Private Sub Command1_Click()
Dim team(1 To 20) As String
Dim n As Integer, c As Integer, result As String
Dim i As Integer, j As Integer, temp As String
n = __________
For i = 1 To n
team(i) = Str(i)
Next i
c = n + n Mod 2
If c <> n Then team(c) = Str(0)
For i = 1 To n
result = ""
For j = 1 To c \ 2
result = result & team(j) & "-" & __________ & ";"
Next j
List1.AddItem "第" & Str(i) & "轮:" & result
temp = team(c)
For j = c To 2 Step -1
team(j) = _________
Next j
team(2) = temp
Next i
End Sub
第一轮![]() ![]() 2-5 ![]() | 第二轮 1-5 0-4 2-3 | 第三轮 1-4 5-3 0-2 | 第四轮 1-3 4-2 5-0 | 第五轮 1-2 3-0 4-5 |
小赵为此编写了VB程序,功能如下:在文本框Text1中输入参赛队伍数N,单击“编排”按钮command1,在列表框list1中输出每轮比赛顺序。程序运行效果如图所示。

实现上述功能的VB代码如下,
Private Sub Command1_Click()
Dim team(1 To 20) As String
Dim n As Integer, c As Integer, result As String
Dim i As Integer, j As Integer, temp As String
n = __________
For i = 1 To n
team(i) = Str(i)
Next i
c = n + n Mod 2
If c <> n Then team(c) = Str(0)
For i = 1 To n
result = ""
For j = 1 To c \ 2
result = result & team(j) & "-" & __________ & ";"
Next j
List1.AddItem "第" & Str(i) & "轮:" & result
temp = team(c)
For j = c To 2 Step -1
team(j) = _________
Next j
team(2) = temp
Next i
End Sub
16.
(加试题)用绳索围成回字迷宫图(左图所示),迷宫路宽是 1 米,如果绳索长为 X 米,则可以构成多少个边长为1米并且至少两边在绳索上的正方形。程序效果如右图所示。

Dim X As Integer, L As Integer, i As Integer
Dim n As Integer, a As Integer, b As Integer
X = Val(Text1.Text)
If X < 2 Then
n = 0
ElseIf X >= 2 And X <= 4 Then
n = 1
Else
i = 1: L = 3
Do While ①
If L = X Then
n = i ^ 2
Else
L = L - 4 * i
a = ②
b = ((X - L) \ i) * (i - 1) - 1 + (X - L) Mod i
n = a + b
End If
End If
Label1.Caption = " 绳索长度为 " + Str(X) + " 米,可以构成 " + Str(n) + " 个边长为 1 米的正方形。"
(1)为实现该程序的功能,画线处的语句应填写为:
①________________________
②_________________________
(2)如果绳索长度 X 为 15 米,则可以构成相应的正方形个数为________。


Dim X As Integer, L As Integer, i As Integer
Dim n As Integer, a As Integer, b As Integer
X = Val(Text1.Text)
If X < 2 Then
n = 0
ElseIf X >= 2 And X <= 4 Then
n = 1
Else
i = 1: L = 3
Do While ①
i = i + 2
L = L + 4 * i
LoopIf L = X Then
n = i ^ 2
Else
L = L - 4 * i
a = ②
b = ((X - L) \ i) * (i - 1) - 1 + (X - L) Mod i
n = a + b
End If
End If
Label1.Caption = " 绳索长度为 " + Str(X) + " 米,可以构成 " + Str(n) + " 个边长为 1 米的正方形。"
(1)为实现该程序的功能,画线处的语句应填写为:
①________________________
②_________________________
(2)如果绳索长度 X 为 15 米,则可以构成相应的正方形个数为________。
17.
小明利用Flash制作了一张电子贺卡,请回答下列问题。
(1)小明利用搜索引擎找到一张素材“背景.jpg”,该图像文件的属性如下图所示:

小明想把该图像文件的尺寸修改为550*400,他可以使用的工具有___________(多选,请填数字序号)
1 画图(Windows附件)
2 Photoshop
3 GoldWave
4 记事本
5 Internet Explorer
(2)在Flash中,小明把图像“背景.jpg”导入到舞台中,属性面板如下图所示,为了使该图像与舞台(550×400)重合,需要把X和Y设置为___________

(3)在“main”场景的“action”图层中,小明把“礼物”按钮添加到舞台左下角后,发现该按钮没有显示,如下图所示,则原因可能是____________________________

(4)在上图中,为了实现“main”场景播放结束时自动跳转到第1帧并继续播放,应选择 ①_______图层的最后1帧并添加动作 ②__________
(1)小明利用搜索引擎找到一张素材“背景.jpg”,该图像文件的属性如下图所示:

小明想把该图像文件的尺寸修改为550*400,他可以使用的工具有___________(多选,请填数字序号)
1 画图(Windows附件)
2 Photoshop
3 GoldWave
4 记事本
5 Internet Explorer
(2)在Flash中,小明把图像“背景.jpg”导入到舞台中,属性面板如下图所示,为了使该图像与舞台(550×400)重合,需要把X和Y设置为___________

(3)在“main”场景的“action”图层中,小明把“礼物”按钮添加到舞台左下角后,发现该按钮没有显示,如下图所示,则原因可能是____________________________

(4)在上图中,为了实现“main”场景播放结束时自动跳转到第1帧并继续播放,应选择 ①_______图层的最后1帧并添加动作 ②__________
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17