1.选择题- (共12题)
2.
下列有关信息的说法中正确的是
A.信息可以重复使用,也可以传递和共享,但是会产生损耗 |
B.数字、英文字母、图像、音频、视频等在计算机内部都采用二进制代码存储 |
C.信息作为一种社会资源自古就有,而信息技术是人类进入信息社会后才出现的 |
D.信息可以脱离它所反映的事物被存储、保存和传播,即有些信息可以脱离载体而存在 |
3.
使用GltraEdit软件观察字符“(Z20名校联盟)”的内码,部分界面如图所示。

下列说法中正确的是

下列说法中正确的是
A.字符“(”的内码占两个字节 |
B.字符“联”内码值的二进制表示为11010001 10101010 |
C.图中有5个ASCⅡ字符,其中字符“2”内码值的十六进制表示为32 |
D.字符“Y”内码值的十六进制表示为50 |
4.
使用Access软件创建的数据表,部分界面如图所示。下列说法中正确的是


A.当前数据库文件名是“原始数据.accdb” |
B.当前记录是第25条记录,共有278条记录 |
C.当前状态下,可以把“电脑”字段的数据类型修改为“是/否”类型 |
D.当前状态下,可以把数据表“问卷表”重命名为“问卷数据” |
5.
某同学使用搜索引擎查找荷花素材图片,部分界面如图所示:

下列说法中正确的是

下列说法中正确的是
A.搜索引擎检索信息是在其索引数据库中进行检索,所以搜索引擎网站是一种数据库管理系统 |
B.单击图中“1”处的“![]() |
C.当前使用的工具为IE浏览器,它的功能主要是解释执行HTTP源代码 |
D.若要保存当前网页上的所有图片,可在保存类型中选择“网页,仅HTML(*.htm,*.html)” |
6.
“如果a,b,c相等,那么y=a+b+c”,能实现该功能的VB语句是
A.If a=b And b=c Then y=a+b+c |
B.If a=b=c Then y=a+b+c |
C.If a=b Or b=c Or a=c Then y=a+b+c |
D.Ifa-b=b-c Then y=a+b+c |
8.
反转字符串,如输入字符串为“123ABCD",则输出字符串为“DCBA321"。部分程序如下所示,划线处的正确语句是
s=Text1.Text:n=Len(s)
’按s中字符顺序从左到右依次存入数组a中,代码略
i=1
Do While i<n
t=a(i)
For j=i+1 To n
①
Next j
a(j-1)=t
②
Loop
For i=1 To Len(s)
Text2.Text=Tcxt2.Text+a(i)
Next i
s=Text1.Text:n=Len(s)
’按s中字符顺序从左到右依次存入数组a中,代码略
i=1
Do While i<n
t=a(i)
For j=i+1 To n
①
Next j
a(j-1)=t
②
Loop
For i=1 To Len(s)
Text2.Text=Tcxt2.Text+a(i)
Next i
A.①a(j+1)=a(j) ②n=n-1 | B.①a(j)=a(j+1) ②n=n+1 |
C.①a(j-1)=a(j) ②n=n-1 | D.①a(j-1)=a(j) ②n=n+1 |
9.
下列程序段运行后,数组元素a(3)的值是
a(1)=55:a(2)=44:a(3)=11
a(4)=22:a(5)=33
For i=1 To 2
For j=1 To 4-i
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(1)=55:a(2)=44:a(3)=11
a(4)=22:a(5)=33
For i=1 To 2
For j=1 To 4-i
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.44 | B.33 | C.22 | D.11 |
10.
若在文本框Text1、Text2,Text3中分别输入2,5,6,下列程序段运行后,标签Labe12中显示的内容是
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
A=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)
Label2.Caption=Str(fx(a,b,c))
End Sub
Function fx(x As Integer,y As Integer,z As Integer)As Integer
If x<y Then fx=z
Ifx>y Then fx=y Else fx=x
End Function
Private Sub Command1_Click()
Dim a As Integer,b As Integer,c As Integer
A=Val(Text1.Text):b=Val(Text2.Text):c=Val(Text3.Text)
Label2.Caption=Str(fx(a,b,c))
End Sub
Function fx(x As Integer,y As Integer,z As Integer)As Integer
If x<y Then fx=z
Ifx>y Then fx=y Else fx=x
End Function
A.2 | B.5 | C.6 | D.0 |
11.
有如下VB程序段:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="provider=Microsoft.AC
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="provider=Microsoft.AC
A.OLEDB.12.0;data sourc=" +App.Path+"\socre.accdb" Conn.Open Set rs.ActiveConnection=conn Rs. Open"Selec*from cj" n=1 Do While Not rs.EOF Score(n)=rs.fields("成绩"):Name(n)=rs.fields("姓名") n=n+1:rs.MoveNext Loop 下列说法中不正确的是 |
B.定义的ADO的Connection对象实例名称是“conn” B.连接的数据库文件名是“\socre.accdb” |
C.查询的数据表名是“cj” |
D.该程序段运行后,可知所查询的数据表共有n-1条记录 |
12.
使用GoldWave软件打开某音频文件,部分界面如图所示。下列说法中正确的是


