2017-2018学年浙江省温州中学高三（上）期中信息技术试卷

一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）

• 1．2016年，韩国围棋高手李世石挑战机器人“AlphaGo”以1：3失利．今年四月份，在浙江乌镇将进行一场当今围棋第一人柯洁与“AlphaGo”的较量．机器人“AlphaGo”挑战人类围棋高手，这主要体现了下列哪种技术（　　）

  A．光电子技术	B．人工智能技术
  C．多媒体通讯技术	D．遥感技术
  组卷：5引用：3难度：0.9

  解析

• 2．利用OCR光学字符识别软件可以快速地从图象中识别出字符，从而得到文本文件．那么OCR软件能识别下列哪些文件（　　）
  ①example.jye.ai②example.jye.ai③example.jye.ai④example.bmp.

  A．②④

  B．①③

  C．②③

  D．①④
  组卷：6引用：2难度：0.9

  解析

• 3．电子邮件从发送方传送到接收方的基本流程如图所示．邮件从“发送方邮件服务器”传送到“接收方邮件服务器”（如图所示步骤④）的过程中使用的协议是（　　）
  

  A．SMTP

  B．POP3

  C．HTTP

  D．HTML
  组卷：6引用：1难度：0.9

  解析

• 4．有同学利用Word修订功能对某文档做了修改，部分截图如图所示，若接受修订内容，则第三句话中的文字将变为（　　）
  

  A．人生十分简短，目标明确、珍惜光阴、才能有所收获，赢得主动

  B．人生十分简短，只有目标明确、珍惜光阴、才能有所收获，赢得主动

  C．人生十分短暂，只有目标明确、珍惜光阴、才能有所收获，赢得主动

  D．人生十分短暂，目标明确、珍惜光阴、才能有所收获，赢得主动
  组卷：15引用：5难度：0.9

  解析

• 5．用Ultraedit软件观察字符串“Aisa”的内码，部分界面如图所示：
  
  则大写“A”与小写“a”的ASCII码十进制值相差多少（　　）

  A．32

  B．20

  C．31

  D．19
  组卷：11引用：2难度：0.7

  解析

二、非选择题（本大题共5小题，第13小题4分，第14小题5分，第15小题8分，第16小题4分，第17小题5分，共26分）

• 16．小强用VB编写将正整数十进制转换为十六进制的程序，运行界面如图所示．程序功能如下：在文本框Text1中输入待转换的十进制值，单击“十进制转换十六进制”按钮Command1，在文本框Text2中输出转换结果．
  
  （1）要使命令按钮Command1显示的文本改为“十进制转换十六进制”，可在其属性窗口中将

   

  属性的属性值修改为“十进制转换十六进制”．
  （2）若在文本框Text1中输入79，则文本框Text2中输出的值是

   

  ．
  （3）请在程序的画线处填写合适的代码．
  Private Sub Command1_Click（　　）
      Dim a As String,s As String
      Dim r As Integer,x As Integer
       x=Val（Text1．Text）
       s=''''
  　  Do While x＞0
  

   

           ①
  　  x=x\16
  　  If r＞9 Then
  　     a=Chr（r+55）
        Else
  　      a=Str（r）
  　   End If
         s=a+s
  

   

            ②
       Text2．Text=s
  End Sub.
  组卷：2引用：2难度：0.3

  解析

• 17．【加试题】居民身份证号码由十七位数字本体码和一位数字校验码组成．从左至右依次为：六位地址码，八位出生日期码，三位顺序码和一位校验码．校验码生成步骤如下：
  ①把身份证前 17 位的每个数字和加权系数相乘并累加求和．身份证号码前17位数的加权系数见下表：
  

  身份证号位数	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
  加权系数	7	9	10	5	8	4	2	1	6	3	7	9	10	5	8	4	2

  ②根据步骤（1）求得的和值，与11做取余运算得到序号，再根据序号提取校验码字符．如：所得和值除以11的余数为“0”，则对应的校验码为“1”．如下表：
  

  序号	0	1	2	3	4	5	6	7	8	9	10
  校验码	1	0	X	9	8	7	6	5	4	3	2

  若步骤（2）中提取的校验码和身份证号最后一位相同，则校验通过，否则校验失败．
  某人根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student.jye.ai中读入全校学生身份证数据（全校共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出各班身份证号出错学生的信息和出错人数，若某班无出错学生，则不显示．程序界面如图所示．实现上述功能的VB程序如下，请回答下列问题：
  （1）某人身份证号的前17位为“33900520000101007”，根据上述步骤可计算出该身份证号的第18位校验码是

   

  ．
  （2）请在横线处填上合适的代码．
  Const max=1000
  Dim n As Integer'存放学生人数
  Dim sfzh（1To max） As String,xm（1To max） As String
  '数组sfzh、xm分别存放学生身份证号、姓名
  Dim bj（1To max） As Integer,flag（1To max） As Boolean
  '数组bj、flag分别存放学生班级、身份证校验结果
  Dim cw（1To 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（1To 18）As Integer,w（1To 18）As Integer
  jym=“10X98765432“：sum=0
  For i=18To 2Step-1
  a（i）=Val（Mid（x,19-i,1））
  Next i
  For i=18To 1Step-1
  w（i）=2  （i-1）Mod 11
  Next i
  For i=2To 18
  sum=sum+a（i）  w（i）
  Next i
  xh=sum Mod 11
  If①_=Mid（x,18，1）Then check=True Else check=False
  End Function
  Private Sub Form_Load （　　）
  '本过程从数据库中读入指定数据到数组sfzh、xm、bj,并在List1中显示
  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+“\student.jye.ai“
  conn.Open
  Set rs.ActiveConnection=conn
  rs.Open“select  from stu“
  '本过程其它语句略，学生人数存变量n,数组cw各元素初值置为0
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer
  For i=1To n
  If check（sfzh（i））Then flag（i）=True Else flag（i）=False
  Next i
  For i=1To 15
  For j=1To n
  If  bj（j）=i And flag（j）=False Then
  ②_
  List2．AddItem sfzh（j）+““+xm（j）
  End If
  Next j
  If cw（i）＞0Then
  List2．AddItem Str（i）+“班共有以上“+Str（cw（i））+“个身份证号错误“
  List2．AddItem““
  End If
  Next i
  End Sub.
  组卷：0引用：1难度：0.2

  解析