2018年浙江省台州市高考信息技术模拟试卷（3月份）

一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）

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

  A．网络是人们获取信息的重要来源

  B．错误的信息加工，可能会导致虚假信息的产生

  C．同一种信息只能存在一种传播载体

  D．信息表达的规范化有利于信息的交流
  组卷：1引用：1难度：0.6

  解析

• 2．小马利用浏览器给同学发送电子邮件，该过程可能没用到的协议是（　　）

  A．HTTP

  B．TCP/IP

  C．POP3

  D．SMTP
  组卷：0引用：1难度：0.7

  解析

• 3．下列应用中，体现了人工智能技术的有（　　）
  ①微信聊天时发送语音
  ②通过人脸识别进行会场签到
  ③电脑开机后自动播放音乐
  ④用语音方式输入文字
  ⑤在线中英文互译
  ⑥通过手机手写方式输入文字

  A．①②③⑤

  B．①②④⑥

  C．②③④⑤

  D．②④⑤⑥
  组卷：4引用：2难度：0.5

  解析

• 4．某算法的部分流程图如图所示：执行这部分流程后，输出变量n的值是（　　）

  A．4

  B．22

  C．46

  D．94
  组卷：0引用：1难度：0.6

  解析

• 5．使用Access软件打开数据库，部分界面如图所示，下列说法正确的是（　　）
  

  A．可以直接在当前记录前插入一条新记录

  B．“编号”字段数据类型为“自动编号”

  C．当前状态下，可直接将数据表“藏书”重命名为“班级藏书”

  D．当前数据库的文件名为“藏书。accdb”
  组卷：0引用：1难度：0.6

  解析

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

• 16．小李基于对分查找算法编写了一个VB程序，功能如下：在文本框Text1中显示随机产生n个整数（n为奇数），单击“查找”按钮Command1，在标签Label1中显示这n个整数的中位数。（注：中位数是指将这n个数排序之后，排在正中间的数。）程序运行界面如图所示。
  实现上述功能的VB程序如下，但加框处代码有错，请改正。
  Const n=9
  Const m=50
  Dim a（l To n） As Integer
  Private Sub Form_Load （　　）
  '随机产生n个[l,m]之间的随机整数，依次存储在数组a中，并显示在文本框Text1中。
  '代码略。
  End Sub
  Private Sub Command1_Click （　　）
  Dim low As Integer,high As Integer,mid1 As Integer
  Dim count As Integer,i As Integer
  low=1：high=m
  Do While low＜high
  mid1=（low+high）\2
  count=0
  For i=1 To n
  IfThen count=count+1'（1）
  Next i
  If count＞n\2 Then
  '（2）
  Else
  high=mid1
  End If
  Loop
  Label1．Caption=Str（high）
  End Sub
  组卷：0引用：1难度：0.5

  解析

• 17．某数据分组方法描述如下：
  基于冒泡排序算法对数据进行排序，剔除重复数据后，得到一组从大到小排序的不重复数据。再对被剔除数据按以上方法进行分组，直到无被剔除数据。
  例如对数据“3，5，7，7，3，5，7，3，7”进行分组：
  小马基于以上算法编写了一个VB程序，功能如下：从文本框Text1中输入一组数据，单击“数据分组”按钮Command1．在列表框List1中显示每次分组的数据和剩余数据。程序运行界面如图b所示。
  实现上述功能的VB程序如下，请回答下列问题：
  （1）根据题意，若文本框Text1中输入的内容是“7，5，3，4，2，5，3，7，5”，则第2组数据依次是

   

  。
  （2）请在横线处填入合适的代码。
  Dim n As Integer,k As Integer
  Dim a（1 To 100）As Integer
  '本函数将返回第k次分组信息：根据sleft和smid参数值，返回当前挑选的数据及剩余数据
  Function prints（sleft As Integer,smid As Integer） As String
  '代码略
  End Function
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t As Integer
  Dim top As Integer'当前分组数据的起始位置
  Dim bottom As Integer'当前分组数据的结束位置
  '从文本框Text1中读取n个原始数据，依次存储到a（1）、a（2）、……a（n）中，代码略
  i=1：k=0
  top=1
  

   

  
  List1．Clear
  Do While top＜=bottom
  For j=bottom To i+1 Step-1
  Ifa（j-l）＜a（j）Then
  t=a（j）：a（j）=a（j-1）：a（j-1）=t
  Else If

   

   Then
  t=a（j）：a（j）=a（bottom）：a（bottom）=t
  bottom=bottom-1
  End If
  Next j
  If i＞=bottom Then
  List1．AddItem prints（top,bottom）'输出第k组数据及剩余数据
  top=

   

  bottom=n
  End If
  i=i+1
  Loop
  End Sub
  组卷：0引用：1难度：0.5

  解析