1.选择题- (共12题)
1.
下列有关信息和信息技术的说法不正确的是( )
A.多媒体技术和网络技术是信息社会中极为重要的信息表达技术 |
B.古代没有电脑、没有网络,也没有信息技术 |
C.同一种信息可以有多种表现形式,信息是看不见摸不着的 |
D.智能手机为用户提供了设置屏幕锁的功能,其主要目的是为了提升手机信息的安全性 |
3.
小洋使用Word软件编辑文档时的部分截图如图所示。则下列说法不正确的是( )


A.“算法”是用户名为W4的批注对象 |
B.共有5处修订 |
C.若全部接受图中所示的修订内容,则最后一句话的文字将变为:“这个系统从一个对围棋游戏完全没有任何知识的神经网络开始。” |
D.共有4处批注 |
4.
利用 Access 软件创建了关于某时刻电影实时票房的数据表,如图所示。

下列说法不正确的是( )

下列说法不正确的是( )
A.该数据库文件名称为“电影票房.accdb” |
B.将当前数据表导出为excel表,生成的excel表共有 22 行,6列 |
C.设计数据表时,“票房占比”字段数据类型可以设置为数字 |
D.“排名”字段内容前面的“0”手工删除以后就可以将该字段类型改为自动编号 |
5.
(加试题)某程序的部分代码如下:
Dim a(1 to 8) As Integer
Dim i As Integer ,k As Integer,key As Integer
Key=Val(Tet1.Text)
For i=1 to 8
If a(i)= key Then k=i
Next i
数组元素a(1)到a(8)的数据依次为“6、68、9、25、56、67、25、11”,查找元素key为25,则程序执行后,变量k的值为( )
Dim a(1 to 8) As Integer
Dim i As Integer ,k As Integer,key As Integer
Key=Val(Tet1.Text)
For i=1 to 8
If a(i)= key Then k=i
Next i
数组元素a(1)到a(8)的数据依次为“6、68、9、25、56、67、25、11”,查找元素key为25,则程序执行后,变量k的值为( )
A.1 | B.4 | C.7 | D.8 |
7.
(加试题)以下一段程序其功能是对数组a(下标范围为1 to n)中的数据进行升序排序,划线处应填入的正确语句是( )
For i =
For j = 2 To i
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j -1): a(j -1) = k
End If
Next j
Next i
For i =
For j = 2 To i
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j -1): a(j -1) = k
End If
Next j
Next i
A.n to 2 Step -1 | B.2 to n | C.n-1 to 1 Step -1 | D.1 to n -1 |
8.
使用Photoshop软件处理“青山绿水.psd”文件,部分编辑界面如图所示。下列说法正确的是( )


A.当前选区位于“鸟”图层中 |
B.“花”图层不可见的原因是它的不透明度为0% |
C.将“背景”图层中的图像进行自由变换缩小操作,会改变画布大小 |
D.将该文件存储为“青山绿水.jpg”,“花”和“柳树”的图像均不可见 |
9.
《桃花源记》中有这么一句:“山有小口,仿佛若有光”。现在要在“光”图层的第15帧处做出一闪而过的光的效果,时间轴如图所示:

需先选中“光”图层的第15帧执行( )操作后,再把图形元件“微光”放入第15帧。

需先选中“光”图层的第15帧执行( )操作后,再把图形元件“微光”放入第15帧。
A.清除帧 | B.插入关键帧 | C.清除关键帧 | D.插入空白关键帧 |
10.
(加试题)某bmp格式的图像用PhotoShop打开后的界面如图所示。已知该图像宽度为1024像素,高度为768像素,则该图像的大小约为( )


A.2.25MB | B.768KB | C.536KB | D.1.56MB |
12.
使用GoldWave软件编辑音频素材,部分操作界面如图所示。

下列说法正确的是( )

下列说法正确的是( )
A.当前音频文件执行“剪裁”操作后保存,音频时长将变为10秒 |
B.当前音频文件执行“删除”操作后,音频时长变为30秒 |
C.当前音频文件执行“删除”操作后,再插入10秒静音,音频时长仍为40秒 |
D.1411kbps的含义是该音频的播放速率为每秒钟播放1411k位 |
2.填空题- (共5题)
13.
某公司收集了某网站在浙江省部分地区部分类别2月交易情况的相关数据,并用Excel软件进行数据处理,如图所示,请回答下列问题:

