2016-2017学年浙江省金华市江南中学高二（下）期中信息技术试卷

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

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

  A．信息表达要遵循一定的标准，其中英文字符信息交换的国际标准是GB2312码

  B．通过“12306铁路客户服务中心”网上订票需要提供身份证和手机号，会引起个人信息的泄露，所以一定要通过车站购票窗口买票

  C．在淘宝网上购物时，可以看到很多顾客的评价内容，这些信息都是真实的

  D．信息的表示、传播、存储要依附于某种载体，所以不存在没有载体的信息
  组卷：18引用：2难度：0.9

  解析

• 2．电子邮件从发送方传送到接收方的基本流程如图所示，邮件从“发送方邮件服务器”传送到“接收方邮件服务器”（如图所示步骤④）的过程中使用的协议是（　　）
  

  A．SMTP

  B．POP3

  C．HTTP

  D．HTML
  组卷：6引用：2难度：0.9

  解析

• 3．世界著名杂志《连线》创始主编凯文•凯利在一次演讲中谈到：人工智能早已来临，只是你还没有感受到．下列描述不属于人工智能应用范畴的是（　　）
  ①用扫描仪扫描照片，并保存为JPEG格式的图象文件
  ②利用VR（虚拟现实）技术创建和体验虚拟世界
  ③利用OCR软件识别数码图片中的文字，并保存为文本文件
  ④用手机编辑短信，以联机手写的方式输入短信的内容
  ⑤通过视频会议系统进行远程教学研讨．

  A．①②⑤

  B．②④⑤

  C．③④

  D．①②③
  组卷：10引用：3难度：0.9

  解析

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

  A．将数据表中某列的数据全部设置为0，则该列对应字段自动删除

  B．数据表中必须含有类型为“自动编号”的字段，否则记录将无序

  C．数据表中记录只能修改而不能删除，否则会出现空行

  D．修改字段名，数据表中相应的字段值不会改变
  组卷：12引用：4难度：0.9

  解析

• 5．某Visual Basic程序段如下：
  Dim s As String,t As Integer,i As Integer
  s=“Information Technology“
  t=4
  For i=3To 1Step-1
  s=Mid（s,i,t）
  t=t-1
  Next i
  Text1．Text=s
  该程序段运行后，文本框Text1中显示的内容为（　　）

  A．form

  B．orm

  C．or

  D．for
  组卷：20引用：3难度：0.9

  解析

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

• 16．编写VB程序，实现如下功能：在文本框Text1中输入三位正整数，单击“计算”按钮Command1，在文本框Text2中输出该该三位正整数能生成的最大三位数，运行界面如图所示，程序代码如下．
  （1）代码“Private Sub Command1_Click（　　）”中的Click是

   

  ．（单选，填字母：A．对象名/B．属性名/C．事件名）
  （2）为实现上述功能，请在横线处填入合适的代码．
  Private Sub Command1_Click （　　）
  Dim n As Integer,max As Integer
  Dim a As Integer,b As Integer,c As Integer,t As Integer
  x=Val（Text1．Text）
  a='①
  b=x\10Mod 10
  c=x Mod 10
  If a＜b Then t=a：a=b：b=t
  If a＜c Then t=a：a=c：c=t
  If b＜c Then t=c：c=b：b=t
  '②
  Text2．Text=Str（max）
  End Sub
  ①a=

   

  
  ②

   

  
  （3）由上述算法可知，当在Text1中输入“213”时，对应的Text2中所得为

   

  ．
  组卷：11引用：3难度：0.1

  解析

• 17．小婷编写了一个VB程序，实现如下功能，在文本框text1中输入一个4位整数zs,单击解密按钮后，在list1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息，运行界面如图所示．
  解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换．如数字9357，解密后的值为3715．
  （1）观察程序代码，可知“解密”按钮的对象名是

   

  （单选，填字母：A．Command1    B．List1    C．Decryp_Click（　　）    D．Decryp    E．解密）
  （2）实现上述功能，请在横线处填入合适的代码．
  Private Sub Decryp_Click（　　）
  Dim zs As Long,g As Integer,s As Integer,b As Integer,q As Integer
  Dim jmh As String,m As Integer
  zs=Val（Text1．Text）
  For m=zs To

   

  
  q=（m\1000）*5 Mod 8
  b=（（m\100）Mod 10）*5 Mod 8
  s=（（m\10）Mod 10）*5 Mod 8
  g=（m Mod 10）*5 Mod 8
  jmh=

   

  
  List1．AddItem Str（m）+““+jmh
  Next m
  End Sub
  （3）由上述算法可知，四位数“6124”对应的解密数值是

   

  ．
  组卷：4引用：2难度：0.1

  解析