1.选择题- (共12题)
1.
关于病毒,下列说法正确的是( )
A.下载安装手机应用软件可能会感染病毒 |
B.病毒隐藏在合法的文件中不被发现体现了病毒的传染性 |
C.杀毒软件只需经常更新升级,就能有效查杀所有病毒 |
D.QQ好友之间发送的文件肯定是安全的,不需要查杀病毒 |
2.
使用Word软件编辑某文档,部分界面如图所示。

下列说法正确的是( )

下列说法正确的是( )
A.删除批注内容“江苏文艺出版社出版”,则批注也被删除 |
B.不能再为《你必须很努力,才能看起来毫不费力》添加批注 |
C.图片与文字的环绕方式可能是“紧密型” |
D.接受所有修订后,第三行的部分文字是“该书通过四十个真实有料的故事,让人直面追梦路” |
3.
下列关于Access数据表中“自动编号”的说法中,正确的是( )
A.可以同时存在两个数据类型为“自动编号”的字段 |
B.某字段的数据类型为“自动编号”,该字段不能设置为主键 |
C.某字段的数据类型为“自动编号”,该字段对应的记录值不能手工输入 |
D.删除记录,剩余记录中数据类型为自动编号的字段值会自动更新 |
4.
使用UltraEdit软件观察字符内码,部分界面如图所示。

下列关于字符组成的说法中,正确的是( )

下列关于字符组成的说法中,正确的是( )
A.5个汉字 | B.10个ASCII码 |
C.2个汉字和8个ASCII码 | D.4个汉字和2个ASCII码 |
6.
(加试题)有以下VB程序段:
Dim a As String, b As String, p As String, s As String
a = Text1.Text: b = Text2.Text: c = Text3.Text :p = ""
For i = 1 To Len(a)
If b = Mid(a, i, Len(b)) Then
s = s + c
i = i + Len(b) – 1
p = p + Str(i)
Else
s = s + Mid(a, i, 1)
End If
Next i
Label1.Caption = p
若文本框Text1中输入“Hello,world!Hello,Python!”,文本框Text2中输入“Hello”,文本框Text3中输入“你好”运行该段程序后,标签Labele1中显示的是( )
Dim a As String, b As String, p As String, s As String
a = Text1.Text: b = Text2.Text: c = Text3.Text :p = ""
For i = 1 To Len(a)
If b = Mid(a, i, Len(b)) Then
s = s + c
i = i + Len(b) – 1
p = p + Str(i)
Else
s = s + Mid(a, i, 1)
End If
Next i
Label1.Caption = p
若文本框Text1中输入“Hello,world!Hello,Python!”,文本框Text2中输入“Hello”,文本框Text3中输入“你好”运行该段程序后,标签Labele1中显示的是( )
A.1 13 | B.5 17 | C.1 2 | D.5 5 |
7.
(加试题)有以下VB程序段:
For i = 7 To 5 Step -1
k = i
For j = i - 1 To 1 Step -1
If d(j) > d(k) Then k = j
Next j
If k <> i Then
t = d(k): d(k) = d(i): d(i) = t
End If
Next i
数组元素d(1)到d(7)的值依次为“23,80,54,45,6,72,18”,经过该程序段“加工”后,数组元素d(1)到d(7)的值依次为( )
For i = 7 To 5 Step -1
k = i
For j = i - 1 To 1 Step -1
If d(j) > d(k) Then k = j
Next j
If k <> i Then
t = d(k): d(k) = d(i): d(i) = t
End If
Next i
数组元素d(1)到d(7)的值依次为“23,80,54,45,6,72,18”,经过该程序段“加工”后,数组元素d(1)到d(7)的值依次为( )
A.80,72,54,23,45,18,6 | B.80,72,54,45,6,23,18 |
C.23,18,6,45,54,72,80 | D.23,6,45,18,54,72,80 |
8.
使用Photoshop软件编辑某图片文件,“图层”面板的界面如图所示。
下列说法中正确的是( )

下列说法中正确的是( )
A.“背景”图层可直接删除,也可直接调整不透明度 |
B.“叶子”图层可设置与“枫叶红了”相同的图层样式 |
C.“枫叶红了”图层可直接添加滤镜效果 |
D.“文字”图层的文字可使用文字工具修改文字颜色 |
9.
在Flash中某对象的属性面板如图所示。

下列说法正确的是( )

下列说法正确的是( )
A.该对象可直接制作形状补间 | B.修改该实例的宽度,生成该实例的元件宽度也会改变 |
C.该对象不能设置Alpha值 | D.点击“交换”按钮,可使用库中其他元件 |
10.
班主任让小张同学制作班级军训风采展示的多媒体作品,小张先对采集素材所需的数码相机、摄像机,制作作品所需的软件等进行分析,这属于( )
A.应用需求分析 | B.创作需求分析 | C.媒体元素分解 | D.结构设计 |
12.
(加试题)将一个psd文件导出为bmp格式图片,导出设置如图所示。若导出后的bmp文件存储容量687.9KB,则该图片的尺寸约为( )


