浙江省2019-2020学年普通高校招生选考科目信息技术考试试卷(二)
试卷更新日期:2020-11-11 类型:高考模拟
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1. 下列有关信息的说法,错误的是( )A、传递和获得信息的途径可以有多种 B、信息的编码与解码需要遵守一定的原则和方法 C、信息的来源不同导致获取的方法也存在差异 D、微信中转发他人朋友圈链接,无需承担相关法律责任2. 某Excel文档的数据如图所示。
下列数据表能粘贴该工作表的数据的是( )
A、 B、 C、 D、3. 小陈使用Word软件,对文档的部分内容进行了以下修改,下列描述不正确的是( )A、该文档第1处批注内容为:“2017年” B、当前状态下仅有1位用户对该文档添加批注 C、拒绝所有修订后,第7行部分文本内容为:“19”代表的是最大载客量为1 900座 D、接受所有修订后,第1行部分文本内容为:2017年这个春天,中国注定吸引世界目光4. 一个未经压缩的BMP格式图像文件,其相关信息如图所示。由此可知,表示该图像的每个像素需要的二进制位数是( )
A、4 B、8 C、24 D、325. 一个二位十六进制正整数 n,末位是“9”,下列说法正确的是( )A、无法确定 n 是奇数还是偶数 B、n+1 是一个三位十六进制数 C、转换为十进制数,最小值是 25 D、转换为二进制数,位数一定是 86. 下列有关多媒体技术的说法正确的是( )A、任何多媒体作品都具有交互性这个特征 B、多媒体作品的规划设计阶段可以分为模块设计和脚本设计 C、多媒体中存在冗余越少,采用多媒体技术压缩后文件的压缩比越大 D、多媒体数据的压缩技术可以允许存在少量误差和去除冗余,因此该压缩属于有损压缩7. 某算法的部分流程图如图所示。当输入x的值为100时,在标签Label1中输出的内容为( )A、4 B、33 C、36 D、488. 下列VB表达式的值最大的是( )。A、Len("36")+3 B、Sqr(36)+Int(3.6) C、Asc("a")- Asc("A") D、Val(mid("236",1,2))9. 有如下程序段:i = 1
Do While i <= 5
If i = 0 or a(i - 1) <= a(i) Then
i = i + 1
Else
t = a(i): a(i) = a(i - 1): a(i - 1) = t
i = i - 1
End If
Loop
For i = 1 To 5
List2.AddItem a(i)
Next i
数组元素a(0)到a(5)的值依次为“0,71,22,48,79,27”,经过该程序段“加工”后,数组元素a(4)的值为( )
A、0 B、71 C、48 D、2710. 对用户输入的字符串进行解密的 VB 程序段如下:s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
nk = Asc(ch) - i
If nk < 0 Then nk = nk + 127
Text2.Text = Text2.Text + Chr(nk)
Next i
已知大写字母A的ASCII码值为65,小写字母a的ASCII码值为97,在文本框Text1中输入内容“yhT5”,执行程序段后,文本框Text2显示的内容为( )
A、YHt5 B、xgS4 C、zjW9 D、xfQ111. 下列VB程序段实现求双重数列0,2,1,4,1,6,2,8,3,10,5,12,8,……前n项中的奇数项和。Dim a(1 To 100)As Integer
n=Val(Text1.Text)
a(1)=0:a(3)=1
s=1
Next i
Text2.Text=Str(s)
方框中的代码由以下三部分组成:
①a(i)=a(i-2)+a(i-4)
②s=s+a(i)③For i=5 To n Step 2
代码顺序正确的选项是( )
A、①②③ B、③②① C、②①③ D、③①②12. 以下VB 程序段的功能是:单击一次按钮Command1,在列表List1 中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。Private Sub Command1_Click()
Dim s As String, c As String, i As String, a As String, t As Integer
Randomize
s = “”
For i = 1 To 10
If a <= 26 Then
t = a + 64
Else
End If
c = Chr(t)
s = s + c
Next i
List1.AddItem s
End Sub
以上横线处的正确语句是( )
A、①a=Int(Rnd * 52 + 1) ②t = a + 70 B、①a=Int(Rnd * 52) ②t = a + 71 C、①a=Int(Rnd * 52 + 1) ②t = a + 72 D、①a=Int(Rnd * 52) ②t = a + 73二、非选择题(本大题共4小题,4+8+7+7,共26分)
-
13. 某调查公司发布了喜马拉雅收听次数较多、评分较好的部分栏目,现使用Excel软件进行数据处理,界面如图a所示。
图a
请回答下列问题:
(1)、区域F4:F27的数据是通过对F3单元格进行自动填充得到的,则F19单元格中的公式为。(2)、要对“人文历史”类节目按“已播次数(万)”进行降序排序,应选中的排序区域是。(3)、若对图a中的数据按“已播次数(万)”和“评分”进行筛选,筛选条件均如图b所示,筛选得到的节目名称是。图b
(4)、根据创建好的如图c所示的图表可以判断图表数据区域选择时,(选填:有/没有)包含B2和E2单元格的数据。图c
14. 小明制作主题为“荷花韵”的多媒体作品。他首先使用Photoshop软件制作一张背景图片,然后使用Flash软件制作动画。请回答下列问题:图a
(1)、如图a所示,当前状态下,下列说法正确的有(多选,填字母:A . “荷花韵”图层设置了文字变形效果/ B . “圆荷”图层的图层样式均可视/ C . 将作品保存为PSD格式,可下次继续编辑图层信息/ D . “荷花”图层的不透明度是0%)。(2)、如图b所示,“蝴蝶1”图层第6帧到第36帧实现了蝴蝶从左向右飞行的动画效果,该动画类型为(填字:动画补间/形状补间/逐帧动画)。(3)、如图b所示,“音乐”图层第10帧的声音来自文件“liushui.mp3”。该场景动画播放到第36帧结束时,声音刚好完整播放一遍。由此可知该声音文件时间长度约为秒(保留1位小数)。图b
(4)、为实现“蝴蝶2”图层与“蝴蝶1”图层中的蝴蝶实例同时开始播放,应对“蝴蝶2”图层进行的操作是。(5)、测试影片时,单击“退出”按钮,实现关闭动画。则“退出”按钮的动作脚本为。15. 有一个报数游戏, n个人排成一圈,游戏开始时规定一个报数号m,然后从其中一个人开始按顺时针报数1,2,3,…,n,当某人报到的数为m的倍数时,即被淘汰,其他人继续游戏,直到最后。现用VB设计了一个程序,程序界面如下图所示。在文本框Text1中输入参加游戏的人数n,在文本框Text2中输入报数号m,单击“报数”按钮,即在列表框List1中显示每次被淘汰的人的顺序号。实现上述功能的VB代码如下,但加框处有错,请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50) As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
For i = 1 To n
Next i
s = 0;j = 0
Do While s < n
t = 0
Do While t < m
t = t + a(j)
Loop
a(j) = 0
s = s + 1
List1.AddItem “第” + Str(s) + “次:” + Str(j)
Loop
End Sub
(1)、“报数”按钮的对象名称是。(2)、程序代码中,加框处有错,请改正。(3)、程序代码中,横线处语句补充完整。(4)、程序运行结束后,变量t的值是。16. 编写VB程序,实现如下功能:单击“生成密文”按钮Command2,在文本框Text3中产生与每个小写字母对应的密文(每个明文字母对应1个不重复的密文字母)。在文本框Text1中输入单词字符串,单击“加密”按钮Command1后,进行逐个字符加密,加密方法:在“明文”中找到相应字符,再得到明文对应位置的密文,并在文本框Text2中显示对应密文(运行效果如图所示)。实现上述功能的VB代码如下,请完善程序代码。Dim m2 As String
Private Sub Command1_Click()
Dim flag(1 To 26) As Boolean
Dim num As Integer,t As Integer
Randomize
num = 1
Text3.Text = “”
For i = 1 To 26
flag(i) = False
Next i
Do While num <= 26
x = Int(Rnd * 26) + 97
If flag(t) = False Then
m2 = m2 + Chr(x)
num = num + 1
End If
Loop
Text3.Text = m2
End Sub
Private Sub Command2_Click()
Dim s As String, m As String, result As String
Dim k As String, c As Integer
s = Text1.Text
m = “abcdefghijklmnopqrstuvwxyz”
For i = 1 To Len(s)
k = Mid(s, i, 1)
If k >= ”A” And k <= “Z” Then
k = Chr(Asc(k) + 32)
End If
c = 1: continue = True
Do While
If k = Mid(m, c, 1) Then
continue = False
End If
c = c + 1
Loop
Next i
Text2.Text = result
End Sub