(1)若要计算每个地区的成交金额占总成交金额的百分比(%),可以在F4单元格中输入公式_____________ ,然后F5∶F18区域用自动填充功能完成。 (提示:占总成交金额百分比(%)=成交金额(万元)/总和*100)
(2)通过观察可知,该工作表已经经过排序。排序方法是:主要关键字是美妆,次序为降序,次要关键字是_____________,次序为_____________。
(3)仔细观察题下图,该图表制作时所选择的数据区域为_________________。

(1)若要计算每个地区的成交金额占总成交金额的百分比(%),可以在F4单元格中输入公式_____________ ,然后F5∶F18区域用自动填充功能完成。 (提示:占总成交金额百分比(%)=成交金额(万元)/总和*100)
(2)通过观察可知,该工作表已经经过排序。排序方法是:主要关键字是美妆,次序为降序,次要关键字是_____________,次序为_____________。
(3)仔细观察题下图,该图表制作时所选择的数据区域为_________________。

14.
用VB编写求句子中最长单词的程序。输入要求:句子以“.”结束;单词之间用空格分隔,单词没有缩写形式和其它特殊形式。
运行界面如图所示,程序功能:在文本框Text1中输入待统计的句子,单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。

(1) 观察程序代码,可知“统计”按钮的对象名为_______。(单选,填字母:
(2)根据题意将下列程序补充完整。
Private Sub Tj_Click()
Dim i As Integer, k As Integer
Dim s As String, ch As String
Dim max As Integer '存储句子中最长单词的长度
Dim ss As String '存储句子中最长的单词
s = Text1.Text
i = 1: k = 0: max = 0
ch = ""
Do While ch <> "." Or i <= Len(s)
ch = Mid(s, i, 1)
If ch <> " " And ch <> "." Then
___________
Else
k = 0
End If
If __________ Then
max = k
ss = ____________
End If
i = i + 1
Loop
Text2.Text = ss
Text3.Text = Str(max)
End Sub
运行界面如图所示,程序功能:在文本框Text1中输入待统计的句子,单击“统计”按钮Command1,将结果显示在文本框Text2和Text3中。

(1) 观察程序代码,可知“统计”按钮的对象名为_______。(单选,填字母:
A.统计 | B.TextH | C.Command1 | D.Tj) |
Private Sub Tj_Click()
Dim i As Integer, k As Integer
Dim s As String, ch As String
Dim max As Integer '存储句子中最长单词的长度
Dim ss As String '存储句子中最长的单词
s = Text1.Text
i = 1: k = 0: max = 0
ch = ""
Do While ch <> "." Or i <= Len(s)
ch = Mid(s, i, 1)
If ch <> " " And ch <> "." Then
___________
Else
k = 0
End If
If __________ Then
max = k
ss = ____________
End If
i = i + 1
Loop
Text2.Text = ss
Text3.Text = Str(max)
End Sub
15.
(加试题)编写“素数查找”程序,实现如下功能:单击“生成”按钮,随机生成50个150至200(包括150和200)之间的正整数,显示在下方,每行显示10个,共5行。单击“筛选“按钮, 从上面50个数中筛选出是素数的数,重复的只显示一次。程序运行界面如图所示。

请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Label3.Caption = ""
For i = 1 To 50
a(i) =___________________
If i Mod 10 = 0 Then
Label3.Caption = Label3.Caption + CStr(a(i)) + vbCrLf '换行
Else
Label3.Caption = Label3.Caption + CStr(a(i)) + " "
End If
Next i
End Sub
Private Sub Command2_Click()
Label4.Caption = ""
n = 0
For i = 1 To 50
For k = 2 To a(i) - 1
If __________ Then Exit For
Next k
If k = a(i) Then
n = n + 1
If n = 1 Then b(n) = a(i)
For j = 1 To n - 1
If b(j) = a(i) Then ___________: Exit For
If j = n - 1 Then b(n) = a(i)
Next j
End If
Next i
For j = 1 To n
Label4.Caption = Label4.Caption + ________+ " "
Next j

请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Label3.Caption = ""
For i = 1 To 50
a(i) =___________________
If i Mod 10 = 0 Then
Label3.Caption = Label3.Caption + CStr(a(i)) + vbCrLf '换行
Else
Label3.Caption = Label3.Caption + CStr(a(i)) + " "
End If
Next i
End Sub
Private Sub Command2_Click()
Label4.Caption = ""
n = 0
For i = 1 To 50
For k = 2 To a(i) - 1
If __________ Then Exit For
Next k
If k = a(i) Then
n = n + 1
If n = 1 Then b(n) = a(i)
For j = 1 To n - 1
If b(j) = a(i) Then ___________: Exit For
If j = n - 1 Then b(n) = a(i)
Next j
End If
Next i
For j = 1 To n
Label4.Caption = Label4.Caption + ________+ " "
Next j
16.
(加试题)下列VB程序的功能是:程序运行时,单击命令按钮Commandl后,产生10个[1,999]范围内互不相同的随机整数,依次显示在列表框List1中,然后将它们按从小到大的顺序排序,排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数,函数f(x)用于判断随机整数x与已生成的整数是否有重复,若有重复则返回True,否则返回False。
(1)虚线框内程序段所采用的排序算法名称是__________。(填:冒泡排序 / 选择排序)
(2)在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer,j As Integer
Dim x As Integer,k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
①________ ′产生[1,999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str( a(n))
End If
Loop
For i=1 To 9 ′进行排序
For j=10 To i+1 step -1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1 To 10
②___________
Next i
End Sub
数组a用于存储产生的10个随机整数,函数f(x)用于判断随机整数x与已生成的整数是否有重复,若有重复则返回True,否则返回False。
(1)虚线框内程序段所采用的排序算法名称是__________。(填:冒泡排序 / 选择排序)
(2)在程序①和②划线处,填入适当的语句或表达式,把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer ′n用于统计已经产生的随机整数个数
Dim i As Integer,j As Integer
Dim x As Integer,k As Integer
Randomize ′初始化Rnd函数
n=0
List1.Clear ′清除列表框中内容
List2.Clear
Do While n<10
①________ ′产生[1,999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str( a(n))
End If
Loop
For i=1 To 9 ′进行排序
For j=10 To i+1 step -1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
For i=1 To 10
②___________
Next i
End Sub
17.
某同学利用photoshop软件处理图像素材,再利用flash软件制作课程教学宣传动画。“main”场景的制作脚本如下:
(1)如下图在使用时,发现了右下角有”pm0047-6676jy”字样,可采取的方法有________(填字母:A.用选框工具选择”pm0047-6676jy”字样所在区域,利用填充功能实现“内容识别”操作;B.用魔棒选择”pm0047-6676jy”字样,删除;C.用仿制图章工具,将周边像素仿制过来;

(2) flash操作软件界面下图所示,根据脚本制作,场景播放结束后动画停止,可以在按钮图层的最后一帧设置动作为_______________

(3)测试时,发现文字图层内的动画效果随着场景停止而停止了,不符合脚本要求,如何解决______________________________________________________
(4)动画在第60帧停止,而声音要求重复播放,以下同步方式可以设置为________(单选、填字母:A.数据流、B.停止、C.开始)
场景名:main | 进入方式:由用户双击动画文件进入 |
呈现方式: ①背景图片一开始就显示,背景音乐随后自动循环播放; ②“欢迎你”文字从左侧舞台外,2秒后移出右侧舞台,并重复播放 ③“相关课程”按钮位于右下角,点击后跳转到“课程”场景第1帧并继续播放。 | 呈现顺序说明: ①背景图片出现,音乐在1秒后播放; ②文字从左往右,再从右往左,重复进行 ③播放一趟后,动画停止在第60帧,“欢迎你”动画继续播放 ④最后出现“进入”按钮 |
(1)如下图在使用时,发现了右下角有”pm0047-6676jy”字样,可采取的方法有________(填字母:A.用选框工具选择”pm0047-6676jy”字样所在区域,利用填充功能实现“内容识别”操作;B.用魔棒选择”pm0047-6676jy”字样,删除;C.用仿制图章工具,将周边像素仿制过来;
A.用套索工具选择”pm0047-6676jy”字样,删除。) |

(2) flash操作软件界面下图所示,根据脚本制作,场景播放结束后动画停止,可以在按钮图层的最后一帧设置动作为_______________

(3)测试时,发现文字图层内的动画效果随着场景停止而停止了,不符合脚本要求,如何解决______________________________________________________
(4)动画在第60帧停止,而声音要求重复播放,以下同步方式可以设置为________(单选、填字母:A.数据流、B.停止、C.开始)
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(5道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17