2020年浙江省义乌市高考信息技术模拟试卷(6月份)
发布:2024/4/20 14:35:0
一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)
-
1.下列关于信息与信息表达的说法正确的是( )
组卷:0引用:1难度:0.6 -
2.下列应用中,体现了人工智能技术的有( )
①用APP进行拍照搜题②在Word软件中输入“百步川杨”自动更正为“百步穿杨”③使用指纹打卡进行员工考勤④声卡将模拟信号转换成数字信号⑤商场中的VR游戏体验组卷:1引用:1难度:0.5 -
3.使用Access软件打开数据库文件,部分界面如图所示,下列说法正确的是( )
组卷:2引用:2难度:0.8 -
4.下列有关进制与字符编码的描述,正确的是( )
组卷:4引用:3难度:0.6 -
5.使用Photoshop软件编辑图片,如图所示,下列操作可以实现的是( )
组卷:1引用:2难度:0.5
二、非选择题(本大题共4小题,其中第13小题4分,第14小题8分,第15小题7分,第16小题7分,共23分.)
-
15.矩阵斜线排序是指按斜线方向从小到大实现排序,如5*5矩阵斜线排序效果如图所示。
小明使用VB实现该排序,设计功能如下:随机生成两位正整数并显示在List1中,单击按钮“Command1”后将排序完成的数据显示在List2中。界面如图所示。
请回答以下问题:
(1)更改窗体按钮Command1显示为“开始排序”,则需要设置它的
(2)请完善程序代码。Constn=5'矩阵大小
Dima(1Ton*n)AsIntegerPrivateSubForm_Load ( )
'随机生成n*n的矩阵数据,并依次保存在数组a(1)~a(n*n)中'以n*n矩阵形式在list1中显示数据,代码略
EndSub
PrivateSubCommand1_Click ( )
DimiAsInteger,jAsInteger,kAsInteger,tAsInteger
DimstartposAsInteger,endposAsInteger,sAsString
Fori=2To2*n-2
Ifi<=nThen
startpos=(i-1)*n+1
endpos=i
Else
startpos=①
endpos=(i-n+1)*n
EndIf
DoWhilestartpos>endpos
②
j=startpos-n+1
DoWhilej>=endpos
Ifa(j)<a(k)Thenk=j
j=j-n+1
Loop
Ifk<>startposThen
t=a(k):a(k)=a(startpos):a(startpos)=t
EndIf
startpos=startpos-n+1
Loop
Nexti
Fori=1Ton
s=““
Forj=1Ton
s=s+③
Nextj
List2.AddItems
NextiEndSub组卷:2引用:1难度:0.5 -
16.某加密算法的明文和密钥均由英文字母组成,且密钥循环使用,其加密规则如下:
①明文字符与对应密钥的ASCII码转化为二进制后求异或(对应位相同时结果为0,对应位不同时结果为1,如二进制1001与二进制1100的异或值为0101),并将异或结果转换为十进制p;
②如果处在奇数位,则将明文字符循环后移p个位置,否则将明文前移p个位置。移动过程中保持大小写不变。
最后把所得到的字符连接起来就是密文。
例如,密钥是“abc”,明文“d”的加密过程是:字符“d”的ASCII码表示为二进制是1100100,密钥“a”的ASCII码表示为二进制是1100001,两数进行异或结果是:0000101,转化为十进制为5,因为是第1个位置,所以把明文后移5个位置,则密文是“i”。
该加密过程使用VB来实现。具体功能设计如下:在Text1中输入明文,Text2中输入密钥,单击“开始加密”按钮Command1后将密文显示在Text3中,界面设计如图所示。
请回答以下问题:
(1)如果密钥为“bc”,字符“d”加密后的密文为:
(2)请完善以下程序代码。
PrivateSubCommand1_Click
DimsAsString,snAsString
DimiAsInteger,tAsInteger,uAsInteger
DimpAsInteger,gAsInteger
sn=““
Fori=1ToLen(Text1.Text)
t=Asc(Mid(Text1.Text,i,1))
Ift>=Asc(″a″)Then
g=Asc(″a″)
Else
g=Asc(″A″)
EndIf
u=Asc(Mid(Text2.Text,(i-1)ModLen(Text2.Text)+1,1))
p=①
t=t-g
IfiMod2=1Then
t=(t+p)Mod26
Else
t=②
EndIf
sn=sn+Chr(t+g)
Nexti
Text3.Text=snEndSub
Functiontxor(xAsInteger,yAsInteger)AsInteger'x、y求异或并返回十进制
DimaAsInteger,bAsInteger,rAsInteger,iAsInteger
a=x:b=y
r=1
Fori=1To7
IfaMod2<>bMod2Then③
a=a\2
b=b\2
r=r*2
NextiEndFunction组卷:1引用:1难度:0.6