1.简答题- (共1题)
1.
编写VB程序,实现如下功能:在文本框Text1中输入一个整数,单击“查找”按钮,找出该整数的全部的连续整数固定和,并将它们显示在列表框List1中。所谓一个数n的连续整数固定和,就是指存在a1,a2,…,an,其中ai+1比ai大1,使得a1+a2+…+an=n。这样a1,a2,…,an称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组,运行界面如图所示,实现上述功能的VB代码如下,但加框处代码有错,请改正。

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i =" 1" To n ' ①
j =" i" - 1
Do While sum <=" n" ' ②
j =" j" + 1
sum =" sum" + j
Loop
If sum =" n" Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub

Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i =" 1" To n ' ①
j =" i" - 1
Do While sum <=" n" ' ②
j =" j" + 1
sum =" sum" + j
Loop
If sum =" n" Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub
2.选择题- (共12题)
2.
下列关于信息的说法中,不正确的是
A.信息无处不在,我们每时每刻都离不开信息 |
B.经过加工、处理,信息往往可以从一种形态转换为另一种形态 |
C.要使用计算机进行处理,必须先对信息进行编码,使其转换成二进制代码 |
D.信息必须依附于某种载体,所以它不可以脱离它所反映的事物被存储、保存和传播 |
4.
关于Access数据表的操作,下列说法中正确的是
A.任何时候都不可以将“自动编号”类型的字段修改为“数字”类型 |
B.一旦在数据表中输入数据后,就不能再修改数据表的名称 |
C.删除数据表中的某一条记录,该数据表的字段数也会减少 |
D.不可以在“是/否”类型的字段中输入字符“是” |
5.
下列应用中使用了光学字符识别(OCR)技术的是
A.使用手机的手写输入功能编辑短信内容 |
B.某手机App能够根据用户的语音指令自动执行相应的操作 |
C.某停车场管理系统在车辆进入时可以自动识别并记录车牌号 |
D.用手机摄像头拍下某旅游景点的名家题字照片,并发布到朋友圈 |
6.
某VB程序功能如下:输入正整数n,单击命令按钮Command1后,则会生成一串有规律的数字序列,形式为“n n-1 n-2 … 3 2 1 2 3 … n-2 n-1 n”。例如n=8时,生成的数字序列如图所示。代码如下:

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i =" 1" To 2 * n - 1
If i <=" n" Then ① Else ②
Next i
Label1.Caption = s
End Sub
为实现以上功能,划线①②处应分别填写

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i =" 1" To 2 * n - 1
If i <=" n" Then ① Else ②
Next i
Label1.Caption = s
End Sub
为实现以上功能,划线①②处应分别填写
A.①s =" s" & Str(n - i + 1) ②s =" s" & Str(i - n + 1) |
B.①s =" Str(n" - i + 1) ②s =" Str(i" - n + 1) |
C.①s =" s" & Str(i - n + 1) ②s =" s" & Str(n - i + 1) |
D.①s =" Str(i" - n + 1) ②s =" Str(n" - i + 1) |
8.
某对分査找算法的VB程序段如下:
i=" 1" : j =9 : n ="0"
key="Val(" Textl.Text)
Do While i <= j[来源:学科网ZXXK]
m="(i" + j) \ 2
If key = d(m) Then
Exit Do

j=" m" - 1
Else
i=m+1
End If
Loop
方框中的正确代码应为
i=" 1" : j =9 : n ="0"
key="Val(" Textl.Text)
Do While i <= j[来源:学科网ZXXK]
m="(i" + j) \ 2
If key = d(m) Then
Exit Do

j=" m" - 1
Else
i=m+1
End If
Loop
方框中的正确代码应为
A.End If | B.If key < d(m) Then |
C.ElseIf key < d(m) Then | D.If key > d(m) Then |
12.
使用Photoshop软件对“中国印象.psd”进行处理,编辑界面如下图所示。


下列说法中正确的是


下列说法中正确的是
A.“茶”图层没有设置图层样式,因而可以使用“文字工具”对其中的文字进行修改 |
B.“茶壶”图层的图层样式不可以拷贝并粘贴到“茶”图层 |
C.交换“茶”图层和“墨迹”图层的位置,不影响作品的呈现效果 |
D.对“茶壶”图层设置了名为“效果”和“投影”的图层样式 |
13.
某Flash作品的部分时间轴界面如图所示。

下列说法中正确的是

下列说法中正确的是
A.action图层中没有任何关键帧,所以删除该图层肯定不会影响动画效果 |
B.当前状态下,无法移动“背景”图层中的对象在舞台上的位置 |
C.“钟表”图层位于“走路”图层的上方,所以“钟表”图层会遮挡“走路”图层的动画内容 |
D.将帧频改为6.0fps,则完整播放当前场景所需要的时间将缩短为原来的一半 |
3.填空题- (共3题)
14.
编写VB程序,实现如下功能:在文本框Text1中输入整数n(1≤n≤10),单击“生成矩阵”按钮Command1,生成n2个10到99之间(包含10和99)的随机整数,并以n行、n列矩阵的形式显示在列表框List1中,再单击“对角线”按钮Command2,则在标签Label1中输出该矩阵对角线(左上角到右下角)上的数值,运行界面如图所示,程序代码如下。
(1)要使文本框Text1上显示的默认文本由“8”改为“10”,可在其属性窗口中将________属性的属性值改为“10”。