A.400*587像素 |
B.600*1172像素 |
C.1024*1374像素 |
D.1500*1878像素 |
2.填空题- (共5题)
13.
进制转换。将一个K进制数(K<=10)x转换成十进制数可采用如下方法:从右向左,依次取数x的各位数字,分别计算出该数从右边数起的第i位数字与k(i-1)的积,再将其累加,直到所有的数字取完为止。例如,将二进制数1101转换成十进制数的方法如下:
(1101)2=1×20+0×21+1×22+1×23=(13)10
下列Visual Basic程序的功能是将K进制数x转换成十进制数。程序运行界面如图所示,在文本框Text1中输入数制k,在文本框Text2中输入数x,单击"转换"按钮(Command1)后,在标签Label1中输出转换的结果。

(1)代码“Command1_Click()”中的Click是________(选填字母:
(2)实现上述功能的VB程序如下,请在划线①处填入合适代码,②处代码有误,请修改。
Private Sub Command1_Click()
Dim b As Long, i As Integer, k As Integer, x As String, t As String
b = 0
k = Val(Text1.Text)
x = Text2.Text
n = ①___________
i = 1
Do While i <= n
t = Val(Mid(x, n - i + 1, 1))
b = b + k ^ (i - 1) ‘②处修改___________________
i = i + 1
Loop
Label1.Caption = Str(k) + "进制数" + Text2.Text + "转换成十制数为" + Str(b)
End Sub
(3)运行该程序,在文本框Text1中输入5,文本框Text2中输入1423,单击“转换”按钮,则Label1中显示的值是_____________________。
(1101)2=1×20+0×21+1×22+1×23=(13)10
下列Visual Basic程序的功能是将K进制数x转换成十进制数。程序运行界面如图所示,在文本框Text1中输入数制k,在文本框Text2中输入数x,单击"转换"按钮(Command1)后,在标签Label1中输出转换的结果。

(1)代码“Command1_Click()”中的Click是________(选填字母:
A.属性名/ | B.事件名/ | C.方法名/ | D.事件处理过程) |
Private Sub Command1_Click()
Dim b As Long, i As Integer, k As Integer, x As String, t As String
b = 0
k = Val(Text1.Text)
x = Text2.Text
n = ①___________
i = 1
Do While i <= n
t = Val(Mid(x, n - i + 1, 1))
b = b + k ^ (i - 1) ‘②处修改___________________
i = i + 1
Loop
Label1.Caption = Str(k) + "进制数" + Text2.Text + "转换成十制数为" + Str(b)
End Sub
(3)运行该程序,在文本框Text1中输入5,文本框Text2中输入1423,单击“转换”按钮,则Label1中显示的值是_____________________。
14.
某人收集了2015年、2016年外国入境旅游人数统计数据,并用Excel软件进行数据处理,如图a所示。请回答下列问题:

(1)为计算2016年男、女比例,可在F7单元格中输入公式____________,设置为百分比格式,2位小数,然后利用自动填充完成F8单元格的计算。
(2)若要对按年龄分数据以“列C”为主要关键字,从高到低进行排序,则排序时选择的数据区域为___________。
(3)为了更直观地反映旅游人群的组成情况,创建了如图b所示的图表,该图表的数据区域为__________________。

(4)若设置E16:E20区域中数据格式为保留3位小数,是否会对图b中的图表效果产生影响_______________。(填“会”/“不会”)

(1)为计算2016年男、女比例,可在F7单元格中输入公式____________,设置为百分比格式,2位小数,然后利用自动填充完成F8单元格的计算。
(2)若要对按年龄分数据以“列C”为主要关键字,从高到低进行排序,则排序时选择的数据区域为___________。
(3)为了更直观地反映旅游人群的组成情况,创建了如图b所示的图表,该图表的数据区域为__________________。

(4)若设置E16:E20区域中数据格式为保留3位小数,是否会对图b中的图表效果产生影响_______________。(填“会”/“不会”)
15.
(加试题)小王准备编写一个依据技术学考、加试成绩进行赋分的VB程序,需对成绩进行预处理。预处理算法的基本思想:先从数据库中读取考生的考号、学考、加试成绩,然后进行排序,排序规则是按学考+加试的总分降序,若总分相同按加试成绩降序排列。再根据排序结果给出名次,同分同名,学考、加试成绩相同,则名次相同。
程序运行时,学生数据显示在列表框List1中,单击“计算”按钮Command1,计算结果显示在列表框List2中,程序运行界面如图所示。

实现上述功能的VB程序如下,请回答下列问题:
(1)如图所示,学生总数为1500人,排名前1%的学生可赋分为100,则共有______名学生可赋分为100。
(2)分析数据,可知存放学生成绩的数据表为_________。
(3)请在划线处填入合适的代码。
Dim kh(1 To 1500) As String '存放学生考号
Dim a(1 To 1500) As Integer '存放学考成绩
Dim b(1 To 1500) As Integer '存放加试成绩
Dim pm(1 To 1500) As Integer '存放排名
Dim n As Integer '存放总人数
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider = Microsoft.ace.OLEDB.12.0;DATA Source=" + App.Path + "\cj.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from stu_cj"
List1.AddItem " 考号 " & " 学考 " & "加试"
n = 0
Do While Not rs.EOF '到记录集最后一条记录后退出循环
n = n + 1 '计数
kh(n) = rs.Fields("考号")
a(n) = rs.Fields("学考成绩")
b(n) = rs.Fields("加试成绩")
List1.AddItem kh(n) & " " & a(n) & " " & b(n)
rs.MoveNext '移动到下一条记录
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, k As String
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) + b(j) > a(j - 1) + b(j - 1) Or ①_________________Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
t = b(j): b(j) = b(j - 1): b(j - 1) = t
k = kh(j): kh(j) = kh(j - 1): kh(j - 1) = k
End If
Next
Next
pm(1) = 1
For i = 2 To n
If a(i) = a(i - 1) And b(i) = b(i - 1) Then
②______________
Else
pm(i) = i
End If
Next
List2.Clear
List2.AddItem "排名 " & " 考号 " & " 学考 " & "加试"
For i = 1 To n
List2.AddItem pm(i) & " " & kh(i) & " " & a(i) & " " & b(i)
Next
End Sub
程序运行时,学生数据显示在列表框List1中,单击“计算”按钮Command1,计算结果显示在列表框List2中,程序运行界面如图所示。

