2017-2018学年浙江省名校新高考研究联盟高三（上）第一次联考信息技术试卷

一、选择题（共12小题，每小题2分，满分24分）

• 1．下列关于信息的说法不正确的是（　　）

  A．专家或核心刊物评价是评价因特网信息资源的一种方式

  B．超市工作人员扫描条形码计算商品价格的过程是信息发布

  C．信息的载体可以是声音、文字、图象等，这些也是信息常用的表达方式

  D．网上查找问题答案时，需要甄别信息的时效性和真伪性
  组卷：8引用：1难度：0.9

  解析

• 2．小华要发送一封邮件，操作界面如图所示，以下说法正确的是（　　）

  A．收件箱中只有3封邮件

  B．POP3协议的功能是将电子邮件从发件人邮箱发送到收件人邮箱

  C．点击“发送”按钮提示发送成功后，邮件保存在对方电脑中

  D．邮件发送后，会有4个用户收到该邮件
  组卷：9引用：2难度：0.9

  解析

• 3．下列事例中，体现了人工智能技术的有（　　）
  ①停车场车牌识别技术的应用
  ②Word软件的自动更正功能
  ③汽车自动驾驶
  ④微信语音聊天
  ⑤网上信息搜索．

  A．①③

  B．①④

  C．②③

  D．④⑤
  组卷：12引用：3难度：0.9

  解析

• 4．某健身中心使用Access软件进行会员信息管理．已有“会员信息”表结构及表数据如图所示，下列操作能实现的是（　　）
  

  A．在“会员号”字段中输入“09805”

  B．在“出生日期”字段中输入“1992/2/30”

  C．在“联系方式”字段中输入“0571-10106688”

  D．在“性别”字段中输入“男”
  组卷：5引用：1难度：0.7

  解析

• 5．某算法流程图如图所示．若输入m和n的值分别为12和15，执行这部分流程后，变量m的值为（　　）
  

  A．1

  B．3

  C．4

  D．5
  组卷：5引用：3难度：0.7

  解析

二、解答题（共5小题，满分26分）

• 16．【加试题】小柯编写了一个多位数乘法的VB程序，运行界面如图所示。文本框Text1中输入一个小于等于1000位的被乘数，文本框Text2中输入1位乘数，点击“开始计算”按钮Command1后，在文本框Text3中显示计算结果。
  实现上述功能的VB程序如下，但加框处代码有错，请改正。
  Private Sub Command1_Click（　　）
  Dim d（1 To 1001）As Integer
  Dim strl As String,str2 As String
  Dim i As Integer,n As Integer,k As Integer,s As Integer
         strl=Text1．Text
         n=Len（strl）
         For i=1 To n
               d（i）=Val（Mid（strl,i,1））
         Next i 
         s=0's表示进位
         k=Val（Text2．Text）
         For i=n To 1 Step-1
  '①
                   s=d（i）\10
                   d（i）=d（i） Mod 10
         Next i
  If s＜＞0 Then str2=Trim（Str（s））    Else str2=““'Trim函数用来删除字符串首尾的空格
  For i=1 To n 
  
         Next i
  Text3．Text=str2
  End Sub。
  组卷：12引用：2难度：0.5

  解析

• 17．【加试题】某日起加密授权码生成方法描述如下：
  （1）授权码由10位字符组成，前8位为日期的密文，后2位为验证码；
  （2）取日期的第1位字符，若该字符第一次出现，则直接取其对应加密字符，否则取下一个不重复的加密字符．按此操作，依次取出该日期余下各位对应的加密字符；
  （3）求出所有日期字符数值的和，将和除16取余加1得到一位验证码字符；若和不小于16，则将和除16取整加1得到另一位验证码字符，否则另一位验证码字符为“X”．取出验证码重复时，处理规则与（2）相同．
  加密（验证码）字符对应表如下：
  
  小明设计了一个生成8位日期（YYYYMMDD格式）授权码的VB程序，程序功能如下：在文本框Text1中输入一个8位有效日期，单击“生成授权码”按钮Command1，在标签Label2中显示出该日期的授权码．运行效果如图所示．
  
  实现上述功能的VB程序段如下：
  （1）请在横线处填入合适代码：
  Dim f（0 To 15）As Integer
  Const Code=“KnGjLtWb0aPHZqYc“
  Private Sub Command1_Click（　　）
  Dim rq As String,sq As String
  Dim c As Integer,i As Integer,d As Integer
  For i=0 To 15
      f（i）=0
  Next i
  rq=Text1．text
  sq=““：d=0
  If Len（rq）＜＞8 Then
    Label2．Caption=“请输入8位日期！“
  Else
    For i=1 To 8
      c=Val（Mid（rq,i,1））
      d=d+c
      sq=

   

  +sq
    Next i
    If d＞=16 Then
      yz=GetChar（d Mod 16+1）+GetChar（d\16+1）
    Else
      yz=GetChar（d Mod 16+1）+“X“
    End If
   Label2．Caption=sq+yz
  End If
  End Sub
  '获取不重复的加密字符
  Function GetChar（x As Integer） As String
  Dim flag As Boolean
  flag=False
  Do While flag=False
    f（x）=f（x）+1
    If f（x）=1 Then
  

   

  
        f（x）=f（x）+1
        flag=True
    Else
         x=（x+1）Mod 10
    End If
  Loop
  End Function
  （2）若输入的日期是“20170818”，则该授权码的验证码字符是

   

  ．
  组卷：5引用：1难度：0.1

  解析