2018-2019学年浙江省金华市东阳中学高三（下）开学信息技术试卷（2月份）

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

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

  A．信息技术教材是信息的载体，教材上的文字、图象是信息

  B．使用微信支付时生成付款二维码的过程属于信息的管理

  C．统计评价结果中好评率最高的信息一定是真实可信的

  D．主题目录检索是网上信息检索的一种方法
  组卷：31引用：2难度：0.7

  解析

• 2．以下关于网络协议和网页保存类型的描述，正确的是（　　）

  A．SMTP 协议可以实现将发件人的邮件直接发送到收件人的计算机中

  B．FTP 协议负责浏览器和 Web 服务器之间的信息传输

  C．通过“网页，全部（*．htm；*．html）”方式保存网页，可以下载网页上的视频

  D．通过“Web 档案，单个文件（*．mht）”方式保存网页，可以同时保存网页中的图片
  组卷：8引用：4难度：0.6

  解析

• 3．小明扫描课本得到“相信未来3．jpg”图象，使用OCR软件进行字符识别，部分界面如图1所示；将识别结果用Word软件进一步进行编辑，部分界面如图2所示。
  
  下列说法正确的是（　　）

  A．在图1中，字符识别前发现图象有轻微倾斜，可执行“旋转图象”解决

  B．在图1中，如果想要取消当前所选区域，可执行“删除区域”解决

  C．在图2中，接受所有修订后，第三行文字是“摇曳着曙光那枝温暖漂亮的希望；”

  D．在图2中，接受修订前，第四行文字是“用孩子的笔体写下：相信未来。”
  组卷：20引用：4难度：0.5

  解析

• 4．使用Access软件进行学生信息管理。已有数据表视图如图a所示，部分数据存储在Excel表中如图b所示，下列说法正确的是（　　）
  

  A．图a当前状态下，可以设置字段“出生年月”的显示格式

  B．图a中字段“性别”修改为文本类型后，显示为男或女

  C．图b中数据全部拷贝入“学生信息”表中，第4条记录“ID”字段值一定为“10”

  D．图b中数据全部拷贝入“学生信息”表中，第4条记录出生年月显示为“2000年2月9日”
  组卷：35引用：3难度：0.2

  解析

• 5．某算法的部分流程图如图所示，进入流程图前b的初值为-1，流程执行后，依次输入-5，0，1，5，则输出的值是（　　）

  A．8

  B．11

  C．14

  D．21
  组卷：3引用：1难度：0.5

  解析

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

• 16．小明编写了一个字符串加密程序，运行界面如图所示。功能如下：在文本框Text1中输入明文，在文本框Text2中输入密钥（密钥值在1到25之间），单击“加密”按钮Command1后，在标签Label1中输出密文。加密算法如下：
  （1）若是字母，则将其变为按字母顺序往后数密钥个数的字母，若字母超过“Z”或“z”，则将其顺延到“A”或“a”后，大小写保持不变；若为其他字符，则保持不变，例如：
  

  明文	Z	h	e	n	_	H	a	i
  密钥	3
  密文	C	k	h	q	_	K	d	l

  （2）在步骤（1）的基础上，奇数位置的字符保持不变，偶数位置的字符逆序排列。
  

  密文

  C

  l

  h

  K

  _

  q

  d

  k

  实现上述功能的VB程序如下，波浪线处有错误，请改正。
  Private Sub Command1_Click （　　）
  Dim a（1 To 100）As String
  Dim s As String,i As Integer
  Dim j As Integer,n As Integer
  Label4．Caption=““
  s=Text1．Text
  n=Val（Text2．Text）
  i=1
  Do While i＜=Len（s）
  c=Mid（s,i,1）
  If c＞=“A“And c＜=“Z“Then
  a（i）=Chr（（Asc（c）-Asc（“A“）+n） Mod 26+Asc（“A“））
  ElseIf c＞=“a“And c＜=“z“Then
  a（i）=Chr（（Asc（c）-Asc（“a“）+n） Mod 26+Asc（“a“））
  Else
  a（i）=c
  End If
  i=i+1
  Loop
  ‘①
  For i=2 To Len（s）\2 Step 2
  t=a（i）：a（i）=a（j）：a（j）=t
  ‘②
  Next i
  For i=1 To Len（s）
  Label4．Caption=Label4．Caption+a（i）
  Next i
  End Sub
  组卷：6引用：1难度：0.4

  解析

• 17．某数据压缩方法描述如下：
  1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示：
  2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，均为0；
  3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个为0，第2个为重复数的个数，第3个数为该数本身。
  原始数据：25  0  78  78  78  78  78  78
  压缩数据：25  0 0       0  6  78
  程序运行界面如图所示：
  
  根据上述算法，小明编写如下VB程序。
  （1）若文本框Text1中输入数据为“0，25，0，78，78，0，0”（不含引号），点击“压缩”命令按钮，在文本框Text2输出数据里有个0。
  （2）实现上述功能的VB程序如下。请在横线处填入合适代码。
  Dim a（1 To 100）As Integer,b（1 To 100）As Integer,c（1 To 100）As Integer
  Dim n As Integer,num As Integer
  Private Sub Init1 （　　）
  Dim s1 As String,c1 As String
  Dim i As Integer,t As Integer,len1 As Integer
  n=0：t=0：s1=Text1．Text
  len1=Len（s1）
  For i=1 To len1
  ch=Mid（s1，i,1）
  If ch＜＞“，“Then
  ①

   

  
  Else
  n=n+1：a（n）=t：t=0
  End If
  Next i
  n=n+1：a（n）=t
  End Sub
  Private Sub Command1_Click （　　）
  Call Init1
  Dim pa As Integer,pb As Integer
  Dim firstdata As Integer,count As Integer,i As Integer
  pb=1
  firstdata=a（1）
  n=n+1
  a（n）=a（n-1）+1
  count=1
  For i=2 To n
  If a（i）=firstdata Then
  count=count+1
  Else
  If count=1 Then
  If firstdata＞0 Then
  b（pb）=firstdata：pb=pb+1
  Else
  b（pb）=0：b（pb+1）=0：pb=pb+2
  End If
  Else
  b（pb）=0
  b（pb+1）=count
  ②

   

  
  pb=pb+3
  End If
  count=1
  firstdata=a（i）
  End If
  Next i
  Text2．Text=Str（b（1））
  For i=③

   

  
  Text2．Text=Text2．Text+“，“+Str（b（i））
  Next i
  End Sub
  组卷：7引用：1难度：0.4

  解析