(2)为了实现上述功能,请在划线处填入合适的代码。
Const MAXNUM = 100
Dim i As Integer, n As Integer
Dim a(1 To MAXNUM ^ 2) As Integer
Private Sub Command1_Click()
Dim line As String
n = Val(Text1.Text)
line = ""
List1.Clear
Randomize
For i = 1 To n ^ 2
a(i) = ①
If i > 1 And i Mod n =" 1" Then
List1.AddItem line
line = Str(a(i))
Else
line = ②
End If
Next i
List1.AddItem line
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
For i = 1 to ③
Label1.Caption =" Label1.Caption" & Str(a(i + (i - 1) * n))
Next i
End Sub
(1)要使文本框Text1上显示的默认文本由“8”改为“10”,可在其属性窗口中将________属性的属性值改为“10”。

(2)为了实现上述功能,请在划线处填入合适的代码。
Const MAXNUM = 100
Dim i As Integer, n As Integer
Dim a(1 To MAXNUM ^ 2) As Integer
Private Sub Command1_Click()
Dim line As String
n = Val(Text1.Text)
line = ""
List1.Clear
Randomize
For i = 1 To n ^ 2
a(i) = ①
If i > 1 And i Mod n =" 1" Then
List1.AddItem line
line = Str(a(i))
Else
line = ②
End If
Next i
List1.AddItem line
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
For i = 1 to ③
Label1.Caption =" Label1.Caption" & Str(a(i + (i - 1) * n))
Next i
End Sub
15.
小王收集了2016年第三季度浙江省各地区工业增加值数据,并用Excel软件进行数据处理,如图a所示。请回答下列问题:

图a
(1)区域B14:G14的数据是通过公式计算得到的,在B14单元格输入公式时应用了AVERAGE函数,并用自动填充功能完成区域C14:G14的计算,则F14单元格中的公式___。
(2)若要对各地区数据以“8月”为关键字按降序进行排序,则排序时选择的数据区域是_。
(3)根据图a中数据制作的图表如图b所示,创建该图表的数据区域是 _______________。

图b
(4)将区域A2: G13的数倨复制到新工作表并进行筛选操作,设置“9月”和“9月同比±%”的筛选方式如图c和图d所示,则按此设置筛选出的地区有 个。

图c 图d

图a
(1)区域B14:G14的数据是通过公式计算得到的,在B14单元格输入公式时应用了AVERAGE函数,并用自动填充功能完成区域C14:G14的计算,则F14单元格中的公式___。
(2)若要对各地区数据以“8月”为关键字按降序进行排序,则排序时选择的数据区域是_。
(3)根据图a中数据制作的图表如图b所示,创建该图表的数据区域是 _______________。

图b
(4)将区域A2: G13的数倨复制到新工作表并进行筛选操作,设置“9月”和“9月同比±%”的筛选方式如图c和图d所示,则按此设置筛选出的地区有 个。

图c 图d
16.
使用Flash软件创作有关“秋”的多媒体作品,部分界面如图所示。请回答下列问题:
(1)在制作作品之前,小李要先确定作品主要面向哪些用户,用户的计算机应用水平如何,作品一般在什么场合使用,该分析过程属于多媒体创作中的 (单选,填字母:A.应用需求分析 / B.创作需求分析)。
(2)根据小李的设计,“文字1”由小变大,出现在舞台中间偏上位置。已知该动画舞台大小为600×400像素,则“文字1”实例在第11帧时的坐标可能是_________。(单选,填字母:A/B/C/D)

(3)根据小李的设计,“main”场景开始播放后,经过约____(填:整数)秒,舞台中开始出现“文字2”动画。
(4)要实现该场景播放结束后,跳转到第1帧继续播放,应在“云”图层的第85帧添加的动作脚本是_______________________________________。
(5)小李在测试影片时发现动画在播放到最后,“背景”图案总是会突然消失。要解决这一问题,可在“背景”图层的第85帧上右击,然后在快捷菜单中选择________(单选,填字母:A.删除帧/B.清除帧/
场景:main | 类别序号:2 | 进入方式:由“load”场景单击“播放”按钮进入 |
呈现方式: 1.“文字1”和“文字2”均由小变大,出现在舞台中间偏上位置。 2.其他动画略。 | 呈现顺序说明: 1.一开始出现背景图片、“太阳”、“云”、“文字1”、“枫叶1”和“枫叶2”的动画,再出现“文字2”和“蜻蜓”的动画。 2.该场景播放结束后,跳转到第1帧继续播放。 |

(2)根据小李的设计,“文字1”由小变大,出现在舞台中间偏上位置。已知该动画舞台大小为600×400像素,则“文字1”实例在第11帧时的坐标可能是_________。(单选,填字母:A/B/C/D)

(3)根据小李的设计,“main”场景开始播放后,经过约____(填:整数)秒,舞台中开始出现“文字2”动画。
(4)要实现该场景播放结束后,跳转到第1帧继续播放,应在“云”图层的第85帧添加的动作脚本是_______________________________________。
(5)小李在测试影片时发现动画在播放到最后,“背景”图案总是会突然消失。要解决这一问题,可在“背景”图层的第85帧上右击,然后在快捷菜单中选择________(单选,填字母:A.删除帧/B.清除帧/
A.清除关键帧/ | B.转换为关键帧)。 |
试卷分析
-
【1】题量占比
简答题:(1道)
选择题:(12道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:16