2017年浙江省高考信息技术检测试卷（一）
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分．每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
-
1．下列关于信息的说法不正确的是（ ）
组卷：18引用：2难度：0.9 -
2．有如下Visual Basic程序段：
A=“Happy new year！”
B=Len（A）\2
C=63 Mod 10
Text1．Text=Mid（A，B，C）
该程序运行后文本框text1显示的内容为（ ）组卷：11引用：2难度：0.9 -
3．下列过程没有涉及到人工智能技术的是（ ）
组卷：10引用：3难度：0.9 -
4．若将视频文件“片头．mpg”的声音分离并保存成一个独立的声音文件，下列软件中能实现该功能的是（ ）
组卷：4引用：2难度：0.7 -
5．如图所示的部分流程图中，“s←s+i”被执行次数为（ ）
组卷：5引用：2难度：0.7
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
-
16．统计单词个数．小明要参加英语等级考试，正在苦练写作，为了快速统计文章中单词的个数，他设计了如下VB程序，只要在文本框Text1中输入短文，单击统计按钮，单词的个数就在Text2中显示（假定每个单词中不包含英文字母以外的其他字符）．
算法的基本思路：按位取出字符，如果是字母，并且flag=False,说明是一个单词的开始，则单词个数增加1，flag置为True,余下的连续字母不再计数．如果读入非字母，则表示一个单词已经完成，flag重新置为False,继续循环．
程序界面如图所示，按此要求编写程序如下，但加框处代码有错，请改正．
Private Sub Command1_Click （ ）
Dim x As String,y As String
Dim n As Integer,m As Integer,flag As Boolean
x=Text1．Text
m=0：flag=False
For i=1To Len（x）
y=xtod（Mid（x,i,1））
If y＞=“A”And y＜=“Z”Then
If
Then’①
m=m+1
flag=True
End If
Else
flag=False
End If
Next
Text 2．Text=Str（m）
End Sub
Function xtod（ch As String） As String’将小写字母转化为大写字母．
If ch＞=“a”And ch＜=“z”Then
xtod=
’②
Else
xtod=ch
End If
End Function
（1）加框处①有错，应改为．
（2）加框处②有错，应改为．组卷：5引用：2难度：0.3 -
17．小王利用VB及ACCESS数据库制作了一个解密程序，具体使用过程如下：
在VB项目文件夹目录中有一个ACCESS数据库文件data.accdb,其中有一张数据表如图1所示ask字段中存放的是密文字符，对应ans字段中存放的是明文字符．
VB程序界面如图2所示，其中一个按钮Command1的Caption属性值设置为“读取密码本”，另一个按钮Command2的Caption属性值设置为“解密”．程序运行后先点击Command1，程序将从ACCESS数据库中读取明文密文对照表并显示在列表框List1中．然后在密文文本框Texe1中输入加密文字，点击Command2解密后的明文将显示在Text2中．
程序代码部分如下，请回答后面的问题：
Dim a （ ）As String
Dim b （ ） As String
Dim length As Integer
Private Sub Command1_Click （ ）
List1．Clear
Dim i As Integer
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=”& App.Path &
“\①”
conn.Open
rs.ActiveConnection=conn
rs.CursorLocation=adUseClient
rs.Open （“select*from code”）
length=rs.RecordCount
ReDim a（1To length）
ReDim b（1To length）
rs.MoveFirst
For i=1To length
a（i）=rs.Fields（“ask”）
b（i）=rs.Fields（“ans”）
List1．AddItem （a（i）&“”&b（i））
rs. ②
Next i
End Sub
Private Sub Command2_Click （ ）
Text2．Text=“”
Dim s As String
Dim i As Integer
s=Text1．Text
For i=1To Len（s）
Text2．Text=Text2．Text&translate（Mid（s,③ ））
Next i
End Sub
Function translate（ask As String） As String
Dim i as Integer
Dim flag as Boolean
i=1
flag=True
Do While i＜=length And flag
If a（i）=ask Then
④
End If
i=i+1
Loop
If flag=True Then
translate=“”
Else
translate=b（i-1）
End If
End Function
（1）程序代码①处应该填入．
（2）程序代码②处应该填入．
（3）在程序代码③处补全Mid函数：．
（4）程序代码④处应该填入．
（5）translate函数使用的查找算法是（填对分查找/顺序查找）．组卷：7引用：1难度：0.1
