2017-2018学年浙江省温州市高三（上）月考信息技术试卷（9月份）

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

• 1．小陈去周庄旅游，景点门票两日内有效，首次入园需验票（即扫描门票的二维码），然后采集指纹，若两日内再次入园刷指纹即可，下列说法正确的是（　　）

  A．采集指纹的过程属于信息的发布

  B．采集指纹的目的是提高信息的共享性

  C．两日后刷指纹不可入园，体现信息的时效性

  D．两日后刷指纹不可入园，体现信息的真伪性
  组卷：59引用：6难度：0.9

  解析

• 2．小王发送电子邮件时部分界面如图所示，下列说法正确的是（　　）

  A．该邮件已添加“超大附件”

  B．该邮件发送时使用Pop3协议

  C．邮件没有主题内容，也能发送成功

  D．该邮件发送成功后，共有3位用户收到该邮件
  组卷：6引用：1难度：0.9

  解析

• 3．下列操作中，运用人工智能的是（　　）

  A．使用字典查找英文单词的中文翻译

  B．使用OCR软件对图片进行倾斜校正

  C．使用输入法“软键盘”进行字符输入

  D．使用“讯飞”软件通过语音进行汉字输入
  组卷：5引用：3难度：0.9

  解析

• 4．某Access 数据表，其设计视图如图1所示，数据表如图2所示，下列说法正确的是（　　）

  A．数据表中有记录时，各字段的类型都不可更改

  B．不论“选考技术”是否打钩，各记录的字段数均为7

  C．将数据表导出到Excel,则该工作表共有7列，46行数据

  D．将数据表导出到Excel,“选考技术”列显示的值为“是”或“否”
  组卷：4引用：3难度：0.7

  解析

• 5．某算法的部分流程如图所示，执行这部分流程，依次输入“3，6，5，0，-1，-2”，则输出s的值是（　　）

  A．8

  B．10

  C．14

  D．16
  组卷：3引用：2难度：0.7

  解析

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

• 16．某排序算法思想如下：若有11个桶，编号从0～10，随机产生多个整数，每产生一个整数时，就在以该整数位编号的桶中放一面小旗子，最后只要按顺序数每个桶中有几面小旗子，就能得到这几个整数的有序排列．例如2号桶中有1个小旗子，表示2出现了一次；3号桶中有1个小旗子，表示3出现了一次；5号桶中有2个小旗子，表示5出现了两次；8号桶中有1个小旗子，表示8出现了一次，按桶有编号顺序读出旗子数量，没有旗子的桶略过，得到有序整数为“2，3，5，5，8”．
  为此，小李编写了一个VB程序，功能如下：运行程序，窗体加载时随机产生6个[0，9]的随机整数，并在列表框List1中依次显示排序前数据，单击“排序”按钮Commandl,在列表框Lixt2中显示经过上述排序算法后的数据，运行结果如第如图2所示．
  实现上述功能 的VB代码如下，但加框代码有错，请改正．
  Dim a（10）As Integer’数组a表示桶的编号，如a（0）表示第0号桶
  Private Sub Commandl_-Click（　　）
      Dim i As Integer,j As Integer
      For i=0 to 10
          For j=1 to
              List2．AddItem CStr（i）
          Next j
      Next i
  End Sub
  Private Sub Form-Load
      Dim i As Integer
      Randomize
      For i=0 to 10’将数组初始化为0
          a（i）=0
      Next i
      For i=1 to 6’产生6个[0，9]的随机数
          t=Int（Rnd*10）
          a（t）=’第t桶中小旗子数量加1
          List1．AddItem  CStr（t）
      Next i
  End Sub.
  组卷：4引用：3难度：0.3

  解析

• 17．小李编写一个统计学生选考科目的VB程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科次占有效人数的百分率求出各科排名．程序运行时，单击“显示”按钮Command1，学生选课数据显示在列表框list1中，各科编号及对应科目名称显示列表框list2中，单击“统计”按钮Command2，选课结果按各科百分率由高到低显示在列表框list3中，程序运行结果如图所示．
  实现上述功能的VB程序如下，请回答下列问题：
  （1）学生选课的编码数据存储在数据表中，其字段名为

   

  ．
  （2）请在横线处填入合适的代码．
  Dim ach（1 to 500）As String’存储各学生选课编码
  Dim bno（1 to 10）As Integer’存储各科目编号
  Dim bname （1 to 10）As String’存储各科目名称
  Dim bnum（1 to 10）As Integer’存储各科目被选次数
  Dim bmc（1 to 10）As Integer’存储各科目被选的名次
  Dim n As Integer,num As Integer
  Private Sub Commandl_-Click（　　）
      Dim i As Integer,km As String
      km=“物理化学生物政治历史地理技术“
      Dim cn As New ADODB．Connection,rs As New ADODB．Recordset,spl As String
      cn.Open“provider=Microsoft.jye.ai.4；Data Source=“+App.Path+“\students.jye.ai“
      rs.Open“select*from choose“，cn
      Do Whole Not rs.EOF
          n=n+1：ach（n）=rs.Fields（“subject“）：rs.MoveNext
      Loop
      rs.Close
      cn.Close
        Set rs=Nothing
      Set cn=Nothing
      For i=1 to 7
          bno（i）=i
          bname（i）=Mid（km,（i-1）*2+1，2）
          List2．AddItem TR（bno（i））+“---“+bname（i）
      Next i
  End Sub
  Private Sub Command2_-Click（　　）
    Dim i As Integer,j As Integer,k As Integer
    Dim c As String,per As Integer
    For i=1 to n
        If check（ach（i））=True Then
            For j=1 to 3
                c=Mid（ach（i），j,1）
                bnum（Val（c））=

   

  
               Next j
              num=num+1
      End If
  Next i
  i=1
  Do While i＜=7’该循环得到各学科被选人数的名次
      bmc（i）=1
      For j=1 to 7
          If bnum（j）＞bnum（i） Then

   

  
      Next j
      i=i+1
  Loop
  For i=1 to 7
      For j=1 to 7
          If

   

  Then
            per=In（bnum（j）*100/num*100）/100
            List3．AddItem Str（bno（j））+“---“+Str（per）+“%“
          End If
      Next i
  End Sub
  Function check（s As String） As Boolean
  ’代码略！若学生选代码有效，函数返回True,否则返回False
  End Function.
  组卷：0引用：1难度：0.3

  解析