2020年浙江省義烏市高考信息技術模擬試卷（6月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列關于信息與信息表達的說法正確的是（ ?。?/h2>
組卷：0引用：1難度：0.6 -
2．下列應用中，體現(xiàn)了人工智能技術的有（ ?。?br />①用APP進行拍照搜題②在Word軟件中輸入“百步川楊”自動更正為“百步穿楊”③使用指紋打卡進行員工考勤④聲卡將模擬信號轉換成數(shù)字信號⑤商場中的VR游戲體驗
組卷：1引用：1難度：0.5 -
3．使用Access軟件打開數(shù)據(jù)庫文件，部分界面如圖所示，下列說法正確的是（ ?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/202006/224/f5678ccf.png" style="vertical-align:middle" />
組卷：2引用：2難度：0.8 -
4．下列有關進制與字符編碼的描述，正確的是（ ?。?/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顯示為“開始排序”，則需要設置它的屬性。（單選，填寫字母：A．Text/B．Caption/C．Name）
（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碼轉化為二進制后求異或（對應位相同時結果為0，對應位不同時結果為1，如二進制1001與二進制1100的異或值為0101），并將異或結果轉換為十進制p；
②如果處在奇數(shù)位，則將明文字符循環(huán)后移p個位置，否則將明文前移p個位置。移動過程中保持大小寫不變。
最后把所得到的字符連接起來就是密文。
例如，密鑰是“abc”，明文“d”的加密過程是：字符“d”的ASCII碼表示為二進制是1100100，密鑰“a”的ASCII碼表示為二進制是1100001，兩數(shù)進行異或結果是：0000101，轉化為十進制為5，因為是第1個位置，所以把明文后移5個位置，則密文是“i”。
該加密過程使用VB來實現(xiàn)。具體功能設計如下：在Text1中輸入明文，Text2中輸入密鑰，單擊“開始加密”按鈕Command1后將密文顯示在Text3中，界面設計如圖所示。
請回答以下問題：
（1）如果密鑰為“bc”，字符“d”加密后的密文為：（字母“a”的ASCII碼為97）
（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