2020-2021學年浙江省金麗衢十二校高三（上）第一次聯考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分。每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列有關信息和信息表達的說法中錯誤的是（ ）
組卷：2引用：2難度：0.7 -
2．下列應用中，沒有體現人工智能技術的是（ ）
組卷：0引用：2難度：0.7 -
3．某校新聞中心要開發一個簡單的新聞系統，后臺所做數據庫包含了一個用戶數據表，一個新聞數據表，兩表設計視圖如圖所示，下列說法正確的是（ ）
組卷：1引用：1難度：0.6 -
4．n是一個三位的十六進制數，最低位是C，正確的是（ ）
組卷：0引用：1難度：0.6 -
5．一張未經壓縮的1024*968像素、24位色BMP圖片，在未經壓縮狀態下要改變其文件大小為約900KB，可選擇的操作是（ ）
組卷：0引用：2難度：0.6
二、非選擇題（本題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．某小寫字母字符串加密算法規則如下：
（1）將小寫字符轉換到數字，如“a”-＞1，“z”-＞26，將轉換后的數字分成4個數一組分別存入數組中，最后一組數字不夠的后面補0
（2）將4個數一組的數據，組內做循環右移1位存儲
（3）按照隨機產生的位置矩陣（圖1）（3*4規模，每行內的值為1-4的隨機數，且行內不重復）按行做位置變換，位置矩陣可以循環使用
（1）加密結果和位置矩陣如圖2所示。待加密字符為。
（2）請根據代碼完善如下程序，加框處有錯，請改正。
Dima（1To100）AsInteger,b（1To12）AsInteger
PrivateSubForm_Load （ ）
'產生位置矩陣存入數組b,代碼略
EndSub
PrivateSubCommand1_Click （ ）
DimmAsInteger,nAsInteger,sAsString
Dimres（1To100）AsInteger'加密結果
s=Text1.Text
n=
m=4*n
Fori=1Tom
Ifi＜=Len（s）Then
a（i）=Asc（Mid（s,i,1））-Asc（“a“）+1
Else
a（i）=0
EndIf
Nexti
Fori=1Ton
tmp=a（4*i）
a（j）=a（j-1）
Nextj
a（4*（i-1）+1）=tmp
Nexti
Fori=1Tom
col=（i-1）\4+1
row=（i-1）Mod4+1
res（（col-1）*4+row）=
Nexti
′在列表框List3中輸出加密結果，代碼略組卷：0引用：1難度：0.5 -
16．為了統計學校七選三組合的優秀率，從數據庫中讀取各個七選三組合的學生信息，每個考生的數據包含全校序列號，姓名，選課組合（為7位二進制數，按“物化生政史地技”排列），高考總分。算法規則是：先按照選課組合排列；然后，同一組合的學生，按高考總分進行降序排列；最后，從Textl中讀入百分比rate,在list2中輸出各種組合總分前rate%的平均分。按上述要求，編寫了一個VB程序，功能如下：單擊“導入數據”按鈕command1，在list1中顯示原始數據，單擊“計算個選課前%平均分”按鈕command2，在list2中顯示各組合前rate%的平均分。
（1）若程序運行后數組元素c（7）值為80，則c（9）的值為.
Dimxh（1To500）AsInteger’xm（1To500）AsString,score（1To500）AsInteger
Dimxk（1To500）AsInteger'xk數組存儲學生七選三組合的十進制值
DimnumAsInteger'學生總人數
PrivateSubCommand1_Click （ ）
'連接數據庫，從數據庫中讀取原始數據存入各數組并顯示到LIST1列表框中；
EndSubFunctionD2S（ByValnAsInteger）AsString
'函數功能為把七選三組合的十進制值轉換為中文選科
EndFunction
PrivateSubCommand2_Click （ ）
DimrateAsInteger,iAsInteger,jAsInteger,kAsInteger,posasinteger
Dimxkc（0To127）AsInteger'各組合選科學生數統計
Dimc（0To127）AsInteger,sortxh（1To500）AsInteger
rate=Val（Text1.Text）
Fori=1Tonum
Nexti
Fori=1To127
c（i）=xkc（i）+c（i-1）
Nexti
Fori=1Tonum
k=xk（i）
c（k）=c（k）-1
Nexti
pos=1
Fori=0To127
sum=0
Ifxkc（i）＞0Then
Forj=
Fork=pos+xkc（i）-1Toj+1Step-1
Ifscore（sortxh（k））＞score（sortxh（k-1））Then
t=sortxh（k）：sortxh（k）=sortxh（k-1）：sortxh（k-1）=t
EndIf
Nextk
sum=sum+score（sortxh（j））
Nextj
List2.AddItemD2S（i）+Str（Int（sum/Int（xkc（i）*rate/100）））
EndIf
pos=pos+xkc（i）
Nexti
EndSub組卷：2引用：1難度：0.2