2017年10月浙江省十校联盟选考信息技术试卷

一、选择题（每小题2分，共24分．在每小题列出的4个选项中，只有一项是符合题目要求的）

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

  A．微信具有朋友圈功能，用户可以发布图文信息，这主要体现了信息的真伪性

  B．古代没有信息技术，用计算机处理信息的技术才是信息技术

  C．小林将自己个人基本信息存储为二维码的过程属于信息的采集

  D．支付宝提供“手机资金安全险”功能主要是为了保障信息安全
  组卷：10引用：2难度：0.9

  解析

• 2．下列说法不正确的是（　　）

  A．浏览器的主要功能是解释执行HTTP语言

  B．用收藏夹收藏网页是对网页地址进行保存

  C．网页文件可以通过Dreamweaver、FrontPage、记事本等编辑

  D．SMTP协议的功能是把电子邮件送到收件人的电子邮箱中
  组卷：14引用：2难度：0.9

  解析

• 3．使用Word软件编辑某文档，部分界面如图所示：
  
  下列说法正确的是（　　）

  A．这段文字有1处批注，批注者为Z1

  B．删除批注，文字“小冰”同时被删除

  C．修订前，第二行文字是“青蛙儿正在远远的浅水/她嫁了许多的颜”

  D．接受所有修订后，第一行文字是“看那星，闪烁的几颗星/西山上的太阳/”
  组卷：4引用：2难度：0.9

  解析

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

  A．可以在数据表的任何位置添加新记录

  B．数据类型的修改只能通过设计视图完成

  C．当数据表打开时，不能修改数据表的名称

  D．QQ注册成功后，QQ后台的数据库进行了修改记录操作
  组卷：7引用：2难度：0.5

  解析

• 5．某算法的部分流程图如图所示，执行这部分流程后，下列说法正确的是（　　）
  

  A．变量a,b的值分别为10，0

  B．变量a,b的值分别为5，0

  C．步骤b←b-a被执行3次

  D．步骤a＞b被执行6次
  组卷：3引用：3难度：0.7

  解析

二、非选择题

• 16．小林编写了一个实现英文句子每个单词首字母大写功能的VB程序，运行界面如图所示．文本框Text1显示原文内容，单击“首字母大写”按钮Command1后，Text2显示首字母大写的结果．
  实现上述功能的VB程序如下，但加框处代码有错，请改正．
  Private　Sub　Command1_Click （　　）
  Dim a（1 To 1000）As String
  Dim s As String  result As String
  s=Text1．Text：n=Len（s）
  For i=1 To n
  a（i）=Mid（s,i,l）
  Next i
  If a（i）＞''a''And a（1）＜=“z“Then a（1）=Chr（Asc（a（1））-32）
  result=a（1）
  For i=2 To  n-1
  If Then'（1）
  If a（i+1）＞=''a''And a（i+1）＜=''z''Then
  a（i+1）=Chr（Asc（a（i+1））-32）
  result=result+a（i）
  End If
  Eslse
  result=result+a（i）
  End If
  Next i
  '（2）
  End Sub.
  组卷：4引用：1难度：0.1

  解析

• 17．小林编写了一个统计高三16个班级选考技术人数占比的VB程序．运行界面如图所示，窗体加载时，从数据库中调用数据，统计各班选考技术的人数占比，并在列表框List1中显示“班级”和“选技术占比”．单击“排序”按钮Command,数据按选技术占比降序排序，在List2中显示排序结果．实现上述功能的VB程序如下，请回答下列问题：
  （1）分析程序，可知调用的数据表的名称为

   

  ．
  （2）请在横线处填入合适的代码．①

   

  、②

   

  、③

   

  
  Dim n As Integer,i As  Integer,j As Integer'变量n用于统计学生总数
  Dim rate（l  To 16）As Integer,num（1 To 16）As Integer,class （1 To 16）As  Integer
  Dim tech （1 To 50）As Integer,cinfo（1 To 5000）As lnteger,subj（1 To 5000）As String
  Private　Sub　Command1_Click （　　）
  Dim i As Integer,As Integer,s As Integer
  For i=1 To 15
  For j=

   

  
  If rate（j）＞rate （j-1）Then
  t=rate （j）：rate（j）=rate（j-1）：rate（j-1）：=t
  s=class（j）：class（j）=class（j-1）：class（j-1）=s
  End If
  Next j
  Next i
  List2：AddItem''班级''+''''+''选技术占比''
  For i=1 To 16
  List2．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
  Next i
  End Sub
  Private Sub Form_-Load（　　）
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  conn.ConnectionString=''Provider=Microsoft.ACE．OLEDB.12.0DATA Source=''&
  App.Path&''\stuimfo.jye.ai''
  conn.open
  Set rs.ActiveConnection=conn
  rs.open''SELECT*FROM xkqk''
  此处代码略，代码实现将学生班级信息存储到数组cinfo中，选考科目存储到数组subj中
  For i=1 To n
  

   

  ’将各班人数存储到数组num中
  Next i
  For  i=1 To 16
  class （i）=i
  If

   

  Then
  If subj（j）=''技术''Then
  tech（i）=tech（i）+1
  End If
  End If
  Next  j
  rate（i）=Round（tech（i）/num（i）*100，2）
  ’Round（　　）返回指定位数进行四舍五入的数值
  List 1．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
  Next i
  ’ads（　　）整数转换长度固定的字符串
  Function ads （x As Integer,n  As Integer）As String
  代码略
  End Function.
  组卷：6引用：1难度：0.1

  解析