2016-2017學(xué)年浙江省湖州市吳興區(qū)菱湖中學(xué)高三(上)第一次周練信息技術(shù)試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分.在每小題給出的四個選項中,只有一個符合題目要求)
-
1.下列有關(guān)信息的說法,正確的是( ?。?/h2>
組卷:20引用:8難度:0.9 -
2.小明用IE瀏覽一個圖文并茂的網(wǎng)頁,地址欄信息為“http://www.zjedu.gov.cn/default.jye.ai“.下列描述不正確的是( ?。?/h2>
組卷:15引用:7難度:0.9 -
3.下列應(yīng)用中,使用了光學(xué)字符識別(OCR)技術(shù)的是( ?。?/h2>
組卷:5引用:5難度:0.9 -
4.對于數(shù)據(jù)庫和數(shù)據(jù)表,下列說法正確的是( )
組卷:15引用: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):當(dāng)某一遍加工過程中沒有數(shù)據(jù)交換,說明數(shù)據(jù)已經(jīng)有序,無需進一步加工.為此,小劉對算法進行優(yōu)化,編寫了一個VB程序,功能如下:運行程序時,在列表框List1中顯示排序前數(shù)據(jù),單擊“排序”按鈕Commaiid1,在列表框List2 中顯示這些數(shù)據(jù)按升序排序后的結(jié)果,在標(biāo)簽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ù)轉(zhuǎn)換為十進制數(shù);
(4)將每個十進制數(shù)轉(zhuǎn)換為1個加密字符,對應(yīng)的“密碼表”如下:值(十進制) 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'分別存儲分割、轉(zhuǎn)換后的兩個十進制數(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
'十進制值轉(zhuǎn)換為加密字符的函數(shù)
Function Code2Char(c As Integer) As String
Dim s As String
s=“IlikeCHNpostcard”
Code2Char=②
End Function
(2)若將“密碼表”中值為“0”對應(yīng)的加密字符“I”改成“i”,加密后的密文可能無法解密,原因是組卷:14引用:5難度:0.1