浙江省2019-2020学年普通高校招生选考科目信息技术考试试卷(六)
试卷更新日期:2020-11-11 类型:高考模拟
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1. 下列有关信息的说法,正确的是( )A、同样的信息不能加载于不同的载体之上 B、设置邮箱,限制邮件大小,过滤垃圾邮件,无助于保护个人信息 C、加密后的文本不是信息 D、教务处为每位同学分配准考证号,属于信息的编码2. 下列有关浏览器的应用,说法正确的是( )A、HTTP协议主要用于浏览器与Web服务器之间的信息传输 B、通过浏览器将电子邮件读取到本地计算机采用的是SMTP协议 C、使用浏览器可对当前正在浏览的网页进行编辑 D、选择“网页,仅HTML(*.htm;*.html)”的方式保存网页可将图片保存到本地磁盘3. 使用Access软件创建的“无人机”数据表,其设计视图的部分界面如图所示,下列说法正确的是( )A、可以修改“序号”字段的值 B、可以再建一个“自动编号”类型的字段 C、插入新记录时,可以在“优惠”字段输入文字“是” D、可以在品牌和价格之间插入一个数字类型的新字段4. 下列有关多媒体技术的说法错误的是( )。A、多媒体技术涉及声音、图像、视频等相关的信息处理 B、多媒体技术中的媒体可以是存储信息的载体,如光盘等 C、多媒体技术是指以计算机为平台,进行多种媒体综合处理的技术 D、多媒体技术有集成性、交互性、实时性三个显著的特征5. 小王用Flash软件制作动画作品,时间轴编辑界面如下图所示,下列说法不正确的是( )A、声音的同步方式设置为“数据流”和“事件”,效果是一样的 B、清除“按钮”图层第1帧,不会影响动画播放效果 C、在“男孩”图层第26帧插入空白关键帧,不会影响动画效果 D、交换男孩和配乐图层的位置,不会影响动画效果6. 将一个动画导出为AVI格式视频,导出设置如图所示。
若导出后的视频文件存储容量43.95MB,则该动画总帧数约为( )
A、38 B、150 C、300 D、12007. 某算法的部分流程图如下图所示,执行这部分流程后,输出的值为( )A、循环体被执行了20次 B、输出变量s的值为30 C、语句i=i+1执行9次 D、该算法是计算0+10+20的值8. VB语句“If Int(Sqr(n))=Sqr(n) Then flag=True”,下列说法正确的是( )A、该语句中的两个“=”均为赋值号 B、对于任意正整数n,条件总是成立的 C、当n的值为81时,执行该语句,flag的值为False D、该语句的功能是判断正整数n是否是完全平方数(该数能表示为某个数的平方)9. 实现某算法的部分VB 程序段如下:i=1
Do While i <= 9
If a(i) <> 0 Then
j=10
Do While j > i
If a(j)=a(i) Then a(j)=0
j=j - 1
Loop
End If
i=i+1
Loop
For i=1 To 10
If a(i) <> 0 ThenText1.Text= Text1.Text+str(a(i))
Next i
数组元素a(1)到a(10)的数据依次为“4,1,6,4,4,9,1,7,6”,则程序运行后,文本框Text1中显示的内容是( )
A、4 9 1 7 6 B、4 1 6 9 7 C、6 7 1 9 4 D、7 9 6 1 410. 有如下VB程序段:s = “QUOTES:keep on going never give up!”
flag = False: m = 0
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= “a” And ch <= “z” Then
If Not flag Then
m = m + 1
flag = True
End If
Else
flag = False
End If
Next i
Text1.Text = Str(m)
程序执行后文本框Text1显示的内容是( )
A、5 B、6 C、7 D、2111. 在文本框Text1中输入n,生成一个n*n的矩阵。矩阵各元素的值均为0或1,第1个元素的值随机生成,垂直和水平方向相邻元素值均不同。程序运行的界面及实现该过程的VB程序段如下所示:n = Val(Text1.Text)
m =
s = “ ”
For i = 1 To n * n
s = s + Str(m)
m = 1- m
If i Mod n = 0 Then
List1.AddItem s
s = “ ”
If Then m = 1- m
End If
Next i
实现该功能,则上述程序段横横线处的表达式分别为( )
A、①Int(Rnd) ②n Mod 2 = 0 B、①Int(Rnd) ②n Mod 2 = 1 C、①Int(Rnd+0.5) ②n Mod 2 = 0 D、①Int(Rnd+0.5) ②n Mod 2 = 112. 数组d(1)~d(100)中存储某班级50位同学的语文和数学成绩,奇数位存储语文成绩,偶数位存储对应该同学的数学成绩。该数组已经按照两科总成绩升序排序。依据对分查找思想:设计一个在数组a中查找总成绩Key的程序,如果查找成功输出语文成绩在数组中的位置。实现该功能的VB程序段如下:Key = Val(Text1.Text)
i = 1: j = 100
Do While i <= j
m = (i + j) \2
If Then m = m - 1
Sum =
If Key = Sum Then Exit Do ′Exit Do表示退出循环
If Then
i = m + 2
Else
j = m - 2
End If
Loop
If i > j Then Text2.Text = “没有找到!” Else Text2.Text = Str(m)
实现该功能,则上述程序段划线处的表达式分别为( )
A、①m Mod 2 = 1 ②d(m) + d(m - 1) ③Key < Sum B、①m Mod 2 = 1 ②d(m) + d(m + 1) ③Key > Sum C、①m Mod 2 = 0 ②d(m) + d(m - 1) ③Key > Sum D、①m Mod 2 = 0 ②d(m) + d(m + 1) ③Key > Sum二、非选择题(本大题共4小题,4+8+7+7,共26分)
-
13. 小明用Excel软件处理2017年度某县建城区初中小学各学校活跃空间使用情况,如图a所示。请回答下列问题。
图a
(1)、区域I4:I20的数据是I3单元格向下填充得到的,则I3单元格的公式是。(计算公式:活跃空间比例=活跃空间数/用户人数*100)(2)、如图a所示,若对小学年段各学校按“用户人数”为主要关键字,“活跃空间比例”为次要关键字进行了排序,若对初中各学校也进行相同方法进行排序,排序后C6单元格显示的学校代码是。(3)、为直观地比较两个年段学校各学校活跃空间使用情况的差异,他制作了如图b所示的图表。该图表的数据区域是。图b
(4)、把图a所示中A2:I18的区域复制到新工作表中,并按图c和图d所示的方式进行筛选,筛选后显示的学校有所。14. 小明制作了一个名为“端午.fla”的Flash动画,如图1所示。回答以下问题:图1
(1)、如图1所示,小王在“声音”图层添加了背景音乐,想实现声音与动画同步,应在声音的“同步”选项中选择(填:事件/开始/数据流)类型;若声音同步设置成功,已知“按钮”图层第60帧上设置了帧命令“stop();”,音乐播放时间是秒。(2)、如图2所示,名称为“水波”的元件类型是(填:图形/按钮/影片剪辑),如图1所示,在“水波动画”图层的第5帧上放置了如图2所示的“水波”元件实例。测试影片时,会不会出现水面波动的动画效果?图2
(3)、“play”按钮的编辑界面如图3所示:图3
下面说法正确的是________(多选,填字母)。
A、在“按下”帧中不能直接添加声音效果 B、将“树叶”图层隐藏后,测试影片时将看不见该图层中的内容 C、测试影片时,鼠标移到该按钮实例上时,不会出现小手形状 D、测试影片时,鼠标移到该按钮实例上时,按钮外观可能会有变化(4)、如图1所示,为实现单击“play”按钮,动画跳转到“main”场景第1帧继续播放,小王需要在“play”按钮添加动作命令。15. 小军学习了冒泡排序算法后觉得算法还有优化的余地:假设区间[1,i]内的元素已经有序,接下来对[i+1,n]所有元素进行扫描比较,扫描完后记住最后一次交换的位置last_exchange,这个位置说明了区间[i+1,last_exchange-1]内的元素是有序的。标准冒泡排序算法下一遍的扫描区间是[i+2,n],而有了last_exchange位置信息后,下一遍的扫描区间只要[last_exchange,n]即可。小军用VB实现了该算法,运行的界面如图所示。Const maxn = 1000
Dim a(0 To maxn) As Long
Private Sub Form_Load()
′产生maxn个不相同的数据,并把他存储在a数组中,代码略
End Sub
Private Sub Command1_Click()
Dim i As Long, j As Long, tmp As Long, cnt As Long
Dim last_exchange As Integer ′记录最后一次交换位置
Dim tmp_pos As Integer ′本次交换的位置
cnt = 0: i = 1
last_exchange = 0: tmp_pos = 1
Do While ′改错
last_exchange = tmp_pos
For j = maxn To last_exchange + 1 Step -1
If a(j) < a(j - 1) Then
tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp
cnt = cnt + 1
End If
Next j
i = tmp_pos
Loop
′输出,代码略
End Sub
(1)、代码“Private Sub Command1_Click()”中的Click是。(单选,填字母:A . 对象名/B . 属性名/C . 事件名)(2)、程序代码中,Do While语句加框处有错,请改正。(3)、程序代码中,将横线处语句补充完整。(4)、程序代码中,cnt变量的含义是。(单选,填字母:A . 表示一趟加工中交换次数/B . 排序中总共交换次数/C . 排序中总共比较次数)16. 某会所采用会员制度,对会员消费实行积分奖励,利用VB编写一个程序,实现的功能:在文本框Text1、Text2中输入一个积分的范围,在列表框List2中显示该范围内的会员编号和对应的积分。多个会员可能有相同的积分,先用对分查找法找到该范围内的最小积分编号的下标,再循环输出该范围的会员编号情况。程序运行界面如图所示。程序代码如下,为实现以上功能,请在横线处填写合适的代码:
Dim jf(800) As Integer, hyh(800) As String, n As Integer
Dim n As Integer ′表示会员的总人数
Private Sub Form_Load()
′从数据库中读取会员编号和积分,并按积分值从小到大排序,显示在列表框List1中
For i=1 To n
List1.AddItem hyh(i)+“ ”+Str(jf(i))
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, m As Integer, k1 As Integer, k2 As Integer
k1=Val(Text1.Text): k2=Val(Text2.Text)
If k1 > k2 Then t=k1: k1=k2: k2=t
If k1 > jf(n) Or k2 < jf(1) Then
List2.AddItem “没有找到该范围的数据!”
Text3.Text=“0”: Exit Sub
End If
i=1
j=n
Do While i <= j
m=Int((i+j) / 2)
If jf(m) > k1 Then
j=m - 1
ElseIf jf(m) < k1 Then
i=m+1
Else
If Thenj=m - 1
Else
p=m
Exit Do
End If
End IfLoop
If i > j Then p =k=0
Do While And p <= nList2.AddItem hyh(p)+ “ ”+Str(jf(p))
p=p+1
Loop
Text3.Text=Str(k)0
End Sub