1.选择题- (共11题)
1.
利用 Access软件创建了关于某时刻电影实时票房的数据表,下列说法正确的是 ( )


A.该数据库文件名称为“电影实时票房.accdb” |
B.当前数据表中共有6个字段,4条记录 |
C.设计数据表时,“票房占比”字段数据类型可以设置为数字 |
D.“排名”字段内容前面的“0”手工删除以后就可以将该字段类型改为自动编号 |
2.
使用Word软件输入文字时,可以用一些字符组合来输入某些符号。如:输入“IT”时,会立刻变成为“高中信息技术选考”,这是因为Word软件具有( )
A.拼写与语法检查功能 |
B.修订和批注功能 |
C.查找与替换功能 |
D.自动更正功能 |
3.
将十六进制数从左至右每位分别转换成对应的4位二进制编码(不足4位的左边补0,例如图转换成0010),然后依次连接。则十六进制数5AE转换后的编码是
A.10110101110 | B.10110101100 |
C.010110101010 | D.010110101110 |
4.
以下对各种计算机编码或协议的描述正确的是( )
A.ASCII码是对英文字母的编码 |
B.TCP/IP是一种网络通信协议,是Internet最基本的协议 |
C.SMTP协议可将邮件直接发送到对方用户的电脑上 |
D.FTP协议可将WEB服务器中的数据传输到浏览器 |
5.
某用户使用“百度地图”进行导航,从萧山湘湖驶向杭州西湖,规划路线后开始行驶,途中“导航”提醒前方道路拥堵,建议改变路线,并实时提供新的导航路径,该实例体现信息的( )
A.共享性 | B.载体依附性 | C.时效性 | D.安全性 |
6.
(加试题)某算法的VB程序段如下:
For i = 1 To 3
For j = i To 9
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
End If
Next j
Next i
数组元素a(0)到a(9)的值依次为“25,64,15,40,74,80,27,65,84,53”。若该程序执行后得到的结果是
For i = 1 To 3
For j = i To 9
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
End If
Next j
Next i
数组元素a(0)到a(9)的值依次为“25,64,15,40,74,80,27,65,84,53”。若该程序执行后得到的结果是
A.64 74 80 40 65 84 53 27 25 15 |
B.64 40 80 74 65 84 53 27 25 15 |
C.64 25 15 40 74 80 27 65 84 53 |
D.84 80 74 65 64 53 40 27 25 15 |
7.
(加试题)对分查找的VB程序段如下:
key=78
i=1
j=8
k=1
Do While i<=j
m= fix((i+j)/2)
if d(m)=key Then
Label1.Caption=k
Exit do
End if
If d(m)<key Then
i=m+1
else
j=m-1
End If
k=k+1
Loop
数组元素a(1)到a(8)的值依次为“22,34,41,53,66,71,78,91”。若该程序执行后得到的结果是
key=78
i=1
j=8
k=1
Do While i<=j
m= fix((i+j)/2)
if d(m)=key Then
Label1.Caption=k
Exit do
End if
If d(m)<key Then
i=m+1
else
j=m-1
End If
k=k+1
Loop
数组元素a(1)到a(8)的值依次为“22,34,41,53,66,71,78,91”。若该程序执行后得到的结果是
A.1 | B.2 | C.3 | D.4 |
9.
Flash中,某元件的部分界面如图所示。则下列说法中正确的是


A.该元件的类型是图形元件 |
B.若要使该元件的动画效果播放速度增加一倍,可采用的方法是把帧频修改为6 |
C.该元件的“图层1”图层中有1个空白关键帧,所以测试影片时,太阳会有忽隐忽现的现象 |
D.在当前状态下,用画笔工具在“太阳”的旁边添加“白云”形状,则该“白云”形状会出现在第8帧 |
10.
使用Photoshop软件对“明信片.psd”进行处理,编辑界面如下图所示:
下列说法不正确的是?

下列说法不正确的是?

A.背景图层是不能被删除的,因为该图层已被锁定 |
B.图层“宁静致远”和图层“淡泊明志”均为文字图层,且均添加了图层样式 |
C.当前图像的显示比例为70%,若想把该比例调整到100%,可使用“缩放”工具 |
D.在当前状态下,使用“自由变换”命令,不会改变图层“宁静致远”中文字的大小 |
11.
使用Word 软件编辑某文档,部分界面如图所示, 下列说法正确的是( )


A.批注的对象是“景物描写” |
B.删除批注,文字“落叶”同时被删除 |
C.修订前,第三行后半句文字是“脉络中,是否还藏有爱的颜色?” |
D.接受所有修订后,第三行后半句文字是“脉络中是否还藏有爱的颜色?” |
2.填空题- (共6题)
12.
小王收集了某地区三所学校2017届考生技术选考成绩的统计数据,并用excel软件进行数据处理,如下图所示。请回答下列问题:
(1)单元格G4、I4、K4,以及E5:E15区域的值都是通过复制单元格E4中的公式得到的,则E4单元格内的公式为 ________________________。(提示:100分比例=100分人数/参考人数*100))
(2)若要对B校同学以考试成绩为“91分以上”的人数降序排序,则排序时选择的数据区域为_____________________,选择的主要关键字为______________。
(3)为了更直观地对比三所学校91 分以上各个成绩段学生数的情况,建立了如下图所示的图表。在核查数据时发现C校高三4月考试中94分的人数应为14人,更正数据后,图表会发生怎样的变化________________________ 。

