2016年浙江省普通高校高考信息技术模拟试卷（2）

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

• 1．二维码扫描是指通过智能手机客户端应用软件获取二维码图片中的内容和信息．小汪正在使用新浪微博手机客户端扫描二维码，如图所示．扫描二维码这个过程体现了（　　）

  A．虚拟现实	B．人工智能
  C．基于内容的检索	D．光学字符识别
  组卷：6引用：1难度：0.9

  解析

• 2．在WORD中输入文字“123高三＜6＞班加油！”，自动更正的属性面板如图所示则最终显示的文字内容为（　　）

  A．123高三＜6＞班加油！	B．123高三＜6＞班123
  C．高三＜6＞班加油！	D．加油！高三＜6＞班加油！
  组卷：3引用：1难度：0.9

  解析

• 3．小黄最近在信息技术课堂中学习了ASCII码，知道了字母“a”的ASCII码为61H，好学的他想知道自己姓的首字母“H”在计算机中存储时的二进制代码为（　　）

  A．41H

  B．1001000B

  C．48H

  D．01001000B
  组卷：3引用：1难度：0.9

  解析

• 4．使用ACCESS软件创建的“图书销售”数据表，如图所示．
  则图中“”按钮的作用是（　　）

  A．查看上一条记录	B．查看下一条记录
  C．查看最后一条记录	D．插入一条新的记录
  组卷：4引用：1难度：0.7

  解析

• 5．下列软件中，属于电子邮箱管理软件的是（　　）

  A．Outlook Express	B．Access
  C．WinHex	D．UltraEdit
  组卷：5引用：1难度：0.7

  解析

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

• 16．小明想用VB编程制作一个名次计算器，首先将同学的成绩录入到计算机中，同时存放在数组a中，显示在左边列表框中．点击“排序”按钮后，程序会将成绩从高到低依次排序显示在右边的列表框中．运行界面如图所示，请在两个横线处填入代码．
  Dim a（1To 100）As Single
  Dim shu As Integer
  Private Sub Command1_Click
  Dim i,j,k As Integer
  Dim t As Single
  For i=1To shu-1
  k=i
  For j=i+1 To shu
  If ①

   

  Then
  t=a（j）：a（j）=a（k）：a（k）=t
  End If
  Next j
  Next i
  For i=1 To shu
  List2．AddItem“第“& Str（i） &“名：“& Str（a（i））
  Next i
  End Sub
  Private Sub Text1_KeyPress（KeyAscii As Integer）
  Dim cj As Single
  If KeyAscii=13Then
  cj=Val（Text1．Text）
  If cj＞0Then
  ②

   

  
  List1．AddItem Str（shu） &“：“& Str（cj）
  a（shu）=cj
  End If
  Text1．Text=““
  End If
  End Sub.
  组卷：9引用：2难度：0.1

  解析

• 17．小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序．功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中．点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中．程序界面如图所示：
  
  实现上述功能的部分VB程序如下，请在三个横线处填入合适代码．
  '定义全局数组变量
  Dim a（1To 10）As Long
  Dim b（1To 10）As String
  '自动加载条形码信息以及对应的商品信息
  Private Sub Form_Load
  Dim i As Integer
  a（1）=503741
  For i=2To 10
  a（i）=a（i-1）+1
  Next i
  b（1）=“可乐 5.00“
  b（2）=“薯片 7.50“
  b（3）=“牛奶 5.60“
  b（4）=“橙汁 7.50“
  b（5）=“面包 4.00“
  b（6）=“蜂蜜 28.00“
  b（7）=“蛋糕 12.00“
  b（8）=“绿箭 3.50“
  b（9）=“饼干 6.00“
  b（10）=“雪碧 5.00“
  End Sub
  '输入条形码，查找条形码，并显示条形码及其对应的商品信息
  Private Sub Text1_KeyPress（KeyAscii As Integer）
  Dim txm As Long：
  Dim i As Integer：
  Dim j As Integer
  txm=Val（Text1．Text）
  If KeyAscii=13Then
  If txm＞=503741And txm＜=503750Then
  List1．AddItem txm
  Text1．Text=““
  i=1：j=10
  Do While i＜=j
  ①

   

  
  If txm=a（m） Then
  List2．AddItem b（m）
  Exit Do
  ElseIf txm＞a（m） Then
  i=m+1
  Else
  ②

   

  
  End If
  Loop
  Else
  MsgBox“条形码输入错误，无此商品“
  Text1．Text=““
  End If
  End If
  End Sub
  '计算所购商品的总额
  Private Sub Command1_Click
  Dim i As Integer,mx As String,jg As String,sum As Single
  For i=0To 9
  If List2．List（i）＜＞““Then
  mx=List2．List（i）
  sum=sum+Mid（mx,4）
  End If
  Next i
  Text2．Text=③

   

  
  End Sub.
  组卷：24引用：1难度：0.1

  解析