2017-2018学年浙江省丽水市高二（下）期末信息技术试卷

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

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

  A．信息的表示、存储必须依附于载体，信息的传播不需要载体

  B．利用信息技术，可以把信息从一种形态转换为另一种形态

  C．信息在计算机内部采用十六进制代码表示

  D．信息与物质能源一样可重复使用而不产生损耗
  组卷：8引用：1难度：0.7

  解析

• 2．IMAP（Internet Mail Access Protocol）即交互式邮件存取协议，其功能之一是提供了方便的邮件下载服务，让用户能进行离线阅读．以下与该功能相似的协议是（　　）

  A．POP3

  B．SMTP

  C．HTTP

  D．TCP/IP
  组卷：8引用：3难度：0.9

  解析

• 3．一款用于多人视频会议智能系统，可识别参会人员身份，对不同人的发言进行标记和语音转码，并编译成不同语言文字。该设备的下列功能中，没有用到人工智能技术的是（　　）

  A．人脸识别进行身份确认

  B．多人视频聊天

  C．对不同人的发言进行语音识别

  D．将发言内容编译为不同语言文字
  组卷：4引用：3难度：0.4

  解析

• 4．在Flash中，当RGB设置为（255，0，0）时，下方自动显示为#FF0000，如图所示，则当RGB设置为（255，64，200），下方将显示为（　　）

  A．FFC840

  B．FF40C8

  C．FFB840

  D．FF40B8
  组卷：1引用：1难度：0.5

  解析

• 5．某算法部分流程图如图所示，执行该流程后，变量s,i的值分别是（　　）

  A．22   2

  B．14    4

  C．14    2

  D．22    4
  组卷：4引用：2难度：0.4

  解析

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

• 16．小明学习了选择排序后，对选择排序算法进行了如下改进：在数组的所有元素中找出最小和最大数据的元素，然后将这两个元素分别与第一个和最后一个元素交换数 据，在余下的元素中找出最小和最大数据的元素，分别与第二个和倒数第二个元素交换数据，以此类推，直到所有元素的数据按升序排列。程序运行界面如图所示。
  实现上述功能的VB程序如下，但加框处代码有错，请改正。
  Const n=10
  Dim a（1To n） As Integer
  Private Sub Command1_Click （　　）
  Dim left1As Integer,right1As Integer,Pmax As Integer,Pmin As Integer,t As Integer
  '随机生成一组正整数，存储在数组a中，代码略
  left1=1：right1=n
  Do While left1＜right1
  Pmin=left1：Pmax=left1
  For i=left1+1To  ‘①
  If a（i）＜a（Pmin） Then Pmin=i
  If a（i）＞a（Pmax） Then Pmax=i
  Next i
  t=a（Pmin）：a（Pmin）=a（left1）：a（left1）=t
  If Pmax=left1Then    ‘②
  t=a（Pmax）：a（Pmax）=a（right1）：a（right1）=t
  left1=left1+1
  right1=right1-1
  Loop
  '依次输出排序后的数据。代码略
  End Sub
  组卷：2引用：1难度：0.4

  解析

• 17．编写VB程序，实现如下功能：在数组a中生成不重复的随机整数，按升序排列并显示在标签Label1中。在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组a中查找该数。若找到，则从数组a中删除该数（该数后面的数组元素都前移），并在标签Label2中显示删除后的结果；否则，在标签Label2中显示“该数没有找到”。程序运行界面如下图所示。
  
  请在横线处填入合适的代码。
  Const n=10
  Dim a（1To n） As Integer
  'Form_Load事件过程产生不重复的随机整数，按升序排序并在标签Label1中显示
  Private Sub Form_Load（　　）
  Dim i As Integer,j As Integer,temp As Integer
  Randomize
  For i=1To n
  a（i）=Int（Rnd*100）+1
  For j=1To i-1
  If a（i）=a（j） Then
  ①

   

  
  Exit For‘退出For循环
  End If
  Next j
  Next  i
  For i=2To n
  If a（i）＜a（i-1）Then
  temp=a（i）
  For j=i-1To 1Step-1
  If temp＞a（j） Then  Exit For
  a（j+1）=a（j）
  Next j
  ②

   

  
  End If
  Next i
  For i=1To n
  Label1．Caption=Label1．Caption+Str（a（i））+““
  Next i
  End Sub
  Private Sub Command1_Click（　　）
  Dim i As Integer,j As Integer,m As Integer,k As Integer
  Dim key As Integer,flag As Boolean
  key=Val（Text1．Text）
  i=1：j=n
  flag=False
  Do While （i＜=j） And （not flag）
  m=Int（（i+j）/2）
  If a（m）=key Then flag=True
  If a（m）＜key Then i=m+1Else j=m-1
  Loop
  If flag=True Then
  For k=③

   

  
  a（k）=a（k+1）
  Next k
  Label2．Caption=““
  For k=1To n-1
  Label2．Caption=Label2．Caption+Str（a（k））+““
  Next k
  Else
  Label2．Caption=“该数没有找到“
  End If
  End Sub
  组卷：2引用：1难度：0.4

  解析