2020年浙江省杭州市建人高復高考信息技術模擬試卷（4月份）
發布：2024/11/2 12:0:2
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列有關信息說法錯誤的是（ ?。?/h2>
組卷：3引用：1難度：0.7 -
2．使用OCR軟件將一篇報紙中的文字識別為文字，后在Word軟件中進行排版與編輯，部分編輯界面如圖所示，下列說法正確的是（ ?。?br />
組卷：2難度：0.6 -
3．下列不屬于人工智能技術應用的是（ ）
組卷：2引用：2難度：0.6 -
4．使用ACCESS軟件創建“圖書館藏書登記”數據表，其設計視圖部分界面如圖所示。下列說法正確的是（ ?。?/h2>組卷：0引用：1難度：0.7 -
5．使用UltraEdit軟件查看字符內碼，界面如圖所示，下列分析正確的是（ ）
組卷：6引用：1難度：0.5
二、非選擇題（本大題共4小題，第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小明編寫了一個有關整數閉區間合并操作的VB程序：從數據庫讀取閉區間數據（左端點和右端點），存儲在數組a中，按區間數據左端點升序排序，然后進行合并操作，操作結果存儲在數組b中。
例如，讀取的數據為2、3、15、25、10、14、1、5、30、60、15、25，過程是：
（1）設置區間信息為[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]；
（2）按區間左端點升序排序，得到J區間信息為[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]，[15，25]；
（3）合并區間，得到[1，5]，[10，25]，[30，60]．說明：區間[1，5]和[2，3]合并為[1，5]，區間[10，14]和[15，25]合并為[10，25]，區間[10，25]和[15，25]合并為[10，25]，因此合并后的結果為：[1，5]，[10，25]，[30，60]三個區間。
程序功能如下：單擊“讀數據庫”按鈕Command1，程序從數據庫讀取數據，輸出在文本框Text1中；單擊“開始處理”按鈕Command2，程序進行區間排序，并進行區間合并操作，操作后的結果輸出在文本框Text2中。程序運行結果如圖所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）PrivateSubCommand1_CIick （ ）中的Click（ ?。?是（單選，填字母：A對象名、B屬性名、C事件名、D事件處理過程名）
（2）從數據庫中讀入的區間為[1，10]，[15，20]，[6，18]，[25，30]，[31，200]，則合并操作后的區間為。
（3）請在橫線處填入合適的代碼。
Dima（lTo100）AsInteger′數組a存儲合并前的區間
Dimb（lTo100）AsInteger′數組b存儲合并后的區間
DimnAsInteger′n表示區間個數
PrivateSubCommand1_Click （ ?。?br />Dims1AsString,iAsInteger
'讀取數據，并存儲到數組a中，并輸出在文本框Text1中，代碼略
EndSub
PrivateSubCommand2_Click （ ?。?br />Dims2AsString,iAsInteger,jAsInteger,kAsInteger
DimnAsInteger,tAsInteger,xAsInteger
Fori=1Ton-1
Forj=1To2*n-2*iStep2
If①Then
t=a（j）：a（j）=a（j+2）：a（j+2）=t
t=a（j+1）：a（j+1）=a（j+3）：a（j+3）=t
EndIf
Nextj
Nexti
k=2
b（1）=a（1）：b（2）=a（2）
i=2：j=3
DoWhilej＜=2*n
Ifb（i）＞=a（j）Then
Ifb（i）＜=a（j+1）Then?、?!--BA-->
ElseIfb（i）+1=a（j）Then
b（k）=a（j+l）
Else
k=k+1：③
k=k+1：b（k）=a（j+1）
i=i+2
EndIf
j=j+2
Loop
Forx=1Tok-2Step2
s2=s2&″[″&b（x）&″，″&b（x+1）&″]″&″，″
Nextx
s2=s2&″[″&b（x）&″，″&b（x+1）&″]″
Text2．text=s2
EndSub組卷：8引用：1難度：0.3 -
16．某編碼由4個信息位和3個校驗位組成，通過對編碼信息進行驗算，能夠檢測并糾正一位錯誤代碼。該7位編碼中b1～b4為信息位，p1～p3為校驗位，位置如表：
校驗的方式如下，求校驗值g1、g2、g3：編碼中位 1 2 3 4 5 6 7 對位信息 p1 p2 b1 p3 b2 b3 b4
g1=p1Xorb1Xorb2Xorb4
g2=p2Xorb1Xorb3Xorb4
g3=p3Xorb2Xorb3Xorb4
其中Xor為異或運算，規則是：0Xor0=0，0Xor1=1，1Xor0=1，1Xor1=0，
p1Xorb1是將p1、b1轉換為二進制后按位進行異或運算，如7Xor12的結果為11。
（1）若計算得到的校驗值g1、g2、g3均為0，說明校驗正確，數據無錯誤。例如：若7位編碼為1101001，計算校驗值g1、g2、g3值均為0，驗證正確。
（2）若校驗值g1、g2、g3不全為0，說明數據有錯，出錯位置為g3g2g1（二進制數表示），糾錯的方法是對錯誤的位進行取反，即“0”變“1”，“1”變“0”。例如：若7位編碼為1111001，計算校驗值g1=1、g2=1、g3=0，不全為0，說明數據有錯，錯誤位置在011（二進制數）位，即第3位，原位置上“1”應為“0”，正確編碼為1101001。
小明為此編寫了VB程序，程序運行時，在文本框Text1中輸入編碼值，單擊“校驗”
按鈕Command1后，在文本框Text2中輸出運行結果，如圖所示。
實現上述功能的VB程序如下，請回答下列問題：
（1）若按上述規則的7位編碼為1001000，其中一位有錯，則正確的編碼應為。
（2）請在橫線處填入合適的代碼。
Functioncheck（sAsString）AsInteger
DimiAsInteger,g1AsInteger,g2AsInteger,g3AsInteger
Dimc（1To7）AsInteger
Fori=1To7
c（i）=Val（Mid（s,i,1））
Nexti
g1=c（1）Xorc（3）Xorc（5）Xorc（7）
g2=c（2）Xorc（3）Xorc（6）Xorc（7）
g3=c（4）Xorc（5）Xorc（6）Xorc（7）
Ifg1+g2+g3=0Thencheck=0Elsecheck=①
EndFunction
PrivateSubCommand1_Click （ ?。?br />DimiAsInteger,mAsInteger,OutsAsString
m=②
Ifm=0Then
Text2．Text=″驗證正確，數據無錯誤″
Else
Fori=1To7
Ifi=mThen
Outs=Outs+Chr（Asc（Mid（Text1．Text,i,1））Xor③）
Else
Outs=Outs+Mid（Text1．Text,i,1）
EndIf
Nexti
Text2．Text=″第″+Str（m）+″位上數據有錯誤，正確編碼應為：″+Outs
EndIf
EndSub組卷：3難度：0.1