1.简答题- (共1题)
1.
以下是2014 年全球前15 大集装箱港吞吐量排行榜,小明同学用Excel 软件对其数据进行处理和分析,如图1 所示,请回答以下问题:

(1)在C18 单元格中计算前15 名年吞吐量平均值,应在C18 单元格输入公式 ,
然后用填充柄向右填充。平均离差的计算方法是每个港口的年吞吐量减去平均值
(如2013 年深圳港的平均离差就是D5 单元格里的值减去D18 单元格里的值),
(2)为保证能使用自动填充柄进行自动填充,则F3 单元格里输入的公式为 。
(3)①若要做反映各港口2014年与2013年吞吐量对比图,应选择数据区域 ,
②选用以下哪种图最适合 。


(1)在C18 单元格中计算前15 名年吞吐量平均值,应在C18 单元格输入公式 ,
然后用填充柄向右填充。平均离差的计算方法是每个港口的年吞吐量减去平均值
(如2013 年深圳港的平均离差就是D5 单元格里的值减去D18 单元格里的值),
(2)为保证能使用自动填充柄进行自动填充,则F3 单元格里输入的公式为 。
(3)①若要做反映各港口2014年与2013年吞吐量对比图,应选择数据区域 ,
②选用以下哪种图最适合 。

2.选择题- (共10题)
3.
某Access数据表的设计视图如图所示:

下列对数据表的说法,错误的是( )

下列对数据表的说法,错误的是( )
A.该数据表的名称是“txl” |
B.该数据表共有7个字段 |
C.在该数据表中录入数据时,“编号”字段的值会自动产生,无需输入 |
D.在该数据表中录入数据时,“性别”字段可以输入文本“是”或者“否” |
5.
用 WinHex 软件观察“1月读书节”这几个字符的内码如图所示,则“10月读书节”这几个字符的内码应该是( )


A.40 D4 C2 B6 C1 CA E9 BD DA |
B.31 3A D4 C2 B6 C1 CA E9 BD DA |
C.3A D4 C2 B6 C1 CA E9 BD DA |
D.31 30 D4 C2 B6 C1 CA E9 BD DA |
7.
有如下VB 程序,该程序运行后在文本框Text1 中显示的结果是( )
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub
Dim i As Integer, j As Integer, s As Integer, n As Integer
n =" 3:" s = 0
For i =" 1" To n
For j =" 1" To i
s =" s" + j
Next j
Next i
Text1.Text = s
End Sub
A.3 | B.6 |
C.10 | D.18 |
9.
小明使用Photoshop 软件制作一幅主题为“在路上”的作品,界面如第7 题图所示。下列说法正确的是( )


A.“在路上”图层不能重新设置字体 |
B.“在路上”图层可以重新设置字体 |
C.“文字”图层不能重新设置字体 |
D.“树”图层与“车”图层交换后,图中树与车的位置同时交换 |
10.
小华利用GoldWave软件将60秒的双声道音频“诗朗诵.wav”和30秒的单声道“伴奏.wav”进行声音的合成操作,具体操作过程如下:
①将60秒双声道的音频文件“诗朗诵.wav”截去了后30秒
②删除“诗朗诵.wav”剩下部分右声道的音频
③将30秒的单声道“伴奏.wav”音频合成到“诗朗诵.wav”音频的右声道
④将“诗朗诵.wav”文件以原文件名存储,其他参数不变
下列关于“诗朗诵.wav”存储容量表述正确的是( )
①将60秒双声道的音频文件“诗朗诵.wav”截去了后30秒
②删除“诗朗诵.wav”剩下部分右声道的音频
③将30秒的单声道“伴奏.wav”音频合成到“诗朗诵.wav”音频的右声道
④将“诗朗诵.wav”文件以原文件名存储,其他参数不变
下列关于“诗朗诵.wav”存储容量表述正确的是( )
A.存储容量没有改变 | B.存储容量变为原来的1/2 |
C.存储容量变为原来的2倍 | D.存储容量变为原来的1/4 |
11.
下图是一个Flash动画的时间轴截图,下列说法正确的是( )


A.“文字”图层成功设置了补间动画 |
B.“音乐”图层中只有一个空白关键帧 |
C.播放“场景1”需要的时间约为30秒 |
D.“雪花”图层有30个关键帧 |
3.填空题- (共4题)
12.
以下程序实现倒计时功能,编辑界面如下。在Text1中输入数字后,点击“开始”按钮后,在Label1中显示从输入的值到0,每隔1秒中,数字减1。
根据题目要求,完成下面各题。

程序的代码代码,如下:
Dim t As Integer
Private Sub Command1_Click()
t = Val(①)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Text = Str(t) ②
If t =" 0" Then
Timer1.Enabled = False
MsgBox "时间到!"
Else
③ '数字t减1
End If
End Sub
(1)根据题目意思,应该把Timer1的Interval设置为 。
(2)在①处,应填上代码 。
(3)②所在行,运行时提示错误“未找到方法或者数据成员”,应改正为 。
(4)在③处,应填上代码 。
根据题目要求,完成下面各题。

