2018-2019学年浙江省杭州市临安区於潜中学高二（上）期末模拟信息技术试卷

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

• 1．如图是某软件管家对系统工具类软件提供的评价排名，这种评价属于（　　）
  

  A．统计评价	B．专家或核心刊物评价
  C．个人推荐	D．以上都不是
  组卷：14引用：2难度：0.9

  解析

• 2．某协议的主要功能是完成对数据包的确认、流量控制和网络拥塞；自动检测数据包，并提供错误重发的功能，该协议的简称是（　　）

  A．HTTP

  B．SMTP

  C．TCP

  D．POP
  组卷：12引用：3难度：0.9

  解析

• 3．使用WinHex软件查看字符“2017第一学期”的内码，部分界面如图所示。下列说法正确的是（　　）

  A．原文包含4个ASCII码

  B．共占10个字节

  C．关系表达式“10”＞“2”的值为True

  D．字符“期”的内码是“C6 DA”
  组卷：37引用：3难度：0.9

  解析

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

  A．当前数据库包含3张数据表

  B．数据表“学生联系”有3条记录

  C．可以将Access数据表中的数据导出到Excel

  D．在数据表“学生联系”中输入多条记录时，可以先不输入学号
  组卷：4引用：3难度：0.7

  解析

• 5．目前很多的网络电视都能实现视频点播，点什么就播什么，这主要体现了多媒体的（　　）

  A．交互性

  B．集成性

  C．实时性

  D．载体依附性
  组卷：14引用：2难度：0.9

  解析

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

• 16．编写VB程序，实现如下功能：单击“开始”按钮Command1，文本框Text1、Text2中自动产生[0，99]的随机整数，用户在文本框Text3中输入两数之和，单击“检测”按钮Command2，在列表框List1中输出计算结果是“正确”或“错误”，到此完成第1题测试。单击“下一题”按钮Command3，文本框Text1和Text2中重新生成随机整数，进行第2题测试……练习10题，一轮测试完成，每做对1题加10分，全部做对得100分。运行界面如图所示，程序代码如下：
  
  Dim c As Integer,Dim s As Integer
  Private Sub Command1_Click （　　）
  c=0：s=0
  Randomize
  List1．Clear
  Text1．Text=Str（Int（Rnd （　　）*51））
  Text2．Text=Str（Int（Rnd （　　）*51））
  Command1．Enabled=False
  Command3．Enabled=True
  End Sub
  Private Sub Command2_Click （　　）
  If Val（Text3．Text）=Val（Text1．Text）+Val（Text2．Text） Then
  List1．AddItem“正确“
  s=s+10
  Else
  List1．AddItem“错误“
  End If
  

   

  
  If c=10 Then
  Command3．Enabled=False
  Command1．Enabled=True
  List1．AddItem“您的得分是“+

   

  
  End If
  End Sub
  Private Sub Command3_Click （　　）
  代码略'文本框Text1和Text2中重新生成数据
  End Sub
  组卷：0引用：1难度：0.6

  解析

• 17．某仓库物品代码格式为“X-XXX-XXXXX-Y”，其中“X”和“Y”均为0到9之间的数字，“Y”为校验码．校验码由前面9个X计算得到，计算方法为：从左边开始，第1个数字乘以1加上第2个数字乘以2…依此类推，直到加上第9个数字乘以9，将该结果除以10，所得余数即为校验码．
  小吴设计一个根据校验码校验物品代码的VB程序，功能如下：在文本框Text1中输入物品代码，单击“校验”按钮Command1，如果输入的校验码与计算所得的校验码一致，就输出“校验通过”（如图甲所示），否则输出“校验不通过！”（如图乙所示）．
  
  实现上述功能的VB程序如下，加框处代码有错，请改正．
  Dim s As String′用于存储输入的物品代码
  Dim t As String
  Dim i As Integer,j As Integer
  Dim sum As Integer′用于存储计算校验码的累加和
  Dim check_-old As Integer′用于存储输入物品代码中的校验码Y
  Dim check_-new As Integer′用于存储按照前面9个数字X计算所得的新校验码
  Dim a（1To 10）As Integer
  Private Sub Command1_-Click （　　）
  ′从物品代码中取出9个数字X依次存储到a（1）到a（9）中，取出校验码Y存储到a（10）中
  s=（1）
  j=0
  For i=1To 13
  t=Mid（s,i,1）
  If （t＞=”0”） And（t＜=”9”） Then
  j=j+1
  a（j）=Val（t）
  End If
  Next i
  ′计算新的校验码并和输入的校验码进行比较
  sum=0
  For i=1To 9
  sum=sum+（2）
  Next i
  check_-new=（3）
  check_-old=a（10）
  If check_-old=check_-new Then
  Label1．Caption=”校验通过．”
  Else
  Label1．Caption=”校验不通过！”
  End If
  End Sub.
  组卷：22引用：3难度：0.5

  解析