2016-2017學年浙江省湖州市吳興區(qū)菱湖中學高三（上）第一次周練信息技術試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關信息的說法，正確的是（ ）
組卷：20引用：8難度：0.9 -
2．小明用IE瀏覽一個圖文并茂的網(wǎng)頁，地址欄信息為“http://www.zjedu.gov.cn/default.jye.ai“．下列描述不正確的是（ ）
組卷：15引用：7難度：0.9 -
3．下列應用中，使用了光學字符識別（OCR）技術的是（ ?。?/h2>
組卷：5引用：5難度：0.9 -
4．對于數(shù)據(jù)庫和數(shù)據(jù)表，下列說法正確的是（ ?。?/h2>
組卷：16引用：4難度：0.9 -
5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，“x←x-2”被執(zhí)行的次數(shù)為（ ?。?br />
組卷：4引用：5難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．【加試題】n個數(shù)據(jù)的冒泡排序需要經(jīng)過n-1遍加工，每一遍加工自下而上比較相鄰兩個數(shù)據(jù)，把較小者交換到上面．小劉發(fā)現(xiàn)：當某一遍加工過程中沒有數(shù)據(jù)交換，說明數(shù)據(jù)已經(jīng)有序，無需進一步加工．為此，小劉對算法進行優(yōu)化，編寫了一個VB程序，功能如下：運行程序時，在列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Commaiid1，在列表框List2 中顯示這些數(shù)據(jù)按升序排序后的結果，在標簽Label3中顯示排序過程的加工遍數(shù)．運行效果如圖所示．
實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim a（1To 8）As Integer
Dim n As Integer
Private Sub Form_Load
'n=8，排序前數(shù)據(jù)存儲在數(shù)組a中，并在列表框Listl中顯示
'代碼略
End Sub
Private Sub Command1_Click
Dim flag As Boolean'flag值為True表示一遍加工中發(fā)生過交換
i=1
flag=True
Do While'（1）i＜=n-1Or flag=True
flag=False
For j=n To i+1Step-1
If a（j）＜a（j-1）Then
k=a（j）：a（j）=a（j-1）：a（j-1）=k
flag=True
End If
Next j
i=i+1
Loop
Str（i）
Label3．Caption=“排序過程的加工遍數(shù)為“+'（2）
For i=1To n
List2．AddItem Str（a（i））
Next i
End Sub.組卷：14引用：5難度：0.1 -
17．【加試題】某數(shù)據(jù)加密方法描述如下：
（1）以字節(jié)為單位進行加密處理；
（2）將1個字節(jié)的8位二進制數(shù)分割成前4位與后4位兩個二進制數(shù)；
（3）分別將上述兩個4位二進制數(shù)轉換為十進制數(shù)；
（4）將每個十進制數(shù)轉換為1個加密字符，對應的“密碼表”如下：
小明按照上述方法，設計了一個字符串（僅包含ASCII字符）加密的VB程序，功能如下：單擊“加密”按鈕Commandl,程序依次將文本框Textl中每個字符的ASCII碼值作為1個字節(jié)轉換為兩個加密字符，連接這些加密字符，最后在文本框Text2中輸出加密結果．如圖1顯示了字符串中一個字符的加密過程：值（十進制） 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 加密字符 I l i k e C H N P 0 s t c a r d 
程序運行效果如圖2所示．
實現(xiàn)上述功能的VB程序如下：
（1）請?zhí)钊牒线m代碼．
Private Sub Command1_Click （ ?。?br />Dim n As Integer,s As String,i As Integer,ss As String
Dim a As Integer'存儲加密前字符的ASCII碼
Dim b1As Integer,b2As Integer'分別存儲分割、轉換后的兩個十進制數(shù)
s=Text1．Text
①
For i=1To n
a=Asc（Mid（s,i,1））
b1=a\16
b2=a Mod 16
ss=ss+Code2Char（b1）+Code2Char（b2）
Text2．Text=ss
Next i
End Sub
'十進制值轉換為加密字符的函數(shù)
Function Code2Char（c As Integer） As String
Dim s As String
s=“IlikeCHNpostcard”
Code2Char=②
End Function
（2）若將“密碼表”中值為“0”對應的加密字符“I”改成“i”，加密后的密文可能無法解密，原因是．組卷：14引用：5難度：0.1