2017-2018學(xué)年浙江省臺(tái)州市臨海市白云高級(jí)中學(xué)高二（上）期中信息技術(shù)試卷
發(fā)布：2024/11/7 22:0:2
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題列出的四個(gè)備選項(xiàng)中，只有一個(gè)是符合題目要求，不選、多選、錯(cuò)選均不得分）
-
1．某大型超市經(jīng)理定期要對(duì)超市的銷售數(shù)據(jù)進(jìn)行整理和分析，為下一次采購提供可用的信息，這主要體現(xiàn)了信息的（ ?。?/h2>
組卷：6引用：1難度：0.6 -
2．下列說法中不正確的是（ ）
組卷：13引用：12難度：0.9 -
3．小軒通過OCR軟件識(shí)別了一篇有關(guān)人口普查材料并保存為Word文檔后，發(fā)現(xiàn)文檔中所有的“人口普查“都被誤識(shí)為“人口魯查“．要快速地將文檔中所有的“人口魯查“改為“人口普查“，可使用Word軟件中的（ ?。?/h2>
組卷：22引用：7難度：0.9 -
4．下列關(guān)于數(shù)據(jù)庫的表述中正確的是（ ?。?/h2>
組卷：8引用：1難度：0.3 -
5．在VB中，與語句b=n\10 Mod 10 功能相同的是（ ）
組卷：4引用：1難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題3分，第17小題6分，共26分）
-
16．數(shù)字黑洞數(shù)6174．一個(gè)任意的四位正整數(shù)（四位數(shù)完全相同除外），將數(shù)字重新組合成一個(gè)最大的數(shù)和最小的數(shù)相減，重復(fù)這個(gè)過程，最多七步，必得6174．如取四位數(shù)5462，按以上方法作運(yùn)算如下：
①6542-2456=4086 ②8640-0468=8172
③8721-1278=7443 ④7443-3447=3996
⑤9963-3699=6264⑥6642-2466=4176
⑦7641-1467=6174
從文本框Text1中輸入一個(gè)任意的數(shù)字不完全相同的四位正整數(shù)，在文本框Text2中輸出掉進(jìn)黑洞的步數(shù)．實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請改正：
①②
Private Sub Command1-Click（ ?。?br />Dim a（1 TO4）As Integer,c As Integer,tAs In teger
Dim x As Integer,yAs Integer,iAs Integer,j AsInteger
x=Val（Text1．Text）
c=0
Do While x＜＞6174
For i=l To4'把四位正整數(shù)x的每一位數(shù)字取出來并存放到數(shù)組a中
a（i）=xMod10
'①
Next i
Fori=1To3
Forj=i+lTo4
If
Then'②
t=a（i）：a（i）=a（j）：a（j）=t
end
Next j
Next i
x=a（1）*1000+a（2）^100+a（3）*10+a（4）
y=a（1）+a（2）*10+a（3）*100+a（4）*1000
x=x-y
c=c+1
Loop
Text2．Text=Str（c）
End Sub.組卷：2引用：2難度：0.1 -
17．在計(jì)算機(jī)中用一個(gè)字節(jié)（8位）來存儲(chǔ)一個(gè)字符的ASCII碼，其中低7位二進(jìn)制數(shù)對(duì)應(yīng)字符的編碼，每個(gè)字節(jié)的最高位一般保持為“0”，在數(shù)據(jù)傳輸時(shí)該位可用作奇偶校驗(yàn)位。傳輸時(shí)ASCII代碼轉(zhuǎn)換成傳輸碼的方法是：若7位ASCII碼中有偶數(shù)個(gè)1，則最高位置為1；有奇數(shù)個(gè)1，則最高位置為0．例如字母“A”的ASCII碼十進(jìn)制表示為65，二進(jìn)制表示為1000001．“A”的傳輸碼則為“11000001”，本程序的功能就是把ASCII碼轉(zhuǎn)換成這種傳輸碼，運(yùn)行效果如圖所示。
（1）根據(jù)上述ASCII代碼轉(zhuǎn)換成傳輸碼的方法，字符“D”的傳輸碼為。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適代碼。
Private Sub Command1_Click （ ?。?br />Dim i As Integer,S As String
Dim str As String,ch As String
str=Text1．Text
List1．Clear
For i=1 To Len（str）
ch= ①
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
convert=““
n=Asc（ch）
Do While n＞0
②
convert=m & convert
If m=1 Then
k=k+1
End If
n=n\2
Loop
For i=1 To 7-Len（convert）'將字符的二進(jìn)制代碼補(bǔ)足7位
convert=“0“& convert
Next i
If k Mod 2=0 Then
convert= ③
Else
convert=“0“& convert
End If
End Function
程序中橫線處的代碼應(yīng)為。
程序中橫線處的代碼應(yīng)為。
程序中橫線處的代碼應(yīng)為。組卷：2引用：1難度：0.5