2017-2018学年浙江省杭州市高二（下）期末信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分，每小题列出的四个备选项中只有一个是符合题目要求的，不选、错选、多选均不得分．）
-
1．下列能提升计算机系统安全性的操作有（ ）
①开启杀毒软件的自动运行查杀功能
②用浏览器直接打开陌生网址
③将管理员密码修改为便于记忆的“123456”等字符
④使用Windows操作系统自动更新功能进行软件更新，修复系统漏洞组卷：14引用：3难度：0.3 -
2．下列用于浏览器与WEB服务器之间信息传输的协议是（ ）
组卷：2引用：1难度：0.6 -
3．使用OCR软件进行字符识别时，部分操作界面如图所示。
下列说法不正确的是（ ）组卷：11引用：2难度：0.8 -
4．下列关于数据库和数据表的描述不正确的是（ ）
组卷：3引用：1难度：0.6 -
5．某算法的部分流程图如图所示，执行这部分流程后，变量a,b的输出值分别是（ ）
组卷：0引用：1难度：0.4
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）
-
16．某排序算法如下：每一趟将一个待排序数据，按其值的大小使用对分查找思想在已排序序列中找到合适位置并插入，将所有待排序数据全部插入即完成排序。实现该算法的程序如下：在列表框List1中显示待排序数据，单击“排序”按钮Command1后，逐行显示排序过程。程序运行结果如图所示。
实现上述功能的VB程序如下，加框处代码有错，请改正。
Const n=10'变量n存储待排序数据个数
Dim d（1To n） As Integer'数组d存储待排序数据
Private Sub APrint （ ）
'本过程实现在列表框一行中输出数组d各个元素的值，代码略。
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer,tmp As Integer
Dim m As Integer,low As Integer,high As Integer
'先将待排序数据存储在数组d中，代码略。
List1．AddItem“-----------待排序数据------------“
Call Aprint'在列表框List1中输出数组d的各个元素的值
List1．AddItem“-----------数据排序过程------------“
For i=2To n
tmp=d（i）
low=1
′（1）
Do While low＜=high
m=（low+high）\2
If tmp＜=d（m） Then
high=m-1
Else
low=m+1
End If
Loop
For j=i-1To low Step-1
d（j+1）=d（j）
Next j
′（2）
Call APrint
Next i
End Sub组卷：12引用：1难度：0.8 -
17．某编码由4个信息位和3个校验位组成，通过对编码信息进行验算，能够检测并纠正一位错误代码。该7位编码中b1～b4为信息位，p1～p3为校验位，位置如下：
校验的方式如下，求校验值g1、g2、g3：编码中位 1 2 3 4 5 6 7 对位信息 p1 p2 b1 p3 b2 b3 b4
g1=p1Xor b1Xor b2Xor b4
g2=p2Xor b1Xor b3Xor b4
g3=p3Xor b2Xor b3Xor b4
其中Xor为异或运算，规则是：0Xor 0=0，0Xor 1=1，1Xor 0=1，1Xor 1=0，p1Xor b1是将p1、b1转换为二进制后按位进行异或运算，如7Xor 12的结果为11。
（1）若计算得到的校验值g1、g2、g3均为0，说明校验正确，数据无错误。例如：若7位编码为1101001，计算校验值g1、g2、g3值均为0，验证正确。
（2）若校验值g1、g2、g3不全为0，说明数据有错，出错位置为g3g2g1（二进制数表示），纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7位编码为1111001，计算校验值g1=1、g2=1、g3=0，不全为0，说明数据有错，错误位置在011（二进制数）位，即第3位，原位置上“1”应为“0”，正确编码为1101001。
小明为此编写了VB程序，程序运行时，在文本框Text1中输入编码值，单击“校验”按钮Command1后，在文本框Text2中输出运行结果，如图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）若按上述规则的7位编码为1001000，其中一位有错，则正确的编码应为。
（2）请在横线处填入合适的代码。
Function check（s As String） As Integer
Dim i As Integer,g1As Integer,g2As Integer,g3As Integer
Dim c（1To 7）As Integer
For i=1To 7
c（i）=Val（Mid（s,i,1））
Next i
g1=c（1）Xor c（3）Xor c（5）Xor c（7）
g2=c（2）Xor c（3）Xor c（6）Xor c（7）
g3=c（4）Xor c（5）Xor c（6）Xor c（7）
If g1+g2+g3=0Then check=0Else check=
End Function
Private Sub Command1_Click （ ）
Dim i As Integer,m As Integer,Outs As String
m=
If m=0Then
Text2．Text=“验证正确，数据无错误“
Else
For i=1To 7
If i=m Then
Outs=Outs+Chr（Asc（Mid（Text1．Text,i,1）） Xor）
Else
Outs=Outs+Mid（Text1．Text,i,1）
End If
Next i
Text2．Text=“第“+Str（m）+“位上数据有错误，正确编码应为：“+Outs
End If
End Sub组卷：2引用：1难度：0.4