程序的代码代码,如下:
Dim t As Integer
Private Sub Command1_Click()
t = Val(①)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Text = Str(t) ②
If t =" 0" Then
Timer1.Enabled = False
MsgBox "时间到!"
Else
③ '数字t减1
End If
End Sub
(1)根据题目意思,应该把Timer1的Interval设置为 。
(2)在①处,应填上代码 。
(3)②所在行,运行时提示错误“未找到方法或者数据成员”,应改正为 。
(4)在③处,应填上代码 。
13.
在一次学校的运动会上,高一女子100米决赛的成绩已出来,前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序,分别是(单位:秒)14.5,15.1,16.5,16.8,17.1,17.5,17.9,后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下:
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()
x = Val(Text2.Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3.text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1.Text)
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

程序如下:
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()

x = Val(Text2.Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3.text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1.Text)
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus ‘准备在text1 接受下一个数据
End If
End Sub
14.
(1)某省实施《中华人民共和国道路交通安全法》办法中规定,机动车驾驶人驾驶机动车超过规定时速但未超过百分之五十的,处于二百元罚款。超过百分之五十(未造成交通事故)的,处五百元罚款,每多超过五公里,加处二百元罚款,不足五公里的忽略不计,但最高罚款不得超过二千元。用于计算罚款额的Visual Basic程序如下:
Private Sub Command1_Click()
Dim v0 As Integer, v As Integer, x As Integer
v0 = Val(Text1.Text) 'v0 存储规定速度
v = Val(Text2.Text) 'v存储实际速度
If v > v0 And v <= 1.5 * v0 Then
x = 200
ElseIf v > 1.5 * v0 Then
x =" 500" + Int((v - 1.5 * v0) / 5) * 200
Else
x = 0
End If
If x > 2000 Then x = 2000
Label1.Caption = Str(x)
End Sub
(1)运行该程序时,在Text1文本框中输入50,在Text2文本框中输入60,点击Command1时,在Label1的Caption上显示的罚款金为 。
(2)如下一段Visual Basic程序:
Private Sub Command1_Click()
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val(Text1.text)
sum = 0
For i =" 1" To n
x = Int(Sqr(i))
If x * x =" i" Then sum =" sum" + x
Next i
Label1.Caption = Str(sum)
End Sub
在Text1框中输入10时,点击Command1时,Label1上显示的是 。
Private Sub Command1_Click()
Dim v0 As Integer, v As Integer, x As Integer
v0 = Val(Text1.Text) 'v0 存储规定速度
v = Val(Text2.Text) 'v存储实际速度
If v > v0 And v <= 1.5 * v0 Then
x = 200
ElseIf v > 1.5 * v0 Then
x =" 500" + Int((v - 1.5 * v0) / 5) * 200
Else
x = 0
End If
If x > 2000 Then x = 2000
Label1.Caption = Str(x)
End Sub
(1)运行该程序时,在Text1文本框中输入50,在Text2文本框中输入60,点击Command1时,在Label1的Caption上显示的罚款金为 。
(2)如下一段Visual Basic程序:
Private Sub Command1_Click()
Dim i As Integer,sum As Integer
Dim x As Integer,n as Integer
n=Val(Text1.text)
sum = 0
For i =" 1" To n
x = Int(Sqr(i))
If x * x =" i" Then sum =" sum" + x
Next i
Label1.Caption = Str(sum)
End Sub
在Text1框中输入10时,点击Command1时,Label1上显示的是 。
15.
小明用Flash 软件制作了一个关于甲流的动画。在制作过程中

(1)小明将背景图导入到Flash 中后发现图片大小和舞台大小不一致,如图1,小明尝试着调整图片的大小, 发现调整后图片会变形, 效果并不理想, 有效解决的方法有 。

(2)在制作过程中,小明通过测试发现动画背景闪一下就没有了,根据如图2,试分析其原因: ,解决方法为: 。
(3)小明试图将库中的音乐文件拖放到“ 音乐层” 图层中, 却不成功, 试分析其原因:_______________________,解决的方法为 。
(4)点击“返回”按钮可以跳回到第一帧并重新开始播放,该按钮应该添加的脚本语言内容是on(release){ (1);}
(5)上图(图3)显示作品的库,该库中共有个 元件。
(6)“预防甲流”场景最大帧数为36 帧,播放时长为 秒。

(1)小明将背景图导入到Flash 中后发现图片大小和舞台大小不一致,如图1,小明尝试着调整图片的大小, 发现调整后图片会变形, 效果并不理想, 有效解决的方法有 。

(2)在制作过程中,小明通过测试发现动画背景闪一下就没有了,根据如图2,试分析其原因: ,解决方法为: 。
(3)小明试图将库中的音乐文件拖放到“ 音乐层” 图层中, 却不成功, 试分析其原因:_______________________,解决的方法为 。
(4)点击“返回”按钮可以跳回到第一帧并重新开始播放,该按钮应该添加的脚本语言内容是on(release){ (1);}
(5)上图(图3)显示作品的库,该库中共有个 元件。
(6)“预防甲流”场景最大帧数为36 帧,播放时长为 秒。
试卷分析
-
【1】题量占比
简答题:(1道)
选择题:(10道)
填空题:(4道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:15