实现上述功能的VB程序如下,请回答下列问题:
(1)如图所示,学生总数为1500人,排名前1%的学生可赋分为100,则共有______名学生可赋分为100。
(2)分析数据,可知存放学生成绩的数据表为_________。
(3)请在划线处填入合适的代码。
Dim kh(1 To 1500) As String '存放学生考号
Dim a(1 To 1500) As Integer '存放学考成绩
Dim b(1 To 1500) As Integer '存放加试成绩
Dim pm(1 To 1500) As Integer '存放排名
Dim n As Integer '存放总人数
Private Sub Form_Load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider = Microsoft.ace.OLEDB.12.0;DATA Source=" + App.Path + "\cj.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from stu_cj"
List1.AddItem " 考号 " & " 学考 " & "加试"
n = 0
Do While Not rs.EOF '到记录集最后一条记录后退出循环
n = n + 1 '计数
kh(n) = rs.Fields("考号")
a(n) = rs.Fields("学考成绩")
b(n) = rs.Fields("加试成绩")
List1.AddItem kh(n) & " " & a(n) & " " & b(n)
rs.MoveNext '移动到下一条记录
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, k As String
For i = 1 To n - 1
For j = n To i + 1 Step -1
If a(j) + b(j) > a(j - 1) + b(j - 1) Or ①_________________Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
t = b(j): b(j) = b(j - 1): b(j - 1) = t
k = kh(j): kh(j) = kh(j - 1): kh(j - 1) = k
End If
Next
Next
pm(1) = 1
For i = 2 To n
If a(i) = a(i - 1) And b(i) = b(i - 1) Then
②______________
Else
pm(i) = i
End If
Next
List2.Clear
List2.AddItem "排名 " & " 考号 " & " 学考 " & "加试"
For i = 1 To n
List2.AddItem pm(i) & " " & kh(i) & " " & a(i) & " " & b(i)
Next
End Sub
16.
(加试题)一个正整数(非素数)可以表示成它的质因子(“1”与其本身除外)的乘积。给出任一个整数N,求出它所有的质因子以及每个因子出现的次数,并显示乘积表达式。例如:整数120=2×2×2×3×5,所以它的质因子是2,3,5,次数分别是3次,1次,1次。
用Visual Basic编写一个程序求质因子,功能如下:在文本框Text1中输入一个数,单击“计算”命令按钮Command1,在列表框中显示该数的质因子及相应的次数,并显示乘积表达式。程序运行时的界面如图所示。

