2016年4月浙江省普通高校招生选考信息技术试卷

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

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

  A．人脑虽然能够记忆，但不能作为信息的载体

  B．信息的加工和管理必须使用计算机才能完成

  C．为了信息安全，计算机中重要数据要定期进行备份

  D．网络购物支付时，应将买家的支付账号和密码告知卖家
  组卷：31引用：6难度：0.9

  解析

• 2．实现将电子邮件从发件人电子信箱发送到收件人电子信箱的协议是（　　）

  A．SMTP

  B．P0P3

  C．HTTP

  D．MIME
  组卷：21引用：6难度：0.9

  解析

• 3．小华扫描报纸得到“paper.jpg”文件，使用OCR软件进行字符识别，部分界面如图所示。下列说法不正确的是（　　）
  

  A．字符识别过程应用了人工智能技术

  B．若扫描分辨率太低，可能会影响OCR软件的识别率

  C．识别结果“paper.TXT”的文件大小一定比“paper.jpg”大

  D．从“相似字”中选择“1估”，可对识别结果中的“佑”字进行修正
  组卷：21引用：13难度：0.9

  解析

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

  A．删除所有记录，则该数据表也被删除

  B．数据类型为自动编号的字段值不能被编辑

  C．在数据表中添加记录，则字段个数也会增加

  D．修改字段名，数据表中相应的字段值也会改变
  组卷：20引用：3难度：0.9

  解析

• 5．某算法的部分流程图如图所示，执行这部分流程后，变量x的值是（　　）
  

  A．0

  B．1

  C．2

  D．3
  组卷：17引用：8难度：0.9

  解析

【加试题A】

• 16．【加试题】某地1900-1999年的平均降水量数据保存在数据库中．现要求找出相邻两年年平均降水量变化（即本年度与上年度“年平均降水量”差值的绝对值）最大的年份区间．如果多个符合要求的年份区间，只输入距今最近的．小吴为此编写了VB程序，程序运行时，单击按钮Command1后，在文本框Text1中输出运行结果．实现上述功能的VB代码如下，但加框处代码有错，请改正．
  Dim w（1To 100）As Single'依次存储1900-1999年的年平均降水量数据
  Const n=100
  Private Sub Form_Load（　　）
  '本过程从数据库中按1900-1999年依次读取年平均降水量数据，并存储在数组w中
  '代码略
  End Sub
  Private Sub Command1_Click（　　）
  Dim i As Integer,imax As Integer
  imax=
  For i=3 To n
  If Abs（w（i）-w（i-1））＞=  Then imax=i
  Next i
  Text1．Text=“年平均降水量变化最大的年份区间是“+Str（imax+1898）+“-“+Str（imax+1899）
  End Sub.
  组卷：10引用：1难度：0.1

  解析

【加试题B】

• 17．某数据压缩方法描述如下：
  （1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示；
  （2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个位0，第2个为0；
  （3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个位0，第2个为重复数的个数，第3个为该数本身；
  根据上述压缩方法，对应的解压缩方法示例如图a所示．
  
  小明编写了一个解压送VB程序，功能如下：窗体加载时，自动读取压缩数据，依次存储在数组元素a（1）、a（2）、a（3）…中，压缩数据的个数存储在变量n中，压缩数据显示在文本框Text1中．单击“解压缩”按钮Command1，程序对压缩数据依次进行解压缩处理，解压缩数据显示在文本框Text2中．程序运行界面如图b所示．
  （1）如果压缩数据为“23，0，21，66，0，0，77，0，5，0”，则解压缩数据的个数是

   

  ．
  （2）实现上述功能的VB程序如下．请在横线处填入合适代码．
  Dim a（1To 100）As Integer'存储压缩数据，最大处理个数为100
  Dim b（1To 1000）As Integer'存储解压缩数据，最大处理个数为1000
  Dim n As Integer'存储压缩数据的个数
  Private Sub Form_Load （　　）
  '压缩数据由上述压缩方法生成
  '本过程用于读取压缩数据并存储在数组a,压缩数据个数存储在变量n中
  '代码略
  End Sub
  Private Sub Command1_Click （　　）
  Dim pa As Integer'存储压缩数组当前处理位置
  Dim pb As Integer'存储解压缩数组当前处理位置
  Dim firstdata As Integer,count As Integer,i As Integer
  pa=1：pb=1
  Do While pa＜=n
  firstdata=a（pa）
  If firstdata＜＞0Then'示例1情况处理
  b（pb）=firstdata
  pa=pa+1：pb=pb+1
  Else
  count=a（pa+1）
  If count=0Then'示例2情况处理
  b（pb）=0
  pa= ①：pb=pb+1
  Else'示例3情况处理
  For i=1To count
  ②
  Next i
  pa=pa+3：pb=pb+count
  End If
  End If
  Loop
  Text2．Text=Str（b（1））
  For i=2To ③
  Text2．Text=Text2．Text+“，“+Str（b（i））
  Next i
  End Sub.
  组卷：18引用：2难度：0.1

  解析