2020年浙江省義烏市高考信息技術(shù)模擬試卷(6月份)
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列關(guān)于信息與信息表達的說法正確的是( ?。?/h2>
組卷:0引用:1難度:0.6 -
2.下列應用中,體現(xiàn)了人工智能技術(shù)的有( )
①用APP進行拍照搜題②在Word軟件中輸入“百步川楊”自動更正為“百步穿楊”③使用指紋打卡進行員工考勤④聲卡將模擬信號轉(zhuǎn)換成數(shù)字信號⑤商場中的VR游戲體驗組卷:1引用:1難度:0.5 -
3.使用Access軟件打開數(shù)據(jù)庫文件,部分界面如圖所示,下列說法正確的是( ?。?img alt="菁優(yōu)網(wǎng)" src="http://img.jyeoo.net/quiz/images/202006/224/f5678ccf.png" style="vertical-align:middle" />
組卷:2引用:2難度:0.8 -
4.下列有關(guān)進制與字符編碼的描述,正確的是( ?。?/h2>
組卷:4引用:3難度:0.6 -
5.使用Photoshop軟件編輯圖片,如圖所示,下列操作可以實現(xiàn)的是( )
組卷:1引用:1難度:0.5
二、非選擇題(本大題共4小題,其中第13小題4分,第14小題8分,第15小題7分,第16小題7分,共23分.)
-
15.矩陣斜線排序是指按斜線方向從小到大實現(xiàn)排序,如5*5矩陣斜線排序效果如圖所示。
小明使用VB實現(xiàn)該排序,設計功能如下:隨機生成兩位正整數(shù)并顯示在List1中,單擊按鈕“Command1”后將排序完成的數(shù)據(jù)顯示在List2中。界面如圖所示。
請回答以下問題:
(1)更改窗體按鈕Command1顯示為“開始排序”,則需要設置它的
(2)請完善程序代碼。Constn=5'矩陣大小
Dima(1Ton*n)AsIntegerPrivateSubForm_Load ( ?。?br />'隨機生成n*n的矩陣數(shù)據(jù),并依次保存在數(shù)組a(1)~a(n*n)中'以n*n矩陣形式在list1中顯示數(shù)據(jù),代碼略
EndSub
PrivateSubCommand1_Click ( ?。?br />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.某加密算法的明文和密鑰均由英文字母組成,且密鑰循環(huán)使用,其加密規(guī)則如下:
①明文字符與對應密鑰的ASCII碼轉(zhuǎn)化為二進制后求異或(對應位相同時結(jié)果為0,對應位不同時結(jié)果為1,如二進制1001與二進制1100的異或值為0101),并將異或結(jié)果轉(zhuǎn)換為十進制p;
②如果處在奇數(shù)位,則將明文字符循環(huán)后移p個位置,否則將明文前移p個位置。移動過程中保持大小寫不變。
最后把所得到的字符連接起來就是密文。
例如,密鑰是“abc”,明文“d”的加密過程是:字符“d”的ASCII碼表示為二進制是1100100,密鑰“a”的ASCII碼表示為二進制是1100001,兩數(shù)進行異或結(jié)果是:0000101,轉(zhuǎn)化為十進制為5,因為是第1個位置,所以把明文后移5個位置,則密文是“i”。
該加密過程使用VB來實現(xiàn)。具體功能設計如下:在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