2016-2017学年浙江省杭州地区（含周边）重点中学高三（上）期中信息技术试卷

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

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

  A．互联网上的信息真伪难辨，报刊上的信息更为可信

  B．信息可以转换成不同的载体形式而被存储和传播

  C．在未经作者授权的情况下，某网站可以向用户提供免费下载该作品的服务

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

  解析

• 2．如图所示，以下关于该网页描述正确的是（　　）
  

  A．网页的文件名为：index.jye.ai

  B．网页的标题是：北大简介

  C．网页默认的协议是html

  D．该网页不具备交互性
  组卷：3引用：1难度：0.9

  解析

• 3．观察图，关于Word的修订和批注，以下说法不正确的是（　　）
  

  A．文中共有二处修订

  B．文中共有三个批注对象

  C．y用户做了二处批注

  D．接受对文档的所有修订，文中第一句话变为：不管你做什么，要么就做出极致辉煌的成就，要么就辉煌地失败
  组卷：1引用：1难度：0.9

  解析

• 4．某同学使用OCR软件进行字符识别，部分界面如图所示，则下列说法错误的是（　　）
  

  A．被识别对象的文件名为“捕获．JPG”

  B．②区显示的是被识别对象的内容

  C．①区中的文本文字要更改，都可以从相似字中选取

  D．OCR软件可识别的图片格式有．tif、．bmp、．jpg
  组卷：3引用：1难度：0.5

  解析

• 5．某Access数据表如图所示，以下说法中正确的是（　　）
  

  A．必要时，编号字段数据可手工输入

  B．当前状态下，选择重命名，可以对“唱片收藏”数据表重新命名

  C．“类型”字段类型为“是/否”型，存储该类型数据需要1字节

  D．“出版日期”字段中可以输入“2017年10月1日”
  组卷：5引用：1难度：0.7

  解析

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

• 16．求两个数的最大公约数可以用辗转相除法，也可以用递归算法实现．程序运行界面如图．VB程序如下：
  Private Sub Command1_Click（　　）
       Dim m As Integer,n As Integer
       Dim r As Integer
       m=Val（Text1．Text）
       n=Val（Text2．Text）
       r=m Mod n
       Do While r＞0
             m=n
             n=r
             r=

   

  
       Loop
       Label3．Caption=“最大公约数为：“+Str（n）
  End Sub
  Function gys（x As Integer,y As Integer） As Integer
       Dim z As Integer
       z=x Mod y
       If z=0 Then
         gys=y
       Else
         gys=gys（y,z）
       End If
  End Function
  Private Sub Command2_Click（　　）
       Dim m As Integer,n As Integer
       m=Val（Text1．Text）
       n=Val（Text2．Text）
       Label3．Caption=“最大公约数为：“+

   

  
  End Sub
  横线处应填入的代码为①

   

   ②

   

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

  解析

• 17．2017年9月杭州各大楼盘的销售价格数据信息已经保存在数据库文件database1．accdb的Building数据表中，用于显示楼盘信息的VB程序运行时界面如图所示．运行程序，单击“显示”按钮，在列表框list1中显示楼盘信息，单击“降序排列”按钮，在列表框list1中按楼盘均价从高到低显示楼盘信息．按此要求编写的VB程序如下：
  Dim num（1 To 50）As String
  Dim price（1 To 50）As Single
  Dim infor（1 To 50）As String
  Dim nam（1 To 50）As String
  Dim i As Integer
  Private Sub Form_Load（　　）
  Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
  conn.ConnectionString=“provider=microsoft.ace.jye.ai.12.0；data source=“&App.Path &“\database1．accdb“
  conn.Open
  Set rs.ActiveConnection=   ①
  rs.Open“select*from Building“
  i=0
  Do While ②
           i=i+1
           num（i）=rs.Fields（“编号“）
           price（i）=rs.Fields（“均价（元）“）
           infor（i）=rs.Fields（“信息“）
           nam（i）=rs.Fields（“楼盘名“）
           rs.MoveNext
        Loop
        rs.Close
        conn.Close
  End Sub
  Private Sub Command1_Click（　　）
     Dim j As Integer
     List1．Clear
     For j=1 To i
         List1．AddItem num（j） &““& Str（price（j）） &““& infor（j） &““& nam（j）
     Next j
  End Sub
  Private Sub Command2_Click（　　）
     Dim m As Integer
     List1．Clear
     For

   

  
         k=m
         For n=m+1 To i
             If

   

   Then k=n
         Next n
         If m＜＞k Then
           t=price（m）：price（m）=price（k）：price（k）=t
         End If
         List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
     Next m
     List1．AddItem num（m） &““& Str（price（m）） &““& infor（m） &““& nam（m）
  End Sub
  请回答下列问题：
  （1）程序加框处的代码有错，请改正：①

   

   ②

   

  
  （2）横线处应填入的代码为①

   

   ②

   

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

  解析