2017年浙江省绍兴市高考信息技术试卷（3月份）
发布：2024/4/20 14:35:0
一、选择题（共12小题，每小题2分，满分24分）
-
1．下列说法正确的是（ ）
组卷：4引用：1难度：0.9 -
2．下列软件中，用于处理音频的是（ ）
组卷：4引用：1难度：0.9 -
3．用Word编辑某文档，操作界面如图所示．则以下说法正确的是（ ）
组卷：11引用：2难度：0.9 -
4．用Access软件打开某数据库文件，部分界面如图所示．以下说法正确的是（ ）
组卷：5引用：1难度：0.5 -
5．观察“Hello,2017!”的内码如图所示，则字符“!”的二进制ASCII值是（ ）
组卷：7引用：2难度：0.9
二、解答题（共5小题，满分26分）
-
16．每一本正式出版的图书都有一个ISBM号码与之对应，ISBN码包括9位数字、1位识别码和3位分隔符，格式如“x-xxx-xxxxx-x”，其中符号“-”是分隔符，最后一位是识别码．识别码的计算方法如下：首位数字乘以1加上次位数字乘以2…以此类推，用所得的结果除以11，所得的余数即为识别码，如果余数为10，则识别码为大写字母X．例如ISBN号码0-670-82162-4中的识别码4是这样得到的：对067082162这9个数字，从左至右，分别乘以1，2，…，9，再求和，即0×1+6×2+…+2×9=158，然后取158除以11的余数4作为识别码．
小明用VB编写了一个“验证ISBN识别码”的程序，界面如图所示，在列表框List1中显示ISBN码，点击“识别”按钮Command1后，在List2中显示出识别码错误的ISBM码．
实现上述功能VB代码如下，但加框处代码有错，请改正．
Dim a（1 To 100）As String'存储ISBN号码
Private Sub Command1_Click（ ）
Dim st As String,ch As String,k As Integer,i As Integer
Dim sum As Integer,number As Integer
For i=1 To 100
st=a（i）
k=0：s=0
For j=1 To
'①
ch=Mid（st,j,1）
If ch＞=“0“And ch＜=“9“Then
k=k+1
s=s+
'②
End If
Next j
number=s Mod 11
t=Mid（st,j+1，1）
If t=“X“Then
tnum=10
Else
tnum=Val（t）
End If
If number＜＞tnum Then
List2．AddItem“第“+Str（i）+“条“
End If
Next i
End Sub
Private Sub Form_Load（ ）
'把所有的ISBN好保存在a数组中，代码略
End Sub.组卷：7引用：1难度：0.1 -
17．用VB编写的英文单词查找程序如图所示，在文本框Text1中输入文章，在Text2中输入要查找的单词，单击“统计”按钮Command1，在列表框List1显示该单词出现的位置及次数．算法如下：
（1）将文本框Text1中的文章保存到字符串变量s中，Text2中的单词保存到字符串变量s2中．
（2）从左往右扫描字符串s,用字符串word存储文章中依次出现的单词，用整型变量b依次记录文章中每个单词的起始位置，用整型数组pos记录匹配到的单词的起始位置．
按如下方法扫描：
①从左往右扫描，当扫描到第i个字符时，如果是字母，继续扫描，否则，跳转到②，直至扫描结束；
②将b到i-1组成一个单词word,与s2比较，如果相等，把该单词的起始位置b记录到pos数组中，并把b的值更新成下一个字符的位置，再跳转到①．
（3）将pos数组中的位置及出现的总次数依次显示在列表框List1中．
（1）实现上述功能的VB程序如下，请在横线处填入合适的代码．
Private Sub Command1_Click（ ）
Dim pos（1 To 1000）As Integer'存储匹配到的单词位置
Dim word As Srting'存储每次扫描到单词
Dim c As String,s As String,s2 As String
Dim i As Integer,j As Integer,k As Integer
b As Integer,slen As Integer
s=Text1．Text
slen=Len（s）
s2=Text2．Text
j=0'存储每个单词的长度
k=1'存储匹配到第几个单词的下标
b=1'存储每个单词的起始位置
i=1
Do While i＜=slen
c=Mid（s,j,1）
If c＞=“a“And c＞=“A“And c＜=“Z“Then
j=j+1
Else
If j＜＞0 Then
word=
If word=s2 Then
pos（k）=b
k=k+1
End If
j=0
End If
j=0
End If
b=i+1
End If
i=i+1
Loop
List1．AddItem“单词“+s2+“出现的位置为“
For i=1 To k-1
List1．AddItem Str（pos（i））
Next
List1．AddItem“共出现“++“次
End Sub
（2）根据本题算法，如图所示，若在Text2中输入“Your”单词，查找结果（选填：会/不会）产生变化．组卷：10引用：1难度：0.1