A.从图中可知,该音频文件为Wave格式,采样频率为11025kHz,量化位数为32 |
B.在当前状态下,选择“左声道”后执行“静音”操作,则左声道的第0至10秒变为静音 |
C.在当前状态下,执行“更改音量”操作将音量降低为原来的1/2,并按原参数保存后,该音频文件的容量变为原来的1/2 |
D.在当前状态下,连续执行两次“删除”操作,该音频的时长不变 |
2.填空题- (共4题)
13.
小王收集了2017年浙江省部分城市日照时间的有关数据,并使用EXCEL软件进行数据处理,如下面图a所示,请回答下列问题:

(1)若要对金丽衢平原的数据按“年平均”进行降序排序,则排序时应选择的数据区域是:______,在排序对话框中。选项“数据包含标题”前面是否需要打勾________(选填:需要/不需要)

(2)根据图a中的数据制作了如图c所示的图表,创建该图表的数据区域是:_________

(3)在图a区域A3:014中,对2017年的“年平均”数据进行筛选操作,筛选设置如图d所示,则筛选后,图c的图表有无变化________(选填:有/无)

(1)若要对金丽衢平原的数据按“年平均”进行降序排序,则排序时应选择的数据区域是:______,在排序对话框中。选项“数据包含标题”前面是否需要打勾________(选填:需要/不需要)

(2)根据图a中的数据制作了如图c所示的图表,创建该图表的数据区域是:_________

