2016-2017学年浙江省稽阳联谊学校高三（上）月考信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（共12小题，每小题2分，满分24分）
-
1．下列做法符合信息安全的是（ ）
①用智能手机随意扫描商家发来的二维码以便获取优惠
②网上下载共享软件后先查杀病毒再安装使用
③不随意打开陌生邮件中的exe格式的附件
④为方便记忆用自己的出生年月作为网上银行登录密码
⑤定期安装操作系统补丁并升级杀毒软件．组卷：3引用：1难度：0.9 -
2．某人注册电子邮箱，界面如图所示，则下列说法不正确的是（ ）
组卷：4引用：1难度：0.9 -
3．下列应用不属于人工智能的是（ ）
组卷：2引用：1难度：0.9 -
4．下列关于数据库描述不正确的是（ ）
组卷：7引用：1难度：0.5 -
5．某算法的部分流程图如图所示，执行该流程图，下列描述正确的是（ ）组卷：11引用：4难度：0.7
二、解答题（共5小题，满分26分）
-
16．某人编写了一个VB程序对一组随机数进行排名．程序运行时，产生10个随机整数，并在列表框List1中显示，单击按钮Command1，在列表框List2中显示降序排序后数据及名次，若数值相同则名次相同．实现上述功能的VB代码如下，但加框处代码有错，请改正．
Const n=10
Dim d（1 To n）As Integer,pm（1 To n）As Integer
Private Sub From-Load（ ）
'代码略，本过程功能：产生10个随机整数，存储在数组变量d中并在列表框'List1中显示
End Sub
Private Sub Command_Click （ ）
Dim i As Integer,j As Integer,k As Integer,t As Integer
i=1
Do While i＜=n-1
k=i
For j=i+1 To n
If
Then k=j'（1）
Next j
If i＜＞k Then t=d（i）：d（i）=d（k）：d（k）=t
i=i+1
Loop
pm（1）=l
For i=2 To n
If
Then'（2）
pm（i）=i
Else
pm（i）=pm（i-1）
EndIf
Next i
For i=1 To n
List2．AddItemStr（i）+““+Str（d（i）））+““+“第“+Str（pm（i）））+“名“
Next i
End Sub
（1）处应改为；
（2）处应改为．组卷：1引用：1难度：0.3 -
17．居民身份证号码由十七位数字本体码和一位数字校验码组成．从左至右依次为：六位地址码，八位出生日期码，三位顺序码和一位校验码．校验码生成步骤如下：
（1）把身份证前17位的每个数字和加权因子相乘并累加求和，再与11做取余运算得到序号，即序号≡∑（ai×Wi）Mod11（i≡2～18）；i表示号码字符的位置，身份证号左边开始第1位的位置为18，最后一位的位置为1，ai表示第i位置上的号码字符的值；Wi表示第i位置上的加权因子，通过公式w（i）=2^（i-1）Mod11计算得到．
（2）根据步骤（1）得到的序号提取校验码字符．对应关系如下，如：0对应校验码“1”．
若步骤（2）中提取的校验码和身份证最后一位相同，则校验通过，否则校验失败．某人根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student.jye.ai中读入全校学生身份证数据（全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示．程序界面如图所示（身份证号、姓名中的部分内容不显示）．余数 0 1 2 3 4 5 6 7 8 9 10 校验码 1 0 X 9 8 7 6 5 4 3 2 
实现上述功能的VB程序如下，请回答下列问题：
（1）某人身份证号的前17位为“33062119910206004”，根据步骤（1）中的公式∑（ai×Wi）Mod11计算可得序号为2，则该身份证最后一位字符应该是．
（2）分析程序，可知存放学生身份证信息的数据表为．
（3）请在画线处填入合适的代码．
Const max=10 00
Dim n As Integer'存放学生人数
Dim sfzh（1 To max） As String,
xm（1 To max） As String
'数组sfzh、xm分别存放学生身份证号、姓名
Dim bj（1 To max） As Integer,flash（1 To max） As Boolean
'数组bj、flash分别存放学生班级、身份证校验结果
Dim cw（1 To 15）As Integer'数组cw存放各班身份证号出错人数
Function check（x As String ） As Boolean'本函数功能：校验身份证号x,若
'校验通过返回True；否则返回False
Dim i As Integer,sum As Integer,xh As Integer,jym As String
Dim a（1 To 18）As Integer,w（1 To 18）As Integer
jym=“10X98765432“：sum=0
For i=18 To 2 Step-1
a（i）=Val（Mid（x,19-i,1））
Next i
For i=18 To 1 Step-1
w（i）=2^（i-1）Mod11
Next i
For i=2 To 18
sum=sum+a（i）*w（i）
Next i
xh=sum Mod 11
IfThen check=True Else check=False
End Function
Private Sub From-Load（ ）
'本过程从数据库中读入指定数据到数组sfzh、xm、bj,并在List1中显示
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString=“provide=microsoft.ace.jye.ai.12.0；data
source=“+App.Path+“\student.jye.ai“
conn.Open
Set rs.ActiveConnection=conn
rs.Open“select*from stu-info“
'本过程其他语句略，学生人数存变量n,数组cw各元素初值置为0
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer
For i=1 To n
IfThen flag（i）=True Else flag（i）=False
Next i
For i=1 To 15
For j=1 To n
If bj（j）=i And flash（j）=Flash Then
Lise2．AddItem sfzh（j）+““+xm（j）
EndIf
Next j
If cw（i）＞0 Then
Lise2．AddItem Str（i）+“班共有以上“+Str（cw（i））+“个身份证号错误“
Lise2．AddItem““
EndIf
Next i
End Sub
（1）①处应填；
（2）②处应填；
（3）③处应填．组卷：1引用：1难度：0.3
