2018-2019學年浙江省五校聯考高三（上）第一次月考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．下列關于信息和信息技術的說法，正確的是（ ）
組卷：9引用：1難度：0.7 -
2．以下哪個軟件無法對網頁進行編輯（ ）
組卷：30引用：1難度：0.6 -
3．小明掃描課本得到“相信未來3．jpg”圖象，使用OCR軟件進行字符識別，部分界面如圖1所示；將識別結果用Word軟件進一步進行編輯，部分界面如圖2所示。
下列說法正確的是（ ）組卷：20引用：4難度：0.5 -
4．如圖所示為在UltraEdit軟件中觀察字符內碼的部分界面：
下列說法正確的是（ ）組卷：26引用：2難度：0.4 -
5．小明利用Access軟件創建了關于員工信息的數據表，如圖所示。
以下說法正確的是（ ）組卷：22引用：2難度：0.3
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．雙調序列：指的是有n個整數進行排序，在序列中第一個數是n個數當中最大數，第二個數是n個數中最小數，第三個數是n個數中的第二大數，第四個是n個數中的第二小數……取過的數字不能再取，依此類推，直到結束。
小明根據上述概念制作了VB應用程序，功能如下：程序運行后，點擊“生成”按鈕Command1隨機生成10個不重復的[0，99]內的整數，列表框List1中顯示排序之前數據；單擊“排序”按鈕Command2，在列表框List2中顯示這些數據的雙調序列結果。其程序界面如圖所示。
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正。
Const n=10
Dim a（1To n） As Integer
Dim b（0To 99）As Integer
Private Sub Command1_Click（ ）
‘隨機生成10個不重復的[0，99]之間的整數，存儲在a數組中，代碼略。
End Sub
Private Sub Command2_Click （ ）
Dim i As Integer,j As Integer,k As Integer
k=0
For i=1To n
'①
Next i
For j=0To 99
If b（j）=1Then
k=k+1
a（k）=j
End If
Next j
For i=1To n\2
List2．AddItem
'②
List2．AddItem Str（a（i））
Next i
End Sub組卷：2引用：1難度：0.5 -
17．小明編寫了一個數據加密的VB程序功能如下：在文本框Text1中輸入明文，單擊“加密”按鈕Command1后在文本框Text2中顯示加密后的密文，運行界面如圖所示。
其中加密算法如下：
①將明文中的ASCII碼每3個字節為一組（該明文字符串均為ASCII碼，且字節數為3的倍數），順次連接后得到24位二進制數
②將①中的24位二進制數每8位進行一次翻轉操作，比如原來的“0101 0001”變為“1000 1010”
③將②所得24位二進制數逐位取反，比如原來的“1110”變為“0001”
④將③中所得的24位二進制數每6位一組轉換為相應的十進制數，即得到對應的密文
⑤將所有密文順序連接并輸出
實現上述功能的VB程序如下，請回答下列問題：
（1）按照上述加密算法進行加密，則“ABC”的密文是（已知“A”的ASCII碼值為65）
（2）請在橫線處填入合適代碼：
Dim a（1To 24）As Integer,k As Integer
Private Sub Command1_Click （ ）
Dim mw As String,ch1As Integer,ch2As String,ch3As String,s As String
Dim m As Integer,i As Integer,j As Integer
s=““
mw=Text1．Text‘mw存儲明文字符串
For i=1To Len（mw） Step 3
For j=1To 24‘初始化數組，用于存儲三個字節的二進制數
a（j）=0
Next j
k=1
ch1=Asc（Mid（mw,i,1））
ch2=Asc（Mid（mw,i+1，1））
ch3=Asc（Mid（mw,i+2，1））
Convert （ch1）‘調用自定義過程Convert
Convert （ch2）
Convert （ch3）
For j=1To 24‘逐位取反
①
Next j
For j=1To 4
m=0
For p=②To j*6‘每6位一組進行權值相加
m=m*2+a（p）
Next p
s=s & m
‘&連接運算符，連接數字和字符串時，會將數字自動轉換為字符串
Next j
Next i
Text2．Text=s
End Sub
Sub Convert（x As Integer）
Dim i As Integer,j As Integer
Do While x＞0
a（k）=x Mod 2
x=x\2
k=k+1
Loop
j=③‘8位二進制數，高位補“0”
k=k+j
End Sub組卷：2引用：1難度：0.4