2018-2019學年浙江省杭州市建人高復學校高三（上）第一次月考信息技術試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列軟件中，可用于編輯視頻文件的是（ ?。?/h2>
組卷：3引用：1難度：0.9 -
2．某網(wǎng)絡協(xié)議的功能是將瀏覽器發(fā)出的請求發(fā)送至 Web 服務器，并將服務器回應的網(wǎng)頁傳回瀏覽器。該協(xié)議的名稱是（ ）
組卷：2引用：2難度：0.8 -
3．用Word編輯某文檔，操作界面如圖所示．則以下說法正確的是（ ?。?br />
組卷：11引用：2難度：0.9 -
4．使用Access軟件創(chuàng)建的“動漫作品”數(shù)據(jù)表，其設計視圖的部分界面如圖所示。下列說法正確的是（ ?。?img alt src="http://img.jyeoo.net/quiz/images/201810/74/169c3214.png" style="vertical-align:middle" />
組卷：6引用：1難度：0.3 -
5．如圖所示，從上到下5行分別對應5個十進制數(shù)：1，2，3，4，5．〇〇●〇〇●●〇表示的數(shù)是（ ?。?/h2>組卷：0引用：1難度：0.9
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．小王編寫了一個猜價格的VB程序，程序界面如圖所示。程序運行時，在列表框List1中顯示20個隨機生成的在[150，250]之間的價格及其序號。在文本框Text1中輸入報價，單擊Command1“猜測”按鈕后，在Label3中輸出猜中價格對應的序號。
實現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請改正。
Dim d（1To 20）As Integer
Private Sub Form_Load（ ?。?br />For i=1To 20'生成20個隨機價格
‘（1）
Next i
For i=1To 19
For j=20To i+1Step-1
If d（j）＜d（j-1）Then
t=d（j）：d（j）=d（j-1）：d（j-1）=t
End If
Next j
Next i
For i=1To 20
List1．AddItem Str（i）+Str（d（i））
Next i
End Sub
Private Sub Command1_Click （ ）
Dim baojia As Integer,i as integer,j as integer,t as integer,m as integer
Randomize
List1．Clear
baojia=Val（Text1．Text）
i=1
j=20
Do While i＜=j
‘（2）
If baojia=d（m） Then
Label3．Caption=“猜中 第“+Str（i）+“個“
Exit Do
ElseIf baojia＜d（m） Then
j=m-1
Else
‘（3）
End If
Loop
End Sub組卷：2引用：1難度：0.5 -
17．某數(shù)據(jù)解密方法描述如下：對輸入的密文（由英文字母或阿拉伯數(shù)字組成的字符串）進行解密，解密后輸出明文。解密時對密文中的每個字符進行如下處理：
（1）將該字符的ASCII碼轉(zhuǎn)換成對應的8位二進制；
（2）將對應的8位二進制數(shù)進行按位取反（1變0，0變1）；
（3）將產(chǎn)生的8位二進制數(shù)循環(huán)左移2次；
（4）將最后產(chǎn)生的8位二進制數(shù)轉(zhuǎn)換成對應的十六進制數(shù)。
例如，密文小寫字母“d”通過上述解密算法解密后生成的明文是“6E”，信息加密過程如圖b所示。
實現(xiàn)上述功能的VB程序如下：在文本框Text1中輸入密文，單擊“解密”按鈕Command1，程序?qū)γ芪臄?shù)據(jù)依次進行解密處理，在文本框Text2中顯示解密后生成的明文。程序運行界面如圖c所示。
實現(xiàn)上述功能的VB程序如下，請回答下列問題：
（1）如果輸入密文為小寫字母“a”，則解密后得到的明文是。
（2）請在橫線處填入合適代碼。
Function jiemi（m As String） As String'將4位二進制數(shù)轉(zhuǎn)換成相應的十六進制數(shù)
Dim k As Integer,i As Integer
Dim str As String
str=“0123456789ABCDEF“
k=0
For i=1To 4
k=k*2+Val（Mid（m,i,1））
Next i
End Function
Private Sub Command1_Click （ ?。?br />Dim ans As String,s As String,ch As String,ret As String
Dim s1As String,s2As String
Dim i As Integer,m As Integer,asc1As Integer,n As Integer
s=Text1．Text
ans=““
For i=1To Len（s）
ch=Mid（s,i,1）'取出第i個字符存入變量ch
asc1=Asc（ch）
ret=““
For m=1To 8'完成解密步驟（1）和步驟（2）
ret=n & ret
asc1=asc1\2
Next m
ret=Mid（ret,3，6）+Mid（ret,1，2）'完成解密步驟（3）
s1=jiemi（Mid（ret,1，4））
ans=ans& s1 & s2'將第i個解密后的字符添加到變量ans的末尾
Next i
Text2．Text=ans
End Sub組卷：2引用：1難度：0.5