2015-2016學年浙江省金華市東陽二中高二(下)第三次調研信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、選擇題(本大題共3題,每題2分,共6分)
-
1.將一個時長為1分鐘、采樣頻率為44.1kHz、量化位數為16、雙聲道未經壓縮的Wave格式音頻文件壓縮為MP3格式文件,壓縮后的MP3格式文件大小為940KB,則其壓縮比約為( ?。?/h2>
組卷:17難度:0.7
二.綜合填空(本大題共2題,第4小題4分,第5小題5分,共9分)
-
4.【加試題】n個數據的冒泡排序需要經過n-1遍加工,每一遍加工自下而上比較相鄰兩個數據,把較小者交換到上面.小劉發(fā)現(xiàn):當某一遍加工過程中沒有數據交換,說明數據已經有序,無需進一步加工.為此,小劉對算法進行優(yōu)化,編寫了一個VB程序,功能如下:運行程序時,在列表框List1中顯示排序前數據,單擊“排序”按鈕Commaiid1,在列表框List2 中顯示這些數據按升序排序后的結果,在標簽Label3中顯示排序過程的加工遍數.運行效果如圖所示.
實現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯,請改正.
Dim a(1To 8)As Integer
Dim n As Integer
Private Sub Form_Load
'n=8,排序前數據存儲在數組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=“排序過程的加工遍數為“+'(2)
For i=1To n
List2.AddItem Str(a(i))
Next i
End Sub.組卷:14引用:5難度:0.1 -
5.【加試題】某數據加密方法描述如下:
(1)以字節(jié)為單位進行加密處理;
(2)將1個字節(jié)的8位二進制數分割成前4位與后4位兩個二進制數;
(3)分別將上述兩個4位二進制數轉換為十進制數;
(4)將每個十進制數轉換為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'分別存儲分割、轉換后的兩個十進制數
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
'十進制值轉換為加密字符的函數
Function Code2Char(c As Integer) As String
Dim s As String
s=“IlikeCHNpostcard”
Code2Char=②
End Function
(2)若將“密碼表”中值為“0”對應的加密字符“I”改成“i”,加密后的密文可能無法解密,原因是組卷:14難度:0.1