(1)单元格G4、I4、K4,以及E5:E15区域的值都是通过复制单元格E4中的公式得到的,则E4单元格内的公式为 ________________________。(提示:100分比例=100分人数/参考人数*100))
(2)若要对B校同学以考试成绩为“91分以上”的人数降序排序,则排序时选择的数据区域为_____________________,选择的主要关键字为______________。
(3)为了更直观地对比三所学校91 分以上各个成绩段学生数的情况,建立了如下图所示的图表。在核查数据时发现C校高三4月考试中94分的人数应为14人,更正数据后,图表会发生怎样的变化________________________ 。

13.
(加试题)下列VB程序的功能是:求得1000以内的所有水仙花数,并在list1中显示。水仙花数是指一个n位数(n)=3),它的每个位上的数字的n次幂之和等于它本身(例如:1^3+5^3+3^3=153)

Private Sub Command1_Click()
List1.clear
Dim a As Integer
For i = 1 To 1000
s = 0
l = Len(Str(i)) - 1
For j = 0 To l - 1
a = 1
s = s + a ^ 3
Next j
If i = s Then
List1.AddItem i
End If
Next i
End Sub
横线处应填写

Private Sub Command1_Click()
List1.clear
Dim a As Integer
For i = 1 To 1000
s = 0
l = Len(Str(i)) - 1
For j = 0 To l - 1
a = 1
s = s + a ^ 3
Next j
If i = s Then
List1.AddItem i
End If
Next i
End Sub
横线处应填写
A.i / 10 ^ j Mod 10 | B.i \ 10 ^ j Mod 10 |
C.i \ 10 ^ (j Mod 10) | D.(i \ 10) ^ j Mod 10 |
14.
(加试题)由英文字母构成的字符串数据压缩方法描述如下:
1)原始数据中,字母相邻无重复,压缩数据用该字母表示
2)原始数据中,字母相邻重复,压缩数据用1个整数和该字母表示
小明编写了一个解压缩VB程序,功能如下:程序运行时,在文本框Text1中输入压缩数据,点击按钮Command1,在文本框Text2中显示解压缩后的数据。程序运行如图所示

(1)如果压缩数据为”AB168D9A”,解压缩后数据的个数是___________ 。
(2)实现上述功能的VB程序如下。请在划线处填入合适代码。
Function zm(c As String) As Boolean
If c >= "0" And c <= "9" Then zm = False Else zm = True
End Function
Private Sub Command1_Click()
Dim s1 As String, s2 As String, fd As String, k As Integer
Dim count As Integer, i As Integer, j As Integer, length As Integer
s1 = Text1.Text: s2 = "": length = Len(s1)
i = 1
Do While i <= length
fd = Mid(s1, i, 1)
If zm(fd) Then
s2 = s2 + fd
i = i + 1
Else
j = i + 1
fd = Mid(s1, j, 1)
Do While Not zm(fd)
j = j + 1
fd = Mid(s1, j, 1)
Loop
count = ①______
fd = Mid(s1, j, 1)
For k = 1 To count
s2 = s2 + fd
Next k
②_______
End If
Loop
Text2.Text = s2
End Sub
1)原始数据中,字母相邻无重复,压缩数据用该字母表示
2)原始数据中,字母相邻重复,压缩数据用1个整数和该字母表示
原始数据 | 压缩数据 |
BBFFF | 2B3F |
ABBCCCCCD | A2B5CD |
小明编写了一个解压缩VB程序,功能如下:程序运行时,在文本框Text1中输入压缩数据,点击按钮Command1,在文本框Text2中显示解压缩后的数据。程序运行如图所示

(1)如果压缩数据为”AB168D9A”,解压缩后数据的个数是___________ 。
(2)实现上述功能的VB程序如下。请在划线处填入合适代码。
Function zm(c As String) As Boolean
If c >= "0" And c <= "9" Then zm = False Else zm = True
End Function
Private Sub Command1_Click()
Dim s1 As String, s2 As String, fd As String, k As Integer
Dim count As Integer, i As Integer, j As Integer, length As Integer
s1 = Text1.Text: s2 = "": length = Len(s1)
i = 1
Do While i <= length
fd = Mid(s1, i, 1)
If zm(fd) Then
s2 = s2 + fd
i = i + 1
Else
j = i + 1
fd = Mid(s1, j, 1)
Do While Not zm(fd)
j = j + 1
fd = Mid(s1, j, 1)
Loop
count = ①______
fd = Mid(s1, j, 1)
For k = 1 To count
s2 = s2 + fd
Next k
②_______
End If
Loop
Text2.Text = s2
End Sub
15.
(加试题)某排序算法思想如下:每一趟将一个待排序的记录,按其关键字的大小插入到已经排好序的一组记录的适当位置上,直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序;第一步 3 插入到有序记录(9),得到(3,9);第二步 1 插入到有序记录(3,9),得到(1,3,9);第三步 4 插入到有序记录(1,3,9),得到最终有序记录为“1,3,4,9”。
为此,编写了一个 VB 程序,功能如下:运行程序,窗体加载时随机产生 10 个随机整数,并在列表框 List1 中依次显示排序前数据,单击“排序”按钮 Command1,在列表框 List2 中显示经过上述排
序算法后的数据,运行结果如图所示。实现上述功能的 VB 代码如下,但加框处代码有错,请改正。

