2016年浙江省寧波市高考信息技術模擬試卷（3月份）
發(fā)布：2024/12/11 18:30:2
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）
-
1．《我是歌手》是廣大觀眾十分喜愛的綜藝節(jié)目，工作人員在節(jié)目現場拍攝視頻，并經過后期剪輯，再通過衛(wèi)星信號或網絡信號傳遞到千家萬戶，那么拍攝視頻的過程屬于（ ）
組卷：11引用：3難度：0.9 -
2．小張的QQ號被盜，經過申訴后取回，為了保障QQ號的安全，下列做法合理的是（ ）
①通過申訴取回就表示QQ號是我專用的，不用進行任何操作
②把QQ號與自己的常用手機綁定
③更改QQ密碼為自己的生日
④重新設置QQ密保問題
⑤購買QQ令牌并綁定
⑥更新殺毒軟件并進行完全掃描．組卷：6引用：2難度：0.9 -
3．在word文檔中輸入“computeir”時，發(fā)現其立即變?yōu)椤癱omputer”，這是因為Word軟件具有（ ）
組卷：9引用：3難度：0.9 -
4．字符“A”比“a”的ASCII碼值小32（十進制），已知字符“K”的二進制為1001011，則字符“k”的二進制ASCII碼值是（ ）
組卷：16引用：6難度：0.7 -
5．小紅從網上下載了一個Wave格式的高保真音頻文件，并用GoldWave軟件轉換成了MP3格式，下列說法正確的是（ ）
組卷：4引用：2難度：0.5
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．【加試題】有一英文單詞處理的Visual Basic程序，程序運行效果如第16題圖所示．在界面上方的文本框 Text1 中輸入英文語句，單擊“統(tǒng)計”按鈕（Command1），在右下方的列表框 List1 中顯示英文單詞及其在語句中出現的位置，并在按鈕上方的標簽框 Label2中顯示單詞個數（假定每個單詞中不包含英文字母以外的其他字符）．
實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．
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）+“個“
End Sub.組卷：2引用：1難度：0.1 -
17．【加試題】小張為了處理2015年中國主要城市的GDP數據，他把2015年中國主要城市的GDP據存儲在數據庫文件gdp.jye.ai中．他設計了一個Visual Basic程序，程序運行效果如第17題圖所示．在界面的左側列表框List1中顯示按各城市GDP數值，單擊“按人均GDP排序”按鈕（Command1），在右側列表框List2中顯示排序完成后的結果
（按人均GDP值從高到低排序）．
實現上述功能的VB代碼如下：
（1）請在空格處填入合適代碼．
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 （ ）
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“_
& App.Path &“\gdp.jye.ai“
'上面語句中的“_“為語句換行符，表示下一行內容為本行的繼續(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））
'上面語句中的“_“為語句換行符，表示下一行內容為本行的繼續(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））
'上面語句中的“_“為語句換行符，表示下一行內容為本行的繼續(xù)
Next i
End Sub
（2）若Ⅰ處代碼n=0改為 n=1程序運行結果將不正確，其原因是．組卷：3引用：1難度：0.1