2016年浙江省寧波市高考信息技術(shù)模擬試卷（3月份）
發(fā)布：2024/12/11 18:30:2
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)是符合題目要求的，不選、多選、錯(cuò)選均不得分）
-
1．《我是歌手》是廣大觀眾十分喜愛(ài)的綜藝節(jié)目，工作人員在節(jié)目現(xiàn)場(chǎng)拍攝視頻，并經(jīng)過(guò)后期剪輯，再通過(guò)衛(wèi)星信號(hào)或網(wǎng)絡(luò)信號(hào)傳遞到千家萬(wàn)戶，那么拍攝視頻的過(guò)程屬于（ ?。?/h2>
組卷：11引用：3難度：0.9 -
2．小張的QQ號(hào)被盜，經(jīng)過(guò)申訴后取回，為了保障QQ號(hào)的安全，下列做法合理的是（ ?。?br />①通過(guò)申訴取回就表示QQ號(hào)是我專用的，不用進(jìn)行任何操作
②把QQ號(hào)與自己的常用手機(jī)綁定
③更改QQ密碼為自己的生日
④重新設(shè)置QQ密保問(wèn)題
⑤購(gòu)買QQ令牌并綁定
⑥更新殺毒軟件并進(jìn)行完全掃描．組卷：6引用：2難度：0.9 -
3．在word文檔中輸入“computeir”時(shí)，發(fā)現(xiàn)其立即變?yōu)椤癱omputer”，這是因?yàn)閃ord軟件具有（ ?。?/h2>
組卷：9引用：3難度：0.9 -
4．字符“A”比“a”的ASCII碼值小32（十進(jìn)制），已知字符“K”的二進(jìn)制為1001011，則字符“k”的二進(jìn)制ASCII碼值是（ ）
組卷：16引用：6難度：0.7 -
5．小紅從網(wǎng)上下載了一個(gè)Wave格式的高保真音頻文件，并用GoldWave軟件轉(zhuǎn)換成了MP3格式，下列說(shuō)法正確的是（ ）
組卷：4引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．【加試題】有一英文單詞處理的Visual Basic程序，程序運(yùn)行效果如第16題圖所示．在界面上方的文本框 Text1 中輸入英文語(yǔ)句，單擊“統(tǒng)計(jì)”按鈕（Command1），在右下方的列表框 List1 中顯示英文單詞及其在語(yǔ)句中出現(xiàn)的位置，并在按鈕上方的標(biāo)簽框 Label2中顯示單詞個(gè)數(shù)（假定每個(gè)單詞中不包含英文字母以外的其他字符）．
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
Private Sub Command1_Click（ ）
Dim a（1To 1000）As String
Dim d（1To 1000）As Integer
List1．Clear s=Text1．Text
slen=Len（s） j=0 k=1
b=1
For i=1To slen
c=Mid（s,i,1）
If
Then'（1）
If j＜＞0 Then
a（k）=Mid（s,b,j）
d（k）=b
k=k+1
j=0
End If
b=i+1
Else
j=j+1
End If
Next i
For i=1To k-1
List1．AddItem
+““+a（i）'（2）
Next
Label2．Caption=Str（k-1）+“個(gè)“
End Sub.組卷：2引用：1難度：0.1 -
17．【加試題】小張為了處理2015年中國(guó)主要城市的GDP數(shù)據(jù)，他把2015年中國(guó)主要城市的GDP據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)文件gdp.jye.ai中．他設(shè)計(jì)了一個(gè)Visual Basic程序，程序運(yùn)行效果如第17題圖所示．在界面的左側(cè)列表框List1中顯示按各城市GDP數(shù)值，單擊“按人均GDP排序”按鈕（Command1），在右側(cè)列表框List2中顯示排序完成后的結(jié)果
（按人均GDP值從高到低排序）．
實(shí)現(xiàn)上述功能的VB代碼如下：
（1）請(qǐng)?jiān)诳崭裉幪钊牒线m代碼．
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim n As Integer,i As Integer,j As Integer
Dim t As Long,ts As String
Dim a（1To 200）As Integer
Dim c（1To 200）As String
Dim g（1To 200）As Long
Dim p（1To 200）As Long
Private Sub Form_Load （ ?。?br />conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“_
& App.Path &“\gdp.jye.ai“
'上面語(yǔ)句中的“_“為語(yǔ)句換行符，表示下一行內(nèi)容為本行的繼續(xù) conn.Open
Set rs.ActiveConnection=conn rs.Open“SELECT*FROM dGDP“
n=0'Ⅰ處代碼
Do While Not rs.EOF n=n+1 a
（n）=rs.Fields（“GDP排名“）．Value c（n）=rs.Fields（“城市“）．Value
g（n）=rs.Fields（“GDP“）．Value p（n）=rs.Fields（“人均GDP“）．Value
List1．AddItem Str（a（n））+““+c（n）+““+_
Str（g（n））+““+Str（p（n））
'上面語(yǔ)句中的“_“為語(yǔ)句換行符，表示下一行內(nèi)容為本行的繼續(xù)
rs.MoveNext Loop rs.Close conn.Close
Set rs=Nothing
Set conn=Nothing
End Sub
Private Sub Command1_Click （ ）
For i=1To n-1
For j=①To n
If p（i）＜p（j） Then
a（i）=a（i）+a（j）
a（j）=a（i）-a（j）
②P
ts=c（i）
c（i）=c（j）
c（j）=ts
t=g（i）
g（i）=g（j）
g（j）=t
t=p（i）
p（i）=p（j）
p（j）=t
End If
Next j
Next i
List2．Clear
For i=1To n
List2．AddItem Str（a（i））+““+c（i）+““+_
Str（g（i））+““+Str（p（i））
'上面語(yǔ)句中的“_“為語(yǔ)句換行符，表示下一行內(nèi)容為本行的繼續(xù)
Next i
End Sub
（2）若Ⅰ處代碼n=0改為 n=1程序運(yùn)行結(jié)果將不正確，其原因是．組卷：3引用：1難度：0.1