2017年浙江省普通高校招生信息技术仿真试卷（选考）（1）（11月份）

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

• 1．某同学将《如何学习高中英语》分享在朋友圈供大家学习参考，这主要体现了信息具有（　　）

  A．共享性

  B．时效性

  C．载体依附性

  D．真伪性
  组卷：11引用：1难度：0.9

  解析

• 2．某同学使用某软件打开浙江教育考试网查询学业水平考试成绩时，其界面如图所示：
  
  他正在使用的软件可能是（　　）

  A．Microsoft  Word

  B．Internet  Explorer

  C．ACDSee

  D．Windows  Media  Player
  组卷：10引用：1难度：0.9

  解析

• 3．小华在淘宝上看到了某卖家的信用评价等信息，其部分页面如图所示，图中好评率为“99.51%”代表的含义是属于信息评价中的（　　）
  

  A．核心期刊评价	B．专家评价
  C．统计评价	D．个人评价
  组卷：5引用：1难度：0.9

  解析

• 4．在用光学字符识别（OCR）软件识别文字时，能被直接识别的源文件有（　　）

  A．xy.jpg   xy.jye.ai

  B．xy.bmp   xy.jye.ai

  C．xy.jye.ai   xi.jye.ai

  D．xy.jpg   xy.jye.ai
  组卷：4引用：1难度：0.7

  解析

• 5．某学生入学成绩信息表如下：
  
  若用Access数据表来存储学生信息，下列部分字段设计不合理的是（　　）

  A． 字段名称 数据类型 准考证号 文本 姓名 文本

  B． 字段名称 数据类型 准考证号 文本 出生年月 日期

  C． 字段名称 数据类型 联系电话 数字 入学总分 数字

  D． 字段名称 数据类型 入学总分 数字 是否保送 是/否
  组卷：5引用：2难度：0.5

  解析

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

• 16．现有n根棍子，第i根棍子的长度为a_i．想要从中选出三根棍子组成周长尽可能长的三角形，输出最大的周长；若无法组成三角形，则输出0．如当n=5，a={2，3，4，5，10}时，输出12，即选择了3、4、5．当n=4，a={4，5，10，20}时，无法组成三角形，输出0．加框处代码有误，请改正．
  Dim a（ 1To 1000）As Integer
  Dim n As Integer
  Private Sub Form_Load （　　）
  ‘确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略
  End Sub
  Function max（x As Integer,y As Integer） As Integer
  If x＞y Then
  max=x
  Else
  Max=y
  End  If
  End  Function
  Private  Sub Command1_Click （　　）
  Dim  i  As Integer,j  As  Integer,k  As  Integer
  Dim  ans  As  Integer,c  As  Integer,longest  As  Integer,rest  As  Integer
  ans=0
  ‘让i＜j＜k,保证棍子不会重复选中
  For i=1To n
  For j=i+1  To n
  For  k=j+1  To  n
  c=a（i）+a（j）+a（k）
  longest=‘①
  rest=c-longest‘rest保存最短的两条边的和
  If  Then‘②
  ans=max（ans,c）
  End  If
       Next  k
  Next  j
       Next  i
  Print  ans
  End  Sub.
  组卷：4引用：1难度：0.3

  解析

• 17．一个考古学家在寻找外星生物曾到过地球的证据．他偶然发现一面破损的墙上有一串奇怪的数字，数字长度不超过9位数，左侧是完整的，而很多数字的右侧部分因石头被腐蚀而极难辨认．他发现保存完好的数都是2的幂，于是他猜测所有数都是2的幂．为了证明他的结论，他选取了一份数的清单，每个数中清晰可辨的数字个数总是严格小于模糊不清的数字个数．请你为这些数找出一个尽量小的2的幂，使得它左侧的数字和清单吻合．
  以下程序，在Text1中输入一个清单中的数n,单击按钮Command1后在Label中输出一个最小的指数x（若存在），使得2^x从最高位开始的若干个数字等于n.如：输入10，则找到最小的x=20，即2²⁰=1048576的前两位与输入数相同；而x=10的结果1024长度不符．如果在给定条件内找不到这样的指数x,则输出“No Power of 2”．
  'power函数的功能与2^n一致，只不过它的返回值是String类型而不是整数型
  
  Function  power（n As Integer） As String
  Dim  res  As  Long
  res=2^{^}n
  power=Trim（Str（res））‘trim （　　）函数的作用是去掉字符串左右的空格
  End  Function
  'check （　　）函数用于检测前几位数和长度是否符合要求，符合要求返回为True
  Function  check（x_power  As  String,n  As  String） As Boolean
  Dim length  As  Integer,x_power_len  As  Integer
  length=Len（n）
  x_power_len=Len（ x_power）
  If Mid（x_power,1，length）=n  And

   

   Then
  check=True
  Else
  check=False
  End If
  End Function
  Private  Sub  Commandl_Click （　　）
  Dim  n  As  String,i  As  Integer,x As String
  n=Textl.Text
  i=0
  x=power（i）
  Do  While  Len（x）＜10And     ②
  i=i+1
  x=power（i）
  Loop
  If Len（x）＜10Then
  Labell.Caption=“2的”&  ③ &
  “次方的前几位是”& n &“，符合要求”
  Else
  Label1．Caption=“No Power of 2”
  End If
  End Sub.
  组卷：6引用：1难度：0.3

  解析