2017年浙江省普通高校高考信息技术模拟试卷（8）

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

• 1．中国某即时通信软件的“红包”服务功能，有一项规定：红包在发起后的24小时内没有被领取，将自动退款．这个规定主要是保证信息的（　　）

  A．时效性

  B．共享性

  C．交互性

  D．载体依附性
  组卷：26引用：6难度：0.9

  解析

• 2．小张的QQ号被盗，经过申诉后取回，为了保障QQ号的安全，下列做法合理的是（　　）
  ①通过申诉取回就表示QQ号是我专用的，不用进行任何操作
  ②把QQ号与自己的常用手机绑定
  ③更改QQ密码为自己的生日
  ④重新设置QQ密保问题
  ⑤购买QQ令牌并绑定
  ⑥更新杀毒软件并进行完全扫描．

  A．①②④⑤

  B．②③④⑥

  C．②④⑤⑥

  D．②③④⑤
  组卷：6引用：2难度：0.9

  解析

• 3．某款手机的部分参数如下表所示：
  

  参数	功能
  手机类型	手机类型4G手机，3G手机，智能手机，音乐手机，拍照手机
  主屏	尺寸：4.7英寸；材质：RetinaHD；分辨率：1334×750像素触摸屏类型：电容屏，多点触控
  操作系统	iOS 9
  网络	全网通：支持2G/3G/4G
  	支持单频/双频WIFI导航，GPS导航，A-GPS技术，GLONASS导航，iBeacon微定位
  CPU	型号：苹果A9+M9协处理器；频率：1.8 GHz；位数：64位
  机身内存	2 GB
  可用空间	64 GB
  摄像头类型	双摄像头前置：500万像素；后置：1200万像素
  音频支持	支持MP3VBR/Audible（格式2、3、4、Audible Enhanced Audio、AAX与AAX+）/Apple Lossless/AIFF/WAV等格式
  视频支持	H.264视频、MPEG-4视频、Motion JPEG（M-JPEG）
  手机尺寸	138.3×67.1×7.1 mm

  下列说法不正确的是（　　）

  A．操作系统是硬件

  B．该款手机具有导航功能

  C．MP3是音乐信息的压缩标准

  D．“4G手机”中的“4G”是指第四代移动通信技术
  组卷：11引用：1难度：0.9

  解析

• 4．某同学用Access软件创建了一张关于楼盘情况的数据表，界面如图所示．下列说法正确的是（　　）
  

  A．若“ID”字段类型为“自动编号”，则删除第3条记录后，第4条记录的“ID”自动更改为“3”

  B．在如图所示状态下插入一条新记录，则新添加的记录将会出现在数据表的最后一行

  C．该表共有5条记录

  D．该表的“是否装修”的字段类型为文本
  组卷：6引用：1难度：0.7

  解析

• 5．某算法的部分流程图如图所示：
  
  该流程图的算法模式属于（　　）

  A．顺序模式

  B．循环模式

  C．分支模式

  D．选择模式
  组卷：13引用：2难度：0.7

  解析

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

• 16．【加试题】编写VB程序，实现如下功能：在文本框Text1中输入一个整数n,单击“产生”按钮Command1，随机生成n个1～100的不同整数．单击“排序”按钮Command2，对产生的随机数进行从小到大的排序，并将排序结果输出在窗体上．界面如图所示．
  
  按此要求编写的程序如下：
  Option Base 1'数组下标从1开始
  Dim a（　　）'动态数组，数组元素个数不无确定
  Dim i As Integer
  Private Sub Command1_Click（　　）
  n=Val（Text1．Text）
  ReDim a（n）'定义数组元素个数为n
  For i=1To n
  Randomize'初始化随机数发生器
  a（i）=

   

  '产生1～100的随机整数
  For j=1To i-1
  If a（j）=a（i） Then
  i=i-1
  Exit For
  End If
  Next j
  Next i
  Print“排序前：”；
  For i=1To n
  Print a（i）；
  Next i
  End Sub
  Private Sub Command2_Click（　　）
  n=Val（Text1．Text）
  For i=1To n-1
  k=i
  For j=k+1To n
  

   

  
  Next j
  If k＜＞i Then
  temp=a（k）：a（k）=a（i）：a（i）=temp
  End If
  Next i
  Print
  Print“排序后：”；
  For i=1To n
  Print a（i）；
  Next i
  End Sub
  请回答下列问题：
  （1）①处的代码为

   

  ．
  （2）②处的代码为

   

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

  解析

• 17．【加试题】小金想模拟实现邮箱注册及保存过程，他用VB设计了一个模拟程序．功能如下：运行程序时，在文本框Text1中输入待注册的邮件地址（假设输入的地址合理），在文本框Text2和Text3中分别输入两次密码，单击“立即注册”按钮Command1，查找邮件数据库，如邮件地址未在数据库中并且前后两次密码一致，则把邮件地址和密码加入到数据库中，并显示在列表框List1中，其应用程序界面如图所示．
  
  数据信息存放在数据库文件“youxiang.jye.ai”的“use”表中，假定邮箱数不超过100个．请在横线处填上合适的代码．
  代码如下：
  Dim yxdz（1To 100）As String'定义存储邮箱地址的数组
  Dim yxmm（1To 100）As string'定义存储邮箱密码的数组
  Dim n As Integer'定义存储邮箱总数的变量
  Private Sub Command1_Click（　　）
  Dim key As String
  key=（Text1．Text）
  If Text2．Text=Text3．Text Then
  For i=1To n
  If

   

  Then
  MsgBox（“邮件地址有重名，请检查！”）
  '在消息框中显示邮件地址有重名
  Exit For
  

   

  
  Next i
  Else
  MsgBox（“密码前后不一致，请检查！”）
  '在消息框中显示密码前后不一致
  End If
  '把邮件信息添加到数据库youxiang.jye.ai中的程序代码略
  End Sub
  Private Sub Form_Load（　　）
  Dim conn As New ADODB．Connection
  '定义Connection对象实例conn
  Dim rs As New ADODB．Recordset
  '定义Recordset对象实例rs
  conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；
  date source=”& App.Path&“\youxiang.jye.ai”
  '设置conn的数据库连接字符串
  conn.Open
  '打开数据库连接
  rs.ActiveConnection=conn
  '设置rs的ActiveConnection属性，关联conn
  rs.Open“SELECT*FROM

   

  ”
  '打开记录集，获取数据
  n=0
  List1．AddItem“邮箱地址”&“”&“邮箱密码”
  Do While Not rs.EOF
  n=n+1
  yxdz（n）=rs.Fields（1）
  '邮箱地址字段的序号为1
  yxmm（n）=rs.Fields（2）
  '邮箱密码字段的序号为2
  List1．AddItem yxdz（n）&“”&yxmm（n）
  rs.MoveNext
  Loop
  rs.Close
  conn.Close
  End Sub
  程序中①横线处应填入

   

  ．
  程序中②横线处应填入

   

  ．程序中③处应填入

   

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

  解析