当前位置：试卷中心 > 试卷详情

2017年浙江省杭州市萧山区高考信息技术模拟试卷（2）

发布：2024/12/18 20:30:3

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

1．电视台每晚播放的新闻，有很多人同时在观看，而新闻节目主持人却不会因为播放这些信息而失去它们．这主要体现了（　　）
A．信息的表示、传播、储存必须依附于某种载体
B．信息可以脱离它所反映的事物被存储、保存和传播
C．信息是可以传递和共享的
D．信息具有时效性
组卷：16引用：2难度：0.9
解析
2．下列多媒体格式中，不属于多媒体数据压缩标准的是（　　）
A．JPEG B．MPEG C．MP3 D．BMP
组卷：24引用：5难度：0.9
解析

3．下列操作中没有用到光学字符识别（OCR）技术的是（　　）

A．将杂志中的一篇文章通过扫描仪扫描后再使用软件识别为文本文档保存起来

B．某手机 APP 可以通过摄像头拍摄某道题目并上传后自动给出试题的解题过程

C．用手机的摄像头把报纸上的一篇文章拍摄下来通过 QQ 发送给同学

D．某门禁系统可以自动识别车辆的车牌号，做到只有登记在案的车辆才允许进入

组卷：10引用：2难度：0.9

解析

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

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

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

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

D．修改字段名，数据表中相应的字段值不会改变

组卷：12引用：4难度：0.9

解析

5．某算法的部分流程图如图所示，执行这部分流程后，变量x和Flag的值分别是（　　）
A．2，True B．3，True C．2，False D．3，False
组卷：9引用：11难度：0.7
解析

当前模式为游客模式，立即登录查看试卷全部内容及下载

【加试题】

16．某校质量检测共n名学生参加，李老师编写了一个试场号座位号编排软件，输入选考科目就能根据该选考科目选考学生的名单编排试场．具体编排规则如下：读取数据库中学生的学号、姓名以及选考组合，和随机产生一个3位数，根据这个3位数和选考科目，排定该选考科目的试场，其中a（i）用于存放第i位学生的学号，b（i）用于存放第i位学生的姓名，c（i）用于存放第i位学生的选考组合，d（i）用于存放第i位学生的3位随机数．
程序界面如图所示，在文本框Text1中输入选考科目，单击“开始编排”按钮（Command1），根据产生的随机数和选考科目，进行试场编排，每30个人一个试场．试场显示格式一律为：试场号-座位号．

实现上述功能的VB代码如下，但加框处代码有错，请改正．
Dim n As Integer'考生数
Dim a（1000）As String,b（1000）As String,c（1000）As String
Dim d（1000）As Integer,e（1000）As String
Private Sub Form_Load （　　）
'读取数据库中学生的信息，分别将学号，姓名，选考组合和随机数存入a（i）、b（i）、c（i） d（i）中
End Sub
Private Sub Command1_Click （　　）
Dim km As String
km=Mid（Text1．Text,1，1）
xk=0'选考实际人数
For i=1 To n
   If km=Mid（c（i），1，1）or km=Mid（c（i），2，1）or km=Mid（c（i），3，1）Then
      xk=xk+1
      a（xk）=a（i）
      b（xk）=b（i）
      c（xk）=c（i）
      d（xk）=d（i）
   End If
Next i
For i=1 To xk-1
     k=i
     For j=i+1 To xk
         If    Then k=j
     Next j
     If k＜＞i Then
        t=a（k）：a（k）=a（i）：a（i）=t
        t=b（k）：b（k）=b（i）：b（i）=t
        t=c（k）：c（k）=c（i）：c（i）=t
        t=d（k）：d（k）=d（i）：d（i）=t
    End If
Next i
For i=1 To xk
     e（i）=
     List1．AddItem a（i）+““+b（i）+““+c（i）+““+Str（d（i））+““+e（i）
Next i
End Sub.
组卷：9引用：1难度：0.1
解析
17．某校质量检测共n名学生参加，李老师编写了一个试场号座位号查询软件，输入学号就能查询该生的姓名和试场号座位号．数组a、b分别保存了本次考试所有学生的学号和姓名信息．第i个学生的学号保存在a（i）中，对应的姓名保存在b（i）中．程序界面如图所示，在文本框Text1中输入学号，单击“开始查询”按钮（Command1），电脑就开始查找该学号的信息，如果找到对应的信息，就显示所属学生的姓名和选考组合，并显示在Text2和Text3中，Text4语数外的试场信息，Label（1），Label（2），Label（3）分别显示选考科目，相对应的Text5（1），Text5（2），Text5（3）分别显示对应的试场信息；如果没有找到，则显示“找不到”．

相应程序如下，在程序①和②横线处填入适当的语句和代码，把程序补充完整．
（1）程序段Function部分主要采用了

算法（填：顺序查找/对分查找）；
（2）在程序画线①处应填入

；
在程序画线②处应填入

．
Dim n As Integer'考生数
Dim a（1000）As String,b（1000）As String
Dim xk（1 To 3）As String
Private Sub Command1_Click （　　）
Dim x As string
s1=“政治历史地理物理化学生物技术“
    Dim conn As New ADODB．Connection
    Dim rs As New ADODB．Recordset
    conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=“& App.Path &“\students.jye.ai“
    conn.Open
    Set rs.ActiveConnection=conn
    rs.Open“学生信息“
    n=0
    m=0
    Do While Not rs.EOF'到记录集最后一条记录后退出循环
        n=n+1'计数
        a（n）=rs.Fields（“学号“）
        b（n）=rs.Fields（“姓名“）
        rs.MoveNext'移动到下一条记录
    Loop
    rs.MoveFirst
x=Text1．Text
pos=①
If pos＞0 Then
   rs.Move pos
   zh=rs.Fields（“选考组合“）
   Text2．Text=b（pos）
   Text3．Text=zh
   Text4．Text=rs.Fields（“语数外“）
   For i=1 To 3
     xk（i）=Mid（zh,i,1）
     For j=1 To 13 Step 2
         If       ②Then
            Label（i）．Caption=Mid（s1，j,2）
            Text5（i）．Text=rs.Fields（xk（i））
         End If
    Next j
Next i
Else
   Text2．Text=“找不到“
End If
End Sub

Function Search（Key As String） As Integer
Dim i As Integer,j As Integer
   i=1
   j=n
   Do While i＜=j
    m=Fix（（i+j）/2）
    If Key=Val（a（m）） Then
      Search=m
      Exit Function
    ElseIf a（m）＞Key Then
        j=m-1
    Else
        i=m+1
    End If
Loop
Search=0
End Function.
组卷：12引用：1难度：0.1
解析