2018年浙江省普通高校招生选考信息方向性技术试卷（4月份）

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

• 1．关于信息及信息安全，下列说法或做法不正确的是（　　）

  A．信息无处不在，通过加工处理后的信息不存在虚假之分

  B．物联网将现实世界数字化，它是新一代信息技术的重要组成部分

  C．对朋友圈里的信息点赞属于信息的个人推荐评价

  D．在微信、论坛里不要随便转发会造成社会不良影响的信息
  组卷：64引用：2难度：0.9

  解析

• 2．小王通过 IE 浏览器登录学校内部阅卷系统，地址栏信息为“htt”。下列说法正确的是（　　）

  A．网页中的超链接对象只能是文字，不能是图片

  B．小王登录的是学校内部网络，它属于局域网，简称 LAN

  C．网页文件实质上是超文本文件，一个网页可以有文字、图象和超链接

  D．HTTP 是超文本传输协议，只有 WWW 需要遵守这个标准，局域网不需要遵守
  组卷：9引用：2难度：0.9

  解析

• 3．小华扫描报纸得到“劝学.bmp”图象，使用 OCR 软件进行字符识别，部分界面如图1所示，然后使用 Word 软件编辑识别后的文档，部分界面如图2所示。下列说法正确的是（　　）
  

  A．在图1中，执行“删除区域”后，将删除所选区域中的内容

  B．扫描分辨率不会影响 OCR 软件的识别率

  C．在图2中，接受所有修订后，第一行文字是“不积蹞步，无以至千里。”

  D．在图2中，修订前，第二行文字是“不积小流，无以成江海。”
  组卷：0引用：2难度：0.4

  解析

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

  A．Access 数据表中的数据可以从 Excel 导入，Excel 与 Access 都是小型数据库软件

  B．字段“ID”的数据类型一定是“自动编号”

  C．字段“缴费”的数据类型一定是“数字型”

  D．删除当前记录后，无法通过“撤消”命令撤销删除，只能在当前位置插入一条记录重新录入
  组卷：27引用：2难度：0.5

  解析

• 5．某算法的部分流程图如图所示，执行这部分流程，变量 x,y的值分别是（　　）
  

  A．0，“7 1”

  B．0，“1 7”

  C．0，17

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

  解析

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

• 16．编写一个 VB 程序，实现程序功能如下：随机产生 10 个 1～20 之间的整数存 数组 a,在列表框 List1 中显示，单击“排序”按钮 Command1 后，在列表框 List2 中显示升序 排序后的结果，运行界面如图所示。具体算法描述如下：引入数组 index,index（i）存储 i 位 置应放置的数组元素的下标。排序完毕，a（index（i））成为升序序列，即 a（index（1））≤a（index（2））
  ≤a（index（3））≤……≤a（index（n））。在数组 a 的所有元素中找出最小元素，将其所在位置存放 在数组元素 index（1）中，然后在余下的元素中找出最小元素，将其所在位置存放在数组元素 index（2）中，以此类推，直到完成所有元素排序。如 n=5 时，数组 a 排序后各变量值如表所示。
  

  i	1	2	3	4	5
  a（i）	17	19	9	13	6
  index（i）	5	3	4	1	2
  a（index（i））	6	9	13	17	19

  实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
  Const n=10，maxn=20
  Dim a（1To n） As Integer,index（1To n） As Integer,flag（1To n） As Boolean
  Private Sub Form_Load （　　）
  Dim i As Integer Randomize
  For i=1To n flag（i）=False
  a（i）=Int（Rnd （　　）*maxn）+1
  List1．AddItem Str（a（i）） Next i
  End Sub
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,k As Integer
  For i=1To n
  For j=1To n
  If flag（j）=False Then k=j：Exit For
  Next j
  For m=k+1To n
  If  Then k=m‘（1）
  Next m index（i）=k flag（k）=True
  Next i
  For i=1To n
  List2．AddItem ‘（2）
  Next i
  End Sub
  组卷：7引用：1难度：0.3

  解析

• 17．小王编写一个 VB 程序模拟数据筛选，功能如下：程序运行时从数据库中读取 成绩数据，按升序排序后在列表框 List1 中显示，在文本框 Text1 中输入成绩 1，在文本框Text2 中输入成绩 2，单击“筛选”按钮 Command1，筛选出大于等于成绩 1 且小于等于成绩2 的记录，并显示在列表框 List2 中，程序运行界面如图所示。
  （1）运行上述程序，若在文本框 Text1 中输入 75，Text2 中输入 85，单击“筛选”按钮，则 筛选到的记录有 

   

  条（填数字）。
  （2）实现上述功能的 VB 程序如下，请在横线处填入合适代码。
  Const n=20
  Dim score（1To n） As Single
  Function adj（s As String,n As Integer）
  ‘此函数功能：在字符串 s 前添加若干个 空格，使其长度变为 n.代码略
  End Function
  Function search_left（key As Integer）
  ‘此函数功能：返回大于等于 key 的数 组元素的起始位置。代码略。
  End Function
  Function search_right（key As Integer）
  Dim i As Integer,j As Integer,m As Integer i=1：j=n
  Do While i＜=j
  

   

  
  If key＞=score（m） Then i=m+1Else j=m-1
  Loop
  

   

  
  End Function
  Private Sub Form_Load （　　）
  ‘从数据库中读取成绩存数组 score,记录数存 n,并对此数组 score 升序排序，代码略
  End Sub
  Private Sub Command1_Click （　　）
  Dim num1As Integer,num2As Integer,first As Integer,last As Integer
  List2．Clear
  num1=Val（Text1．Text）：num2=Val（Text2．Text）
  first=search_left（num1）：last=search_right（num2）
  

   

  
  If total＜=0Then
  List2．AddItem“无筛选到的记录！“Else
  List2．AddItem“筛选到“+Str（total）+“条记录！“List2．AddItem“依次是：“
  For i=first To last
  List2．AddItem adj（Str（i），3）+adj（Str（score（i）），6）Next i
  End If
  End Sub
  组卷：9引用：1难度：0.2

  解析