Const n = 10
Dim a(1 To n) As Integer '生成 n 个随机数,存储在 a 数组,代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
For i = 2 To n
t = a(i)
j = i - 1
Do While t < a(j)
a(j + 1) = a(j)
j = j - 1
For i = 1 To n
End Sub
为此,编写了一个 VB 程序,功能如下:运行程序,窗体加载时随机产生 10 个随机整数,并在列表框 List1 中依次显示排序前数据,单击“排序”按钮 Command1,在列表框 List2 中显示经过上述排
序算法后的数据,运行结果如图所示。实现上述功能的 VB 代码如下,但加框处代码有错,请改正。

Const n = 10
Dim a(1 To n) As Integer '生成 n 个随机数,存储在 a 数组,代码略
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
For i = 2 To n
t = a(i)
j = i - 1
Do While t < a(j)
a(j + 1) = a(j)
j = j - 1
If j = 1 Then Exit Do ;改正:_______________
Loopa(j) = a(j + 1) ;改正:_______________
Next iFor i = 1 To n
List2.AddItem Str(a(i))
Next iEnd Sub
16.
小乐编写了一个求最小公倍数的程序,他先借鉴更相减损术求出最大公约数,再求出最小公倍数。更相减损术是出自《九章算术》的一种求最大公约数的算法,其原理是用大数减去小数,互相减来减去,一直到减数与差相等为止。在文本框Text1中输入一个整数,在Text2中输入另一个整数,单击“计算”按钮Command1,在Label3中输出两个数的最小公倍数。程序运行界面如图所示。

(1)根据程序代码判断,保证程序正常运行,窗体中至少需要________个对象。
(2)为了实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim gys As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
a = m: b = n
Do While m <> n
If ①______Then m = m - n Else n = n - m
Loop
gys = n
Label3.Caption = "最小公倍数是:" + ②__________
End Sub
(3)若在文本框Text1中输入15,在文本框Text2中输入6,单击“计算”按钮后,语句m=m-n执行了___________次。

(1)根据程序代码判断,保证程序正常运行,窗体中至少需要________个对象。
(2)为了实现上述功能,请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim gys As Integer
m = Val(Text1.Text)
n = Val(Text2.Text)
a = m: b = n
Do While m <> n
If ①______Then m = m - n Else n = n - m
Loop
gys = n
Label3.Caption = "最小公倍数是:" + ②__________
End Sub
(3)若在文本框Text1中输入15,在文本框Text2中输入6,单击“计算”按钮后,语句m=m-n执行了___________次。
17.
小刘用Flash软件制作了题为“真空实验”的多场景动画,时间轴截图如图a所示,请回答以下问题:
(1)小刘在创作多媒体作品过程中,脚本编写的最后一个环节是______。(选填,填字母:
(2)如图所示“标题”图层第1帧实例如图b所示,第15帧实例如图c所示,则该“标题”实例运动方向是______;“标题”图层中补间动画占用的时间约是_____秒。

(3)测试影片时,动画播放到最后1帧时能停止播放,则应该在_____ 图层添加stop();命令;若要实现 “按钮”图层中“Play”按钮最后才出现,则实现的操作是 。
(4)测试影片时,点击“实验网”按钮,弹出浏览器窗口并打开“实验网(www.zxskj.com)”,则该按钮元件上添加的脚本命令是_________ 。
(5)测试影片时,“对话”图层的声音刚好播放完毕,该声音文件采用高保真(44KHZ,16位)立体声录制的WAV音频格式,则该声音文件的容量大小约是_____ 。

(1)小刘在创作多媒体作品过程中,脚本编写的最后一个环节是______。(选填,填字母:
A.制定脚本大纲 / | B.分解媒体元素 / | C.需求分析 / | D.规划设计) |

(3)测试影片时,动画播放到最后1帧时能停止播放,则应该在_____ 图层添加stop();命令;若要实现 “按钮”图层中“Play”按钮最后才出现,则实现的操作是 。
(4)测试影片时,点击“实验网”按钮,弹出浏览器窗口并打开“实验网(www.zxskj.com)”,则该按钮元件上添加的脚本命令是_________ 。
(5)测试影片时,“对话”图层的声音刚好播放完毕,该声音文件采用高保真(44KHZ,16位)立体声录制的WAV音频格式,则该声音文件的容量大小约是_____ 。
试卷分析
-
【1】题量占比
选择题:(11道)
填空题:(6道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17