2016年浙江省宁波市高考信息技术模拟试卷（3月份）
发布：2024/12/11 18:30:2
一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．《我是歌手》是广大观众十分喜爱的综艺节目，工作人员在节目现场拍摄视频，并经过后期剪辑，再通过卫星信号或网络信号传递到千家万户，那么拍摄视频的过程属于（ ）
组卷：11引用：3难度：0.9 -
2．小张的QQ号被盗，经过申诉后取回，为了保障QQ号的安全，下列做法合理的是（ ）
①通过申诉取回就表示QQ号是我专用的，不用进行任何操作
②把QQ号与自己的常用手机绑定
③更改QQ密码为自己的生日
④重新设置QQ密保问题
⑤购买QQ令牌并绑定
⑥更新杀毒软件并进行完全扫描．组卷：6引用：2难度：0.9 -
3．在word文档中输入“computeir”时，发现其立即变为“computer”，这是因为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 中输入英文语句，单击“统计”按钮（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“
'上面语句中的“_“为语句换行符，表示下一行内容为本行的继续 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））
'上面语句中的“_“为语句换行符，表示下一行内容为本行的继续
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））
'上面语句中的“_“为语句换行符，表示下一行内容为本行的继续
Next i
End Sub
（2）若Ⅰ处代码n=0改为 n=1程序运行结果将不正确，其原因是．组卷：3引用：1难度：0.1
