2017年浙江省高考信息技术模拟试卷（一）

试卷日期：2017-10-30 考试类型：高考模拟

前去【出卷网】下载

一、选择题

  • 1. 下图是某软件管家对系统工具类软件提供的评价排名，这种评价属于（   ）
    A、统计评价 B、专家或核心刊物评价 C、个人推荐 D、以上都不是

    查看试题解析

  • 2. 小张在打开一个网站上点击了一个超链接，却发现打开了outlook进入邮件撰写界面。由此可见小张点的超链接可能是（   ）
    A、http://mail.163.com B、ftp://mail.163.com C、mailto:mail@163.com D、file:///mail.163.com

    查看试题解析

  • 3. 如下图所示，下列说法正确的是（   ）
    A、上图中有三处修订 B、上图中有两处批注 C、上图中有五处修订 D、上图中有一处自动更正

    查看试题解析

  • 4. 如下图所示，下列描述正确的是（   ）
    A、数据库名称为”资产” B、当前数据表中有8个字段 C、当前数据表中有4条记录 D、当前为第3条记录

    查看试题解析

  • 5. 下列流程图是为了统计键盘输入数字的个数，输入-1代表结束。则①处应填入（   ）
    A、Y>-1 B、Y<>-1 C、Y<-1 D、  Y=-1

    查看试题解析

  • 6. 目前很多的网络电视都能实现视频点播，点什么就播什么，这主要体现了多媒体的（   ）
    A、交互性 B、集成性 C、实时性 D、载体依附性

    查看试题解析

  • 7. 下列数据中最小的数是（   ）
    A、(1110111）2 B、1AH C、31D D、（1111110）2

    查看试题解析

  • 8. 下列四个图均为200*100像素，24位色的图像，其存储容量大小的说法正确的是：（   ）
    a b c   d
    A、如果是BMP文件，文件容量大小依次是D>C>B>A B、如果是JPG文件，文件容量大小无法判断 C、如果是BMP文件，文件容量一样大 D、如果是JPG文件，文件容量一样大

    查看试题解析

  • 9. 小赵制作FLASH动画时的文档属性如下图，下列说法错误的是（  ）
    A、文档的背景是白色的 B、动画播放的帧频是12帧/秒 C、动画的宽度550像素，高度400像素 D、这个文件的文件名为：未命名-1.swf

    查看试题解析

  • 10. 【加试题】小连用ULtraEdit查看到的如下汉字内码。下列说法正确的是：（   ）
    A、上图显示的内码中有5个汉字，2个西文字符 B、上图显示的内码中有4个汉字，2个西文字符 C、上图显示的内码可见这些字符为同一行 D、上图显示的内码可见这些字符为两行

    查看试题解析

  • 11. 【加试题】有如下程序段，运行后A(10)=（   ）
    Dim a(30) As Integer
    a(1) = 1
    a(2) = 1
    i = 2
    Do While i < 10
        i = i + 1
    a(i) = a(i - 1) + a(i - 2)
    Loop
    A、0 B、34 C、55 D、空

    查看试题解析

  • 12. 【加试题】设窗体上已经添加了command1、text1、label1对象，当文本框中输入8时下列代码段运行后的结果会是（   ）

    Private Sub Command1_Click()

    Dim s As Integer

    Dim n As Integer

    Dim i As Integer

    n = Val(Text1.Text)

    s = 1

    For i = 2 To n

      s = s * i

    Next i

    Label1.Caption = Str(n) + "!=" + Str(s)

    End Sub

    A、程序有语法错误 B、出现“溢出”错误 C、8!= 4032 D、8!= 40320

    查看试题解析

二、非选择题

  • 13. 某高校自主招生实行上机考，根据学校现有机房为学生生成邀请码，学生网上报名时只有邀请码正确才能完成报名。下表中的邀请码生成公式为：=”2017-TEST-“&机房编号&”-”&学生身份证后4位。
    图1
    (1)、根据上述要求，在A3单元格应输入公式：
    (2)、上图中D列身份证号发现问题，后3位全部为零，主要原因是（A 单元格列宽不够   B 输入时加了小数点   C 单元格格式不是文本型）
    (3)、如果统计各机房的人数（分类汇总）则要先以为关键字进行排序。
    (4)、考试结束后工作表如下图

    图2

    如果要对学生的总成绩做图表进行比较，选择比较合适的数据区域是：（总共有50个学生）

    查看试题解析

  • 14. 完成程序，使其具有下列功能：求表达式1－2＋3－4＋…＋n的值，在文本框Text1中输入一个正整数，单击“计算”按钮Command1，在标签Label3中输出计算结果。程序界面如下图所示：  
    程序代码如下：
    Private Sub Command1_Click()
    Dim n As Integer
    Dim s As Integer
    n =      ①     
    j = 1
    For i = 1 To n
        s = s + i * j
        j =   ②  
    Next i
    Label3.Caption =     ③  
    End Sub
    (1)、要使label3中显示的字为二号字，应该修改label3的属性。
    (2)、①处应填
    (3)、②处应填 
    (4)、③处应填 

    查看试题解析

  • 15. 如下题图1所示，回答下列问题（1）-（3）题，看图2回答下列（4）-（8）题：

    图1

    图2

    (1)、当前图层使用了（滤色｜滤镜｜光照）图层混合选项。
    (2)、大自行车可以通过（仿制图章｜复制粘贴后放大｜直接拖动）小自行车来完成。
    (3)、这个图要做FLASH动画的第一帧，最好保存为（ psd | jpg | swf ）文件。
    (4)、图2中，文字图层的动画失败是因为。
    (5)、照片图层基本上是每5个帧显示一张照片，再以5帧淡入或淡出动画以实现交替显示图层1和照片2两个图层的照片，播放时发现照片2的节奏被打乱了，应该通过完成修改，达到设计目标。
    (6)、如要实现让这段动画播放10秒钟，应该将帧频修改为
    (7)、完成的动画作品想拷贝回家，以方便在家中的电脑上修改，最好保存为文件。（fla|swf|avi）
    (8)、上图显示的为main 场景，load场景为图1中的生成的文件并通过点击“PLAY”按钮进入“main”场景，main场景播放结束要回到load场景并停在第1帧，则动作按钮上的动作命令应该是：

    查看试题解析

  • 16. 公司年会，领导要小李编写一个小程序，用于抽奖，小李将参加年会的人员姓名、手机号保存在一个access数据库中库名：年会嘉宾.accdb 数据表名为：联系人
    程序设计的主要思路是：窗体装入时读出所有嘉宾的姓名和手机号，保存在两个数据中，从text1中取得要抽奖的人数，用随机函数产生1~num间的数作为中奖号，从数据中读出对应的姓名和手机号，手机号中间4位用“新年快乐”代替。已抽中过的姓名和手机号从数据中删除，以防止重复中奖。

    Dim sname(1 To 1000) As String   ‘用于保存嘉宾姓名
    Dim phone(1 To 1000) As String   ‘用于保存嘉宾手机号
    Dim num As Integer  ‘未抽奖人数
    Private Sub Command1_Click()
    Dim n As Integer   ‘拟抽奖人数
    Randomize
    n = Val(Text1.Text)
    List1.Clear
    If     ①     Then
     For i = 1 To n
        k = Int(Rnd * num) + 1
        List1.AddItem Str(i) + "  " + sname(k) + "   " +   ②     
        For j = k To num
            sname(j) = sname(j + 1)
            phone(j) = phone(j + 1)
        Next j
        num =      ③       
     Next i
    Else
        List1.AddItem "剩余的数据不足！"
    End If
    End Sub
    Rem 下列程序段用于从数据库中读取嘉宾的姓名和手机号，分别保存在全局变量sname()和phone()两个数组中，设嘉宾个数不超过1000个。
    Private Sub Form_Load()
    Dim conn As New ADODB．Connection
    Dim rs As New ADODB．Recordset
    conn.ConnectionString = "provider=microsoft.ace.oledB．12.0;data source=" & App.Path & "\年会嘉宾.accdb "
    conn.Open
    Set rs.ActiveConnection = conn
    rs.Open "select * from 联系人"
    num = 0
    Do While Not rs.EOF And num < 1000
        num = num + 1
        phone(num) = rs.Fields("联系电话")
        sname(num) = rs.Fields("姓名")
        rs.MoveNext
     Loop
     rs.Close
     conn.Close
     Set rs = Nothing
     Set conn = Nothing
    End Sub

    查看试题解析

  • 17. 小张学习了冒泡排序后，觉得还可以再改进，用K指向要排序的数的头部，用m指向要排序的数的尾部，每一轮先从前向后扫描k~m-1, 比较相邻若逆序则交换，找出本轮最大数放到本轮数据的尾部，再从后到前扫描剩下的序列m~k+1，比较相邻若逆序则交换，找出本轮最小数放到本轮数据头部。直到k=m结束程序。以下是改进后的程序请补充完整。
    Dim n As Integer   ‘数字的个数
    Rem 以下程序段为产生n个[10,99]之间的随机整数并在list1中显示
    Private Sub Command1_Click()
    Randomize Time
    n = 50
    For i = 1 To n
        List1.AddItem Str(Int(Rnd * 90) + 10)
    Next
    End Sub
    Rem 以下程序段为从list1中取出数并进行排序，最后在list2中显示排序后的数
    Private Sub Command2_Click()
    Dim a(50) As Integer
    Dim k As Integer, m As Integer, i As Integer, j As Integer
    For i = 1 To n
        a(i) = Val(List1.List(i - 1))
    Next i
    m = n：k=1
    Do While
        J=m-1 : m=1
     For i = k To j
          If a(i+1) < a(i) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t: m=i
        Next i
    j =
    k=1
    For i = m To  j  Step -1
            If a(i) < a(i - 1) Then t = a(i): a(i) = a(i - 1): a(i - 1) = t: 
        Next i
       
    Loop
    For i = 1 To n
        List2.AddItem
    Next i
    End Sub

    查看试题解析