(3)在图a区域A3:014中,对2017年的“年平均”数据进行筛选操作,筛选设置如图d所示,则筛选后,图c的图表有无变化________(选填:有/无)
14.
给定一个数组a,有n个元素(1≤n≤100),有以下两种操作:
操作1:在文本框中分别输入L、R、T(1≤L≤R≤n),对数组下标为L到R之内(包含L和R)的每个元素增加T(1≤T≤100)
操作2:在文本框中输入K(1≤K≤n),在标签中输出a(K)的值。
为了提高算法的效率,小明设计了如下算法,以n=10为例,如下表所示。
①将n个元素依次分成
段(
表示对
石向下取整,每段的元素个数为
,若最后有不足
个元素,则自成一段。给每段设置一个标记,初始值都为0,如下表所示。
②对于操作1,输入的L、R属于同一段,则直接对a(L to R)的每个元素加上T。如输入4,6,3,则第2段中的每个数加上3,操作后如下表所示。
③对于操作1,若输入的L,R不属于同一段,则对元素a(L)所在段中从a(L)开始到该段最后一个元素为止的每个元素加上T,并对元素a(R)所在段中从该段第一个元素开始到a(R)为止的每个元素加上T,对a(L)元素所在段的下一段开始到a(R)元素所在段的前一段为止的每个段标记值增加T,这些段中的元素保持不变。如在上表的其础上再输入1,8,2,则第1段的3个数和第3段中的前2个数都加上2,第2段的段标记位增加2,如下表所示。
④对于操作2,若输入K的值为5,则输出a(5)的值,a(5)的值为该数组元素的值+段标记值,即a(5)=12。程序运行界面如下。请回答下列问题:
(1)若数组元素为“3,2,6,8,7,9,3,4,7,9,6”,依次进行以下3次操作后第3段的标记值为__________

操作1:依次输入1,11,1
操作1:依次输入7,9,2
操作2:输入8
(2)请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Dim f(1 T on) As Integer 'f数组元素依次表示每段的标记值
Dim bk As Integer 'bk表示每段的元素个数
Function BL(x As Integer) As Integer 'BL函数返回数组元素a(x)的段编号
BL=________________
End Function
Private Sub Form_Load()
’读取数据,并存储到数组a中,代码略
bk=Int(Sgr(n))
End Sub
Private Sub Command1_Click()
Dim L As Integer,R As Integer,T As Integer,i As Integer
L=Val(Text1.Text):R=Val(Text2.Text):T=Val(Text3.Text)
If BL(L)=BL(R) Then
Next i
a(i)= a(i)+T
Next i
For i=BL(L)+1 To BL(R)-1
f(i)= f(i)+T
Next i
For i=(BL(R)-1)* bk+1 To R
a(i)= a(i) +T
Next i
Private Sub Command2_Click()
Dim K As Integer
K=Val(Text4.Text)
Labe.15.Caption="经过一系列操作后.a("+Str(K)+ ")的值为:"+___________
End Sub
操作1:在文本框中分别输入L、R、T(1≤L≤R≤n),对数组下标为L到R之内(包含L和R)的每个元素增加T(1≤T≤100)
操作2:在文本框中输入K(1≤K≤n),在标签中输出a(K)的值。
为了提高算法的效率,小明设计了如下算法,以n=10为例,如下表所示。
数组下标 | l | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | l0 |
元素的值 | 7 | l2 | 3 | 6 | 7 | 1l | 8 | 24 | 9 | 5 |
①将n个元素依次分成





数组下标 | l | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
元素的值 | 7 | 12 | 3 | 6 | 7 | 1l | 8 | 24 | 9 | 5 |
段编号 | 第l段 | 第2段 | 第3段 | 第4段 | ||||||
段标记值 | 0 | 0 | 0 | 0 |
②对于操作1,输入的L、R属于同一段,则直接对a(L to R)的每个元素加上T。如输入4,6,3,则第2段中的每个数加上3,操作后如下表所示。
数组下标 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 |
元素的值 | 7 | l2 | 3 | 9 | 10 | 14 | 8 | 24 | 9 | 5 |
段编号 | 第1段 | 第2段 | 第3段 | 第4段 | ||||||
段标记值 | 0 | 0 | 0 | 0 |
③对于操作1,若输入的L,R不属于同一段,则对元素a(L)所在段中从a(L)开始到该段最后一个元素为止的每个元素加上T,并对元素a(R)所在段中从该段第一个元素开始到a(R)为止的每个元素加上T,对a(L)元素所在段的下一段开始到a(R)元素所在段的前一段为止的每个段标记值增加T,这些段中的元素保持不变。如在上表的其础上再输入1,8,2,则第1段的3个数和第3段中的前2个数都加上2,第2段的段标记位增加2,如下表所示。
数组下标 | l | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | l0 |
元素的值 | 9 | 14 | 5 | 9 | l0 | l‘l | 10 | 26 | 9 | 5 |
段编号 | 第1段 | 第2段 | 第3段 | 第4段 | ||||||
段标记位 | 0 | 2 | 0 | 0 |
④对于操作2,若输入K的值为5,则输出a(5)的值,a(5)的值为该数组元素的值+段标记值,即a(5)=12。程序运行界面如下。请回答下列问题:
(1)若数组元素为“3,2,6,8,7,9,3,4,7,9,6”,依次进行以下3次操作后第3段的标记值为__________

操作1:依次输入1,11,1
操作1:依次输入7,9,2
操作2:输入8
(2)请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Dim f(1 T on) As Integer 'f数组元素依次表示每段的标记值
Dim bk As Integer 'bk表示每段的元素个数
Function BL(x As Integer) As Integer 'BL函数返回数组元素a(x)的段编号
BL=________________
End Function
Private Sub Form_Load()
’读取数据,并存储到数组a中,代码略
bk=Int(Sgr(n))
End Sub
Private Sub Command1_Click()
Dim L As Integer,R As Integer,T As Integer,i As Integer
L=Val(Text1.Text):R=Val(Text2.Text):T=Val(Text3.Text)
If BL(L)=BL(R) Then
For i=L To R
a(i)=a(i)+TNext i
EIse
For i=______________a(i)= a(i)+T
Next i
For i=BL(L)+1 To BL(R)-1
f(i)= f(i)+T
Next i
For i=(BL(R)-1)* bk+1 To R
a(i)= a(i) +T
Next i
End If
End SubPrivate Sub Command2_Click()
Dim K As Integer
K=Val(Text4.Text)
Labe.15.Caption="经过一系列操作后.a("+Str(K)+ ")的值为:"+___________
End Sub
15.
食堂排队买菜。食堂排队买菜时,每个同学都有一个窗口买菜时间,如果某同学的等待时间超过他在窗口买菜时间的3倍,他就会不愉快,反之是愉快的。等待时间是指排在该同学之前的所有人的买菜时间之和。己知每个同学在窗口的买菜时间,请确定如何排队才能使愉快的人数最多,并输出最多的人数。例如:10个同学的买菜时间如下表所示,则最多有8个人是愉快的。
Const n=10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer,a As Integer,ans As Integer,t As Integer
,读取每个学生的买菜时间,依次存储在数组a中,代码略
For i =1 To n-1
k = i
For j = n To i+1 Step-1
If Then k = j
Next j
If a(i)<>a(k) Then t = a(i):a(i)=a(k):a(k)=t
Next i
s=0:ans=0
For i = 1 To n
If s<ans Then s=s+a(i):ans=ans+1
Next i
Label1.Caption="共有"+Str(ans)+ "个人是愉快的,且参与排队买菜。"
(1)代码“Private Sub Commandl_Click()”中的Command1是_________(单选,填字母:
(2)请在划线处填入合适代码。___________________________
(3)程序代码中,加框处代码有错,请改正。___________________________
(4)若10个同学的买菜时间都相同,则有_________个人是愉快的,且参与排队。
学生编号 | l | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | l0 |
买菜时间 | 3 | 2 | 5 | 5 | 6 | 7 | 1 | 8 | 1 | 3 |
最终是否参与排队 | 是 | 是 | 是 | 是 | 否 | 是 | 是 | 否 | 是 | 是 |
Const n=10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer,a As Integer,ans As Integer,t As Integer
,读取每个学生的买菜时间,依次存储在数组a中,代码略
For i =1 To n-1
k = i
For j = n To i+1 Step-1
If Then k = j
Next j
If a(i)<>a(k) Then t = a(i):a(i)=a(k):a(k)=t
Next i
s=0:ans=0
For i = 1 To n
If s<ans Then s=s+a(i):ans=ans+1
Next i
Label1.Caption="共有"+Str(ans)+ "个人是愉快的,且参与排队买菜。"
(1)代码“Private Sub Commandl_Click()”中的Command1是_________(单选,填字母:
A.对象名/ | B.事件名/ | C.事件处理过程名) |
(3)程序代码中,加框处代码有错,请改正。___________________________
(4)若10个同学的买菜时间都相同,则有_________个人是愉快的,且参与排队。
16.
小李创作主题为“慈溪风景”的多媒体作品。请回答下列问题:

(1)如图a所示,下列说法中正确的是_________(多选,填字母:A.可以把“背景”图层填充为白色/B.可以使用自由变换放大或缩小“荷花”图层的内容/C.可以删除“下”图层/D.可以栅格化“鸣鹤”图层,然后添加滤镜“风”)。
(2)当前文档大小为550×400(像素),把图像“背景.jpg”导入到舞台后,该图像的属性面板部分如图b所示,要使该图像在舞台居中显示,应把x和y设置为_________(单选,填字母:A.(50,50)/B.(25,25)/C.(25,0)/D.(0,0))。

(3)如图c所示,测试场景时,“文字2”图层内容一直显示在舞台上,要使该图层内容从动画一开始就出现,并仅持续3秒,应进行的操作是__________

(4)使用Flash软件编辑某按钮元件,部分界面如图d所示。则该按钮元件的名称是:_________,将该按钮元件应用于舞台,测试影片时发现该按钮不能响应鼠标事件。执行下列操作后,能够使该按钮响应鼠标事件的是________(单选,填字母:A.“文字”图层“按下”帧执行清除关键帧操作;/B.“文字”图层“点击”帧执行插入空白关键帧操作;/C.“音效”图层“点击”帧执行删除帧操作:/D.“音效”图层“指针经过”帧执行清除帧操作)

(5)为实现该场景动画播放结束后自动停止的效果,小李采用的操作方法是:选择“按钮”图层最后1帧,添加动作脚本“on(press)(stop();)”,则该操作方法能否实现上述效果?__________(选填:能/不能)

(1)如图a所示,下列说法中正确的是_________(多选,填字母:A.可以把“背景”图层填充为白色/B.可以使用自由变换放大或缩小“荷花”图层的内容/C.可以删除“下”图层/D.可以栅格化“鸣鹤”图层,然后添加滤镜“风”)。
(2)当前文档大小为550×400(像素),把图像“背景.jpg”导入到舞台后,该图像的属性面板部分如图b所示,要使该图像在舞台居中显示,应把x和y设置为_________(单选,填字母:A.(50,50)/B.(25,25)/C.(25,0)/D.(0,0))。

(3)如图c所示,测试场景时,“文字2”图层内容一直显示在舞台上,要使该图层内容从动画一开始就出现,并仅持续3秒,应进行的操作是__________

(4)使用Flash软件编辑某按钮元件,部分界面如图d所示。则该按钮元件的名称是:_________,将该按钮元件应用于舞台,测试影片时发现该按钮不能响应鼠标事件。执行下列操作后,能够使该按钮响应鼠标事件的是________(单选,填字母:A.“文字”图层“按下”帧执行清除关键帧操作;/B.“文字”图层“点击”帧执行插入空白关键帧操作;/C.“音效”图层“点击”帧执行删除帧操作:/D.“音效”图层“指针经过”帧执行清除帧操作)

(5)为实现该场景动画播放结束后自动停止的效果,小李采用的操作方法是:选择“按钮”图层最后1帧,添加动作脚本“on(press)(stop();)”,则该操作方法能否实现上述效果?__________(选填:能/不能)
试卷分析
-
【1】题量占比
选择题:(12道)
填空题:(4道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:16