浙江省义乌市2020届高三信息技术6月适应性考试试卷
试卷更新日期:2020-06-28 类型:高考模拟
一、选择题(本大题共12小题,每小题2分,共24分。在每小题给出的四个选项中,只有一个符合题目要求)
-
1. 下列关于信息与信息表达的说法正确的是( )A、网页文件是由HTML语言描述的文本文件,可以用记事本编辑。 B、常用的信息表达方式有语言、文字、图像、书籍、报纸、网络等。 C、因特网是当今人们获取信息的重要场所,所以网络上获取的信息都是真实可信的。 D、POP 3协议的功能是把电子邮件从发件人电子信箱发送到收件人的电子邮件服务器中。2. 下列应用中,体现了人工智能技术的有( )
①用APP进行拍照搜题
②在Word软件中输入“百步川杨”自动更正为“百步穿杨”
③使用指纹打卡进行员工考勤
④声卡将模拟信号转换成数字信号
⑤商场中的VR游戏体验
A、①③⑤ B、②③④ C、③④⑤ D、①③3. 使用Access软件打开数据库文件,部分界面如下图所示,下列说法正确的是( )A、当前打开的数据表名为“VIP会员信息.accdb”。 B、当前状态下,执行插入新记录操作,会在当前位置插入一条新记录。 C、ID字段肯定为自动编号类型,该字段的内容不能手动添加。 D、每新增加一位VIP会员,该表将增加一个字段。4. 下列有关进制与字符编码的描述,正确的是( )A、任意进制的一个数,若末尾为0,这数转为十进制一定是偶数 B、十进制数98,转为七进制数表示为:170 C、用n位二进制数给m种不同的信息编码,则必满足2n≥m D、汉字和英文字符在计算机内部编码是采用十六进制形式5. 使用Photoshop软件编辑图片,如图所示:下列操作可以实现的是( )
A、可以使用“自由变换”命令调整“文字背景”图层的大小,而不影响其他图层 B、可以将“西子三千”的图层样式拷贝到“背景”图层 C、“西子三千”图层添加了三个图层样式:效果,投影,描边 D、当前状态下,可以直接删除“文字背景”图层6. 一段音频使用GoldWave软件打开,属性如下图所示:这段音频容量约为( )
A、10MB B、20MB C、25MB D、30MB7. 若要对实数型变量x四舍五入保留两位小数,下列VB表达式中能实现的是( )A、Int(x*100+0.5) / 10 B、Int(x*10+0.5) / 10 C、Int(x*100) / 100 D、Int(x*100+0.5) / 1008. 某算法的流程图如图所示,执行这部分流程后,s的值是( )A、20 B、27 C、30 D、439. 将无序数据“8,23,4,16,77,-5,53,100”按从大到小的顺序排列,每次可以交换任意两个元素,最少需要交换( )次A、4 B、5 C、6 D、710. 有如下VB程序段:s=0
For i= 1 To 5
k=0
For j=i+ 1 To 6
If a(i) >a(j) Then k=k+1
Next j
s=s+k
Next i
数组元素a(1)到a(6)的值依次为“5,4,2,6,3,1”,执行该程序段后,变量s的值为( )
A、9 B、11 C、13 D、1511. 有如下VB程序段:i=1:j=10:temp=a(5)
Do While a(j) >temp
j=j-1
Loop
Do While a(i) <temp
i=i+1
Loop
temp=a(i):a(i)=a(j):a(j)=temp
数组元素a(1)到a(10)的值依次为“36 91 36 17 93 99 29 97 97 96”,执行该程序段后,a(5)的值为( )
A、29 B、36 C、93 D、9712. 有如下VB程序段:Key=Val(Text 1.Text)
i=1:j=10
Do While i<=j
m=(i+j)\2
If Key<a(m) Then
j=m-1
Else
i=m+1
End If
Loop
Text 2.Text=Str(i-1)
数组a(1)~a(10)的值分别是2,2,3,5,5,5,7,7,7,9,若从Text 1中输入5,则Text 2显示的内容是( )
A、4 B、6 C、7 D、10二、非选择题(本大题共4小题,4+8+7+7,共23分。)
-
13. 小张同学收集了某地区近五年(2015-2019)供水用水情况数据,用Excel软件进行数据处理,如图a所示。
请回答下列问题:
(1)、小张在C10单元格输入公式后,又将C10单元格复制到C12,并用自动填充功能完成C10:G10,D12:G12单元格的数据计算,则C12单元格中显示的结果是(单选,填字母:A .#VALUE!/B .1266.27/C .#DIV/O!/D .14.32)(2)、若要按照上述方法正确计算所有“占总用水量百分比(%)”,小张应修改C10单元格的公式为。(3)、根据图a数据,小张制作了一张反映近五年用水总量对比图,如图b所示,则该图表的数据区域为B3:G3,B9:G9,B11:G11,。(4)、分析图表,近5年用水量变化波动最大的是(选填:农业用水/工业用水/生活用水/生态用水)14. 使用flash软件打开“预防新冠.fla”文件,编辑界面如下图所示:请回答下列问题:
(1)、创作多媒体作品需要进行需求分析,下面属于创作需求分析的有:(多选,填字母:A .目标用户的信息获取渠道;B .作品的主题思想;C .作品能产生的效益;D .作品主要内容;E 、制作作品所需设备。)(2)、“如何预防”图层动画补间类型可能是(单选,填字母:A 、动画补间;B 、形状补间;C 、逐帧动画)(3)、若要“查看更多”图层动画跟“如何预防”图层动画同步,应该进行的操作是:。(4)、“标题”图层第1帧“预防新冠病毒”文字属性如图B所示,可以推断,该图层动画效果为“预防新冠病毒”文字(单选,填字母:A 、从上而下进入舞台;B 、从左往右进入舞台;C 、从右往左进入舞台。)(5)、点击“了解新冠”,停止当前场景的声音,并跳转到“场景2”第1帧播放,应该添加的动作脚本为。15. 矩阵斜线排序是指按斜线方向从小到大实现排序,如5*5矩阵斜线排序效果如下图所示。小明使用VB实现该排序,设计功能如下:随机生成两位正整数并显示在List1中,单击按钮“Command1”后将排序完成的数据显示在List2中。界面如图所示。
请回答以下问题:
(1)、更改窗体按钮Command1显示为“开始排序”,则需要设置它的属性。(单选,填写字母:A .Text/B .Caption/C .Name)(2)、请完善程序代码。Const n= 5 '矩阵大小
Dim a(1To n*n) As Integer
Private Sub Form_Load()
'随机生成n*n的矩阵数据,并依次保存在数组a(1)~a(n*n)中
'以n*n矩阵形式在list 1中显示数据,代码略
End Sub
Private Sub Command 1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer
Dim startpos As Integer, endpos As Integer, s As String
For i= 2 To 2*n-2
If i<=n Then
startpos=(i-1) *n+ 1
endpos=i
Else
startpos= ①
endpos=(i-n+1) *n
End If
Do While startpos>endpos
②
j=startpos-n+1
Do While j>=endpos
If a(j) <a(k) Then k=j
j=j-n+1
Loop
If k<>startpos Then
t=a(k) :a(k) =a(startpos) :a(startpos) =t
End If
start pos=startpos-n+ 1
Loop
Next i
For i=1To n
s=””
For j=1To n
s=s+ ③
Next j
List 2.Add Item s
Next i
End Sub
① ② ③
16. 某加密算法的明文和密钥均由英文字母组成,且密钥循环使用,其加密规则如下:①明文字符与对应密钥的ASCII码转化为二进制后求异或(对应位相同时结果为0,对应位不同时结果为1,如二进制1001与二进制1100的异或值为0101),并将异或结果转换为十进制p;
②如果处在奇数位,则将明文字符循环后移p个位置,否则将明文前移p个位置。移动过程中保持大小写不变。
最后把所得到的字符连接起来就是密文。
例如,密钥是“abc”,明文“d”的加密过程是:字符“d”的ASCII码表示为二进制是1100100,密钥“a”的ASCII码表示为二进制是1100001,两数进行异或结果是:0000101,转化为十进制为5,因为是第1个位置,所以把明文后移5个位置,则密文是“i”。
该加密过程使用VB来实现。具体功能设计如下:在Text 1中输入明文,Text 2中输入密钥,单击“开始加密”按钮Command 1后将密文显示在Text 3中,界面设计如图所示。
请回答以下问题:
(1)、如果密钥为“bc”,字符“d”加密后的密文为:(字母“a”的ASCII码为97)(2)、请完善以下程序代码。Private SubCommand1_Click( )
Dim s As String, sn As String
Dim i As Integer, t As Integer, u As Integer
Dim p As Integer, g As Integer
sn=“”
For i=1To Len(Text 1.Text)
t=Asc(Mid(Text1.Text, i, 1) )
If t>=Asc(“a”) Then
g=Asc(“a”)
Else
g=Asc(“A”)
End If
u=Asc(Mid(Text 2.Text,(i-1) Mod Len(Text 2.Tex kwt)+1,1))
p= ①
t=t-g
If i Mod 2= 1 Then
t=(t+p) Mod 26
Else
t= ②
End If
sn=sn+Chr(t+g)
Next i
Text 3.Text=sn
End Sub
Function txor(xk wAs Integer, y As Integer) As Integer 'x、y求异或并返回十进制
Dim a As Integer, b As Integer, r As Integer, i As Integer
a=x:b=y
r=1
For i= 1 To 7
If a Mod 2<>bMod 2 Then ③
a=a\2
b=b\2
r=r*2
Next i
End Function
① ② ③