2017-2018学年浙江省五校联考高三（上）第一次联考信息技术试卷

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

• 1．以下说法正确的是（　　）

  A．信息的表示、传播、存储必须依附于某种载体

  B．在公共场所上网时，应尽量把表单上的用户名和密码设置为自动完成

  C．文字出现以后，才能进行传递信息

  D．“盲人摸象”体现了信息的时效性
  组卷：8引用：2难度：0.9

  解析

• 2．以下软件中，不属于浏览器的是（　　）

  A．Internet Explorer	B．Firefox
  C．Google Chrome	D．CuteFTP
  组卷：8引用：3难度：0.9

  解析

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

  A．共有两处修订，两处批注

  B．文档中图片的文字环绕方式为“嵌入型”

  C．用户t1 和用户s2 添加了批注

  D．拒绝所有修订后，第一句文字是“记者从今天浙江省政府新闻信息办召开的新闻发布会上了解到”
  组卷：1引用：3难度：0.9

  解析

• 4．已知英文小写字母比对应的大写字母ASCII码大32（十进制），某数据加密方法描述如下：
  （1）将字符的ASCII码值加20（十进制）；
  （2）以字节为单位进行加密处理；
  （3）将1个字节的8位二进制数左移一位，最低位用左移出的最高位填充；
  （4）将处理后的8位二进制数分割成前4位与后4位两个二进制数；
  （5）分别将上述两个4位二进制数转换为十六进制数；
  （6）所得两个十六进制数码交换顺序后连接，即为该字节的密文．
  用UltraEdit-32软件观察“i-hangzhou”这几个字符的内码，如图所示
  
  则字符H加密后的密文是（　　）

  A．B8

  B．8B

  C．70

  D．07
  组卷：10引用：2难度：0.5

  解析

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

  A．同一张表中两个字段的字段名称可以完全相同

  B．字段数据类型若为“自动编号”，则新值一定是递增的

  C．在数据表视图删除字段是不能撤销的

  D．设置为主键的字段是不能删除的
  组卷：6引用：2难度：0.7

  解析

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

• 16．小龙编写了一个简易加法器VB程序，运行界面如图所示．在文本框Text1中输入一个数字后再输入空格表示一个加数输入完毕，连续不断输入不同的加数，待所有需要相加的数输入完毕后，单击“求和”按钮Command1后，在标签label1中显示加数的个数以及总和．（数字0和空格的ASCII码分别为48、32）
  实现上述功能的VB程序如下，但加框处代码有错，请改正．
  Private Sub Command1_Click （　　）
  Dim a As String
  Dim x As Integer,s As Integer,k As Integer
  a=Text1．Text
  x=1：s=0：k=0
  For i=1To Len（a）
  '如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序
  If （Asc（Mid（a,i,1））＜48Or Asc（Mid（a,i,1））＞57）then’①Label1．Caption=“只能输入数字或空格“
  Exit Sub
  End If
  If Mid（a,i,1）=““Then
  s=s+’②
  x=i+1
  k=k+1
  End If
  Next i
  Label1．Caption=“这“+Str（k）+“个数的和为：“+Str（s）
  End Sub.
  组卷：2引用：2难度：0.3

  解析

• 17．【加试题】中秋节时，班级组织活动，其中有抽奖环节，小龙在7选3中选考了技术，班主任让小龙编写一个VB抽奖程序，功能如下：窗体装载过程从数据库读取所有同学的相关数据并显示在列表框List1中，抽奖时在文本框Text1中输入要抽出的人数，单击“摇奖”按钮command1，程序进行处理，结果输出在列表框list2中。程序运行界面如图所示。
  
  实现上述功能的VB程序如下，请回答下列问题：
  （1）分析下面的程序代码，可知数据表名为

   

  。
  （2）请在横线处填入合适的代码。
  Dim a（1 To 100）As String'数组大小满足处理要求，学生学号
  Dim b（1 To 100）As String'数组大小满足处理要求，学生姓名
  Dim i As Integer'学生总数
  Dim j As Integer
  Dim dd（1 To 100）As Integer
  Private Sub Form_Load

   

  
  
  ‘从数据库读取全班同学的相关信息，存储在数组a、数组b和变量i中
  Dim n As Integer
  Dim conn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim strSQL As String
  conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0；Data Source=“& App.Path &“\1718.jye.ai“
  conn.Open
  Set rs.ActiveConnection=conn
  strSQL=“SELECT*FROM stuinfo“
  rs.Open strSQL
  '本过程的其他语句略
  End Sub
  Private Sub Command1_Click （　　）
  Dim ShuruNum As Integer,k As Integer,y As Integer,n As Integer
  Randomize
  ShuruNum=Val（Text1.Text）
  Label4.Caption=““
  For k=1 To i
  dd（k）=0
  Next k
  If ShuruNum＞0 And ShuruNum＜=i Then
  j=1
  Do While j＜=ShuruNum
  y=Int（Rnd

   

  *i）+1
  If

   

    Then'①
  dd（j）=y
  j=j+1
  End If
  Loop
  List2-Clear
  For n=1 To ShuruNum
  List2.AddItem 

   

  '②
  Next n
  Else
  Label4.Caption=“错误：没有输入中奖人数或超过学生总数“
  End If
  End Sub
  '核对重复，避免同一人再次中奖
  Private Function CheckCF（p As Integer） As Boolean
  Dim m As Integer,x As Boolean
  x=True'初始化
  For m=1 To j
  If 

   

   Then'③
  x=False
  Exit For
  End If
  Next m
  CheckCF=x
  End Function
  组卷：0引用：1难度：0.3

  解析