2016-2017學(xué)年浙江省杭州周邊四校高三（上）期中信息技術(shù)試卷
發(fā)布：2024/12/2 9:30:2
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項(xiàng)中，只有一個符合題目要求）
-
1．校慶100周年時，小慶用數(shù)碼攝像機(jī)拍攝表演的節(jié)目，數(shù)碼攝像機(jī)的CCD芯片自動將光信號轉(zhuǎn)換成0和1的數(shù)字信號，這個過程屬于（ ?。?/h2>
組卷：4引用：1難度：0.9 -
2．用UltraEdit軟件觀察“Bonnie@163．com”這幾個字符的內(nèi)碼，如圖所示．
則“&Andy”這幾個字符的內(nèi)碼是（ ?。?/h2>組卷：10引用：2難度：0.9 -
3．小蓓利用Access 2010軟件打開暢銷書列表，界面如圖所示，下列說法中正確的是（ ?。?br />
組卷：3引用：1難度：0.9 -
4．“Parkour”一詞翻譯成中文為“跑酷”，《地鐵沖浪》就是一款流行的移動設(shè)備跑酷游戲，其軟件開發(fā)團(tuán)隊(duì)在制作前先調(diào)查研究了用戶對該產(chǎn)品的需求情況，這屬于多媒體作品制作過程（ ?。?/h2>
組卷：10引用：6難度：0.9 -
5．小梅使用Word編輯文檔時的界面如圖所示，下列說法中正確的是（ ?。?br />
組卷：19引用：3難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．[加試題]素數(shù)又稱質(zhì)數(shù)，指在一個大于1的自然數(shù)中，除了1和此整數(shù)自身外，不能被其他自然數(shù)整除的數(shù)．超級質(zhì)數(shù)的定義為：當(dāng)一個素數(shù)從低位到高位依次去掉最后一位數(shù)后，剩下的數(shù)仍然是素數(shù)，則此數(shù)為超級素數(shù)．例如：3137、313、31、3均為素數(shù)，所以3137為超級素數(shù)．小蓉設(shè)計(jì)了一個程序查找四位正整數(shù)中的超級素數(shù)．
程序運(yùn)行時，單擊Command1，則在列表框List1中顯示所有四位數(shù)的超級素數(shù)，并在標(biāo)簽Label1中顯示超級素數(shù)的數(shù)量．程序運(yùn)行效果如圖所示．
實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼．
Private Sub Command1_Click （ ?。?br />Dim i As Integer,t As Integer,c As Integer
Dim flag As Boolean
c=0
For i=1001To 9999Step 2
t=i
flag=True
Do While t＜＞0
If ① Then
flag=False
Exit Do
End If
t=t\10
Loop
If flag Then
List1．AddItem Str（i）
②
End If
Next i
Label1．Caption=“四位超級素數(shù)共有“+Str（c）+“個“
End Sub
Function prime（x As Integer） As Boolean
Dim i As Integer
prime=True
For i=2To x-1
If ③ Then
prime=False
Exit Function
End If
Next i
End Function
（1）①處的代碼為．
②處的代碼為．
③處的代碼為．
（2）該程序的算法為．（選填：枚舉算法/解析算法）組卷：2引用：1難度：0.1 -
17．[加試題]計(jì)算機(jī)中用一個字節(jié)來存儲一個字符的ASCII碼，低7位二進(jìn)制為ASCII編碼，在傳輸數(shù)據(jù)時最高位可作為奇偶校驗(yàn)位，具體方法是：若7位ASCII編碼有偶數(shù)個1，最高位為1，有奇數(shù)個1，則最高位為0．例如字母“A”的ASCII編碼是65（二進(jìn)制為1000001），則“A”的傳輸碼是“11000001”．小馬編寫了一個VB程序，把ASCII編碼轉(zhuǎn)換成傳輸碼，程序界面如圖所示．
（1）如果輸入字母“F”，則它的傳輸碼是．
（2）具體的VB程序如下，請?jiān)跈M線處填入合適代碼．
Private Sub Command1_Click （ ?。?br />Dim s As String,i As Integer
Dim str As String,ch As String
List1．Clear
str=Text1．Text
For i=1To Len（str）
s=convert（ch）
List1．AddItem ch &“→“& s
Next i
End Sub
Private Function convert（ch As String） As String
Dim m As Integer,k As Integer,n As Integer,i As Integer,s As String
s=““
n=Asc（ch）
Do While n＞0
s=m & s
If m=1Then
k=k+1
End If
n=n\2
Loop
For i=1To 7-Len（s）
s=“0“& s
Next i
If k Mod 2=0Then
s=“1“& s
Else
s=“0“& s
End If
End Function.組卷：2引用：1難度：0.1