实现上述功能的VB程序如下,但划线处代码有错,请改正:
Private Sub Command1_Click()
Dim a(1 To 100) As Integer '数组a存放该整数的质因子出现的次数
Dim i As Integer, m As Integer, n As Integer, k As Integer, s As String
n = Val(Text1.Text)
m = n
k = Int(Sqr(n))
For i = 2 To k
a(i) = 0
Next i
For i = 2 To k
Do While n Mod i = 0
a(k) = a(k) + 1 '①
n = n \ i
If n = 1 Then s = s + Str(i) + " ×" Else s = s + Str(i): Exit For '②
Loop
Next i
List1.AddItem "质因子" & " " & "次数"
For i = 2 To k
If a(i) <> 0 Then List1.AddItem Str(i) & " " & Str(a(i))
Next i
List1.AddItem Str(m) + "=" + s
End Sub
加框①处应改为:________;加框②处应改为:________。
用Visual Basic编写一个程序求质因子,功能如下:在文本框Text1中输入一个数,单击“计算”命令按钮Command1,在列表框中显示该数的质因子及相应的次数,并显示乘积表达式。程序运行时的界面如图所示。

实现上述功能的VB程序如下,但划线处代码有错,请改正:
Private Sub Command1_Click()
Dim a(1 To 100) As Integer '数组a存放该整数的质因子出现的次数
Dim i As Integer, m As Integer, n As Integer, k As Integer, s As String
n = Val(Text1.Text)
m = n
k = Int(Sqr(n))
For i = 2 To k
a(i) = 0
Next i
For i = 2 To k
Do While n Mod i = 0
a(k) = a(k) + 1 '①
n = n \ i
If n = 1 Then s = s + Str(i) + " ×" Else s = s + Str(i): Exit For '②
Loop
Next i
List1.AddItem "质因子" & " " & "次数"
For i = 2 To k
If a(i) <> 0 Then List1.AddItem Str(i) & " " & Str(a(i))
Next i
List1.AddItem Str(m) + "=" + s
End Sub
加框①处应改为:________;加框②处应改为:________。
17.
某同学制作主题为“蜗牛兄弟”的多媒体作品。他首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作动画。请回答下列问题:
(1)如图a所示,“蜗牛”图层有一只蜗牛,若要“蜗牛1”图层中也要有“蜗牛”图层相同的蜗牛,下列操作可行的是__________(多选,填字母:
(2)如图b所示,月亮图层的第1帧和第30帧内容完全一致,结合表1的制作脚本,要实现“月亮”顺时针旋转60度,需将“月亮”图层的第30帧实例进行旋转,如图c所示,旋转角度输入_________度。


(3)如图d所示,元件“zzz”的动画类型为__________________(填字:动画补间 / 形状补间 / 逐帧动画),测试该元件时发现,最后一帧动画的节奏不能与前面的动作保持一致,解决这个问题的方法是_____________________________________________________________。

(4)根据表1的制作脚本,“继续”按钮设置的动作脚本为__________________________。
(5)如图e所示,为“继续”按钮的指针经过帧添加声音,声音在鼠标离开按钮前一直播放,则同步方式应设置为__________(选填:数据流/事件)
场景:night | 类别序号:2 |
进入方式:由“load”场景点击“播放”按钮进入 | |
呈现方式: 1.“月亮”悬挂在舞台左上角,顺时针旋转60度。 2.“继续”按钮出现在舞台下方中央,单击该按钮,从“end”场景第1帧开始播放。 3.其他动画略。 | 呈现顺序说明: 1.一开始出现背景、“月亮”动画。 2.最后出现“继续”按钮,并停止播放。 3.其他略。 |
表1

(1)如图a所示,“蜗牛”图层有一只蜗牛,若要“蜗牛1”图层中也要有“蜗牛”图层相同的蜗牛,下列操作可行的是__________(多选,填字母:
A.选中“蜗牛”图层,全选后拷贝,再选“蜗牛1”图层进行粘贴 / | B.选中“蜗牛1”图层,使用“仿制图章”工具对蜗牛进行仿制,得到“蜗牛”图层中的蜗牛 / | C.在图层面板中,拖拽“蜗牛”图层到“创建新图层” / | D.选中“蜗牛”图层,使用矩形选框工具选中蜗牛,执行拷贝,再选“蜗牛1”图层进行粘贴)。 |


(3)如图d所示,元件“zzz”的动画类型为__________________(填字:动画补间 / 形状补间 / 逐帧动画),测试该元件时发现,最后一帧动画的节奏不能与前面的动作保持一致,解决这个问题的方法是_____________________________________________________________。

(4)根据表1的制作脚本,“继续”按钮设置的动作脚本为__________________________。
(5)如图e所示,为“继续”按钮的指针经过帧添加声音,声音在鼠标离开按钮前一直播放,则同步方式应设置为__________(选填:数据流/事件)

试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17