2015-2016学年浙江省金华十校高二（上）调研信息技术试卷（A卷）

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

• 1．如图所示，某用户正通过智能手机客户端应用软件获取二维码图片中的内容和信息．下列说法中不正确的是（　　）

  A．信息具有载体依附性，图中的二维码是信息的载体

  B．二维码中的信息只要使用手机“扫二维码”就可获取，不会过期

  C．二维码中可能包含病毒信息，不要盲目扫描来历不明的二维码

  D．用手机扫二维码获取的信息也存在真伪性
  组卷：3引用：1难度：0.9

  解析

• 2．小王正在家中使用IE浏览器浏览一个图文并茂的网页，如图所示，为了便于下次访问，他使用了收藏夹功能．下列说法正确的是（　　）

  A．添加到IE收藏夹后，该网页上的图片等全部内容都将存储在收藏夹中

  B．在收藏夹中点击“极客学院”，IE浏览器会自动在百度中搜索相关信息

  C．添加到IE收藏夹后，小王在联网的其他电脑上也可以使用该收藏内容

  D．在收藏夹中点击“极客学院”，IE直接使用http协议访问该网站服务器
  组卷：4引用：1难度：0.9

  解析

• 3．某公司的客户信息管理系统中有一张用Access软件创建的数据表，其结构如图所示，下列说法正确的是（　　）

  A．数据表名称为“客户信息”，该数据表共有2个字段、4条记录

  B．在录入数据操作时，可以在“性别”字段输入“男性”

  C．“用户ID”字段是该数据表的“主键”，字段内容用户可以进行编辑

  D．在录入数据操作时，可以在“出生年月”字段输入“1981年12月21日”
  组卷：5引用：3难度：0.7

  解析

• 4．小羽喜欢写作，他使用Word软件花了很长时间完成了一部中篇小说，但发现文中所有的“别出心裁”都写成了“别处新裁”．下列操作能帮助他又快又准确的进行修改的是（　　）

  A．使用Word的修订功能

  B．使用Word的自动更正功能

  C．使用Word的批注功能

  D．使用Word的替换功能
  组卷：5引用：3难度：0.7

  解析

• 5．“如果a,b中任意一个为0，那么y=y+1”．能实现该功能的VB语句是（　　）

  A．Ifa=0Andb=0Theny=y+1	B．Ifa*b=0Theny=y+1
  C．Ifa=0，b=0Theny=y+1	D．Ifa,b=0Theny=y+1
  组卷：6引用：2难度：0.7

  解析

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

• 16．某高校自主招生考试后，为了便于查询考生信息，开发了一套考生信息查询软件．程序界面如图所示，在文本框Text1和文本框Text2分别输入自己的身份证和密码，单击“查询”按钮后，如果身份信息和密码都正确，在标签Label4中显示成绩，否则在Label4中显示相关提示信息．
  运行程序，程序启动时自动读取数据库中数据，将所有考生的身份证号、密码及成绩按身份证号码从小到大的顺序，分别存放在数组sfz、mm和cj中．第i个考生的身份号在sfz（i），密码信息在mm（i）中，成绩在cj（i）中．
  
  实现上述功能的VB代码如下，但加框处代码有错，请改正．
  Dim sfz（1 To 4000）As String'身份证信息
  Dim cj（1 To 4000）As Integer'成绩信息
  Dim mm（1 To 4000）As String'密码信息
  Private Sub Form_Load（　　）
  ‘连接数据库，将考生各项数据按身份证号从小到大存在数组sfz、mm、cj中
  ‘代码略
  End Sub
  Private Sub Command1_Click（　　）
  Dim stu As String,pwd As String
  Dim i As Integer,j As Integer,m As Integer,p As Integer
  stu=Text1．Text
  pwd=Text2．Text
  i=1：j=4000：p=0
  Do While i＜=j And p=0
     m=（i+j）\2
       If sfz（m）＜＞stu Then
           If  thenj=m-1   else i=m+1'（1）
       Else
     p=m
       End If
   Loop
  If p=0 Then
        Label4．Caption=“没有找到该身份证的考生数据“
  ElseIfmm（p）＜＞pwdThen
        Label4．Caption=“密码错误，请核对密码后再次登录“
  Else
        Label4．Caption=“成绩：“+'（2）
  End If
  End Sub.
  组卷：1引用：1难度：0.3

  解析

• 17．小明设计了一个VB程序解决如下数学趣味问题：
  已知三个正整数a,b,c.
  现有一个大于1的整数x,将其作为除数分别除a,b,c,得到的余数相同．
  求满足上述条件的x的最小值是多少？
  程序界面如图所示，在文本框Text1中输入a的值，在文本框Text2中输入b的值，在文本框Text3中输入c的值，点击“求解”按钮，在2到三个数中的最小值之间，逐个检测是否存在符合条件的值．如果存在符合条件的值，则在文本框Text4中输出结果，结果不存在，则在文本框Text4中输出“找不到符合条件的值”．
  
  实现上述功能的程序如下，请在横线处填入合适代码．
  Private Sub Command1_Click（　　）
  Dim a As Long,b As Long,c As Long
  Dim d As Long,min As Long
  '处理3个输入数据，并求出3个数的最小值
  a=Val（Text1．Text）
  b=Val（Text2．Text）
  c=Val（Text3．Text）
  min=

   

  
  '在2到三个数中的最小值之间，逐个检测是否存在符合条件的值
  d=2
  x=0
  Do While d＜=min And x=0
       If ISOK（a,b,c,d） Thenx=d
  

   

  
  Loop
  If x=0 Then
    Text4．Text=“找不到符合条件的值“
  End If
  End Sub
  '求三个数的最小值
  Public Function GetMin（x As Long,y As Long,z As Long） As Long
      If x＞y Then GetMin=y Else GetMin=x
      If z＜GetMin Then GetMin=z
  End Function.
  组卷：0引用：1难度：0.4

  解析