2016-2017学年浙江省“超级全能生”高三（上）联考信息技术试卷（12月份）

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

• 1．下列属于信息的是（　　）

  A．《信息技术基础》教科书

  B．Nikon数码单反相机

  C．磁铁周围产生的磁场

  D．手机新闻客户端推送的“神舟十一号”返回成功新闻
  组卷：6引用：1难度：0.9

  解析

• 2．小明家电信宽带网速由6Mb/s升级为20Mb/s,下载速度明显提升，现下载一个100Mb大小的压缩文件，理论上最快多少时间可以下载完成（　　）

  A．40秒

  B．10秒

  C．5秒

  D．20秒
  组卷：4引用：1难度：0.9

  解析

• 3．以下属于人工智能范畴的有（　　）
  ①微信语音输入将语音转化成文字
  ②使用PS CS5.0“内容识别”填充
  ③使用“谷歌在线翻译”翻译英文文章
  ④答卷扫描到电脑后，教师在电脑浏览器上进行网上评阅试卷
  ⑤两位同学在家中借助互联网联机一起玩象棋对战．

  A．①②③④⑤

  B．①②③

  C．①②④⑤

  D．③④⑤
  组卷：5引用：1难度：0.9

  解析

• 4．关于Access数据表，下列说法正确的是（　　）

  A．货币型字段类型数据可以与数字型字段类型数据混合计算，结果为货币型字段类型数据

  B．如果在创建表中建立字段“性别”，字段的值要求能输入汉字，其数据类型应设置为“是/否”型

  C．在Access的数据表中删除一条记录，被删除的记录可以恢复到原来位置

  D．数据类型为自动编号的字段的值能被编辑
  组卷：4引用：1难度：0.7

  解析

• 5．下列循环语句中，s=s+1循环执行的次数为（　　）
  For i=0 To 10
        For j=0 To-6 step-2
            s=s+1
        Next j
  Next i.

  A．10次

  B．11次

  C．40次

  D．44次
  组卷：6引用：1难度：0.5

  解析

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

• 16．编写“寻找平方根”程序，实现的功能为：计算[32000，40000]范围内数的平方数，若该平方数十个数位上的数字正好是0123456789的不同组合，不重复、不缺失（每个数字均只能出现一次），则在列表List1中输出，程序运行时，界面如图所示．实现上述功能的VB程序如下，但加框处代码有误，请改正．把改正后的代码填在题后的横线上．
  Private Sub Command1_Click（　　）
      Dim a （0 To 9）As Integer
      Dim i As Long,n As Long
      Dim j As Integer,x As Integer,y As Integer
      List1．Clear
      For i=32000 To 40000
  n=i*2'（1）
            For j=0 To 9
                  a（j）=0
            Next j
            Do While n＜＞0
                        x=n Mod 10
  a（x）=a（x）+1'（2）
                            n=n\10
                            Loop
            y=0
            For j=0 To 9
                       y=y+a（j）
            Next j
            If y=10 Then List1．AddItem Str（i）+“^2=“+Str（i^2）
      Next i
  End Sub
  （1）应改为

   

  ；
  （2）应改为

   

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

  解析

• 17．小张同学方便大家进行选考科目的选择，将全班同学七门学科的原始成绩折算成对应的标准分（避免了不同学科试卷难度各不相同的问题，标准分越高说明该学科成绩越优秀），存放于7xuan3．accdb数据库的“bzf”表中，部分界面截图如图1所示．并且编写了“选考科目推荐”程序，实现如下功能：在文本框Text1中输入学生的学号，单击“分析”按钮Command1，在文本框Text2中显示该学号及所推荐的三门学科．程序运行界面如图2所示．
  Private Sub Command1_Click（　　）
          Dim a （1 To 7）As Single
          Dim b （1 To 7）As Integer
          Dim n As Integer,s As String,c As String
          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 &“\7xuan3．accdb“
          conn.Open
          rs.ActiveConnection=conn
          n=Val （Text1．Text）
          rs.Open“select*from bzf where 学号=“& n
          For i=1 To 7
                a（i）=

   

  
                b（i）=i
          Next i
          rs.Close
          conn.Close
          For i=1 To 3
                k=i
                For j=i+1 To 7
                      If a（j）＞a（k） Then k=j
                Next j
                If k＜＞i Then
                           t=a（i）：a（i）=a（k）：a（k）=t
                           t=b（i）：b（i）=b（k）：b（k）=t
                End If
          Next i
          s=“物理化学生物政治历史地理技术“
          c=Text1．Text+““
          For i=1 To 3
                c=c+

   

  +““
          Next i
          Text2．Text=c
  End Sub
  （1）若在文本框Text1中输入3，单击“分析”按钮Command1后，则文本框Text2中显示的内容为

   

  ；
  （2）画线①处应填的代码为

   

  ；
  （3）画线②处应填的代码为

   

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

  解析