浙江省五校2018届高三上学期信息技术第一次联考试题

年级: 学科:信息技术(信息科技) 类型:月考试卷 来源:91题库

一、选择题 (共12小题)

1、以下说法正确的是(   )
A . 信息的表示、传播、存储必须依附于某种载体 B . 在公共场所上网时,应尽量把表单上的用户名和密码设置为自动完成 C . 文字出现以后,才能进行传递信息 D . “盲人摸象”体现了信息的时效性
2、以下软件中,不属于浏览器的是(   )
A . Internet Explorer B . Firefox C . Google Chrome D . CuteFTP
3、使用Word软件编辑某文档,部分界面如图所示,下列说法正确的是(   )

图片_x0020_14

A . 文档中图片的文字环绕方式为“嵌入型” B . 用户t1和用户s2添加了批注 C . 共有两处修订,两处批注 D . 拒绝所有修订后,第一句文字是“记者从今天浙江省政府新闻信息办召开的新闻发布会上了解到”
4、已知英文小写字母比对应的大写字母ASCII码大32(十进制),某数据加密方法描述如下:

⑴将字符的ASCII码值加20(十进制);

⑵以字节为单位进行加密处理;

⑶将1个字节的8位二进制数左移一位,最低位用左移出的最高位填充;

⑷将处理后的8位二进制数分割成前4位与后4位两个二进制数;

⑸分别将上述两个4位二进制数转换为十六进制数;

⑹所得两个十六进制数码交换顺序后连接,即为该字节的密文。

用UltraEdit-32软件观察“i-hangzhou”这几个字符的内码,如图所示,则字符H加密后的密文是(   )

A . B8 B . 8B C . 70 D . 07
5、关于Access数据表的操作,下列说法正确的是(   )
A . 同一张表中两个字段的字段名称可以完全相同 B . 字段数据类型若为“自动编号”,则新值一定是递增的 C . 在数据表视图删除字段是不能撤销的 D . 设置为主键的字段是不能删除的
6、某算法的部分流程图如图所示,执行这部分流程,则“s≤100?”被执行的次数是(   )

图片_x0020_15

A . 3 B . 4 C . 5
7、使用Flash软件编辑“播放”按钮元件,部分界面如图所示

图片_x0020_16

将该按钮元件应用于舞台,下列描述正确的是(   )

A . 测试影片,当鼠标经过该按钮时,该按钮上不一定会呈现图中所示文字“播放” B . 测试影片,当鼠标按下该按钮时,可听见声音 C . 测试影片,在按钮上单击鼠标,按钮将消失 D . 在舞台上可以添加多个“播放”按钮实例
8、使用Photoshop软件制作“香港回归20周年”作品,部分界面如图所示

  图片_x0020_17

下列说法正确的是(   )

A . “1997年-2017年”图层中使用了滤镜效果 B . “紫荆花”图层可以拖动到“1997年-2017年”图层的上方 C . “背景”图层可以使用“自由变换”命令将其缩小 D . 将作品存储为JPEG格式文件,会呈现“香港回归20周年”图层中的3种图层样式效果
9、使用会声会影软件进行作品制作,部分操作界面如下图所示

图片_x0020_18

下列说法正确的是(   )

A . 该作品中使用了2个视频素材 B . 标题“欢迎欣赏”与“影片简介”之间可添加转场效果 C . 播放修整后的素材,素材“V13.wmv”的内容会遮住素材“摩登时代.MPG”的内容 D . 播放修整后的素材,“02_Music.mpa”开始播放时“01_Music.mpa”停止播放
10、【加试题】如图为photoshop新建文件界面,若作品完成后,不改变参数保存成BMP图像,其存储容量约为(   )

  图片_x0020_19

A . 11MB B . 0.46MB C . 3.66MB D . 1.37MB
11、【加试题】某排序算法的VB程序段如下:

n = 10

Text1.Text = ""

  For i = 1 To 5

    For j = n To i + 1 Step -1

      If a(j) < a(i) Then

        temp = a(j): a(j) = a(i): a(i) = temp

      End If

    Next j

  Next i

  For i = 1 To 10

      Text1.Text = Text1.Text + Str(a(i))

  Next i

数组元素a(1)到a(10)的值依次为“965,155,195,444,106,734,172,983,898,360”,执行该程序段,文本框Text1中显示的是(   )

A . 106 155 172 195 360 444 734 898 965 983 B . 106 155 172 195 360 734 444 983 898 965 C . 983 965 898 734 444 360 172 195 155 106 D . 106 155 172 195 360 965 444 734 898 983
12、【加试题】有如下程序段:

Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum = 6

a(11) = 49

For i = 10 To 1 Step -1

  a(i) = a(i + 1) - 1

  If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

Next i

Text1.Text = Str(Sum)

该程序段运行后,文本框text1中显示的内容是(   )

A . 174 B . 180 C . 36 D . 42

二、非选择题 (共5小题)

1、小龙收集了2017年8月我国50个城市部分食品平均价格变动情况的有关数据,并使用EXCEL软件进行数据处理,如图a所示

图片_x0020_20

图a

请回答下列问题:

(1)区域F3:F12的数据是通过公式计算得到的:在F3单元格输入公式后,用自动填充功能完成F4:F12的计算,则F3单元格中的公式是      

(计算公式:上旬价格与上旬平均价格之差=上旬价格-上旬平均价格)

(2)若将图a中的第13行删除,单元格F3:F12的值      (选填:会、不会)变化。
(3)根据图a中数据制作的图表如图b所示,创建该图表的数椐区域是      

图片_x0020_21

图b

(4)对图a中的A6:F12数据按照列C进行升序排序后,则图b中最下面的食品为      
2、编写VB程序,实现如下功能:单击“启动”按钮Command1,在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串,运行界面如图所示,程序代码如下。(字母A和字母a的ASCII码值分别为65、97)

(1)该程序除窗体外使用了      (填数字)个对象。
(2)为实现上述功能,请在划线处填入合适的代码。

Private Sub Command1_Click()

  Timer1.Enabled =       '

End Sub

Private Sub Timer1_Timer()

  Dim s As String, c As String

  Dim a As Integer, e As Integer, h As Integer

  Randomize

  s = ""

  For a = 1 To 30

    e = Int(Rnd() * 52 + 1)

    If e <= 26 Then

      h = e + 64

    Else

      h =       '

    End If

    c =       '

    s = s + c

  Next a

  List1.AddItem s

End Sub

(3)为了减缓字符串的出现速度,可将Timer1的Interval属性值      (选填,填字母) (3)
A . 调大 B . 调小
3、第19届亚洲运动会将于2022年09月在杭州举行,为提高大家锻炼身体的热情,小龙使用Flash软件制作主题为“晨练”的多媒体作品。请回答下列问题:
(1)小龙在分析了作品的应用需求之后,接下来要分析作品的创作需求,包括确定主题思想、结构类型、作品内容、________(多选,填字母)
(1)
A . 社会需求 B . 设施要求 C . 作品效益 D . 发布方式 E . 用户情况
(2)如图a所示,“太阳”图层第1帧到第60帧的动画实现了“太阳”实例从完全透明到完全显示,该动画类型为      (选填:动画补间/形状补间/逐帧动画)。

图a

(3)如图b所示为制作“五环”影片剪辑元件的界面,第1帧为1个圆环,第5帧、第10帧、第15帧、第20帧逐渐增加一个圆环,形成完整的5个圆环。小龙在制作图a中的“五环”图层时使用了该“五环”影片剪辑元件,但发现5个圆环呈现完整后,又重新开始从1个圆环到5个圆环,小龙想5个圆环呈现完整后就一直显示5个圆环,应进行的操作是      

图b

(4)如图a所示,测试影片时,单击“退出”按钮,进入到“鸣谢”场景的第1帧并开始播放,则“退出”按钮的动作脚本为      
(5)单击“退出”按钮后,仍能听见图a中“音乐”图层的声音,可知其声音“同步”属性为      (选填:数据流/事件)。
4、【加试题】小龙编写了一个简易加法器VB程序,运行界面如图所示。在文本框Text1中输入一个数字后再输入空格表示一个加数输入完毕,连续不断输入不同的加数,待所有需要相加的数输入完毕后,单击“求和”按钮Command1后,在标签label1中显示加数的个数以及总和。(数字0和空格的ASCII码分别为48、32)

实现上述功能的VB程序如下,但横线处代码有错,请改正。

Private Sub Command1_Click()

    Dim a As String

    Dim x As Integer, s As Integer, k As Integer

    a = Text1.Text

    x = 1: s = 0: k = 0

    For i = 1 To Len(a)

        '如果输入的不是0到9的数字或者空格,则给出错误提示后结束子程序

        If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57)  or(Asc(Mid(a,i,1))= 32)  then’      Label1.Caption = "只能输入数字或空格"

            Exit Sub

        End If

        If Mid(a, i, 1) = " " Then

            s = s + Mid(a,x,i)      

            x = i + 1

            k = k + 1

        End If

    Next i

    Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

End Sub

5、【加试题】中秋节时,班级组织活动,其中有抽奖环节,小龙在7选3中选考了技术,班主任让小龙编写一个VB抽奖程序,功能如下:窗体装载过程从数据库读取所有同学的相关数据并显示在列表框List1中,抽奖时在文本框Text1中输入要抽出的人数,单击“摇奖”按钮command1,程序进行处理,结果输出在列表框list2中。程序运行界面如下图所示。

实现上述功能的VB程序如下,请回答下列问题:

(1)分析下面的程序代码,可知数据表名为      
(2)请在划线处填入合适的代码。

Dim a(1 To 100) As String '数组大小满足处理要求,学生学号

Dim b(1 To 100) As String '数组大小满足处理要求,学生姓名

Dim i As Integer '学生总数

Dim j As Integer

Dim dd(1 To 100) As Integer

Private Sub Form_Load()

‘从数据库读取全班同学的相关信息,存储在数组a、数组b和变量i中

    Dim n As Integer

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL As String

    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\1718.accdb"

conn.Open

Set rs.ActiveConnection = conn

strSQL = "SELECT * FROM stuinfo"

rs.Open strSQL

'本过程的其他语句略

End Sub

Private Sub Command1_Click()

    Dim ShuruNum As Integer, k As Integer, y As Integer,n As Integer

    Randomize

    ShuruNum = Val(Text1.Text)

    Label4.Caption = ""

    For k = 1 To i

      dd(k) = 0

    Next k

    If ShuruNum > 0 And ShuruNum <= i Then

        j = 1

        Do While j <= ShuruNum

            y = Int(Rnd() * i) + 1

            If         Then'

                dd(j) = y

                j = j + 1

            End If

        Loop

        List2.Clear

        For n = 1 To ShuruNum

            List2.AddItem         '

        Next n

    Else

        Label4.Caption = "错误:没有输入中奖人数或超过学生总数"

    End If

End Sub

'核对重复,避免同一人再次中奖

Private Function CheckCF(p As Integer) As Boolean

    Dim m As Integer,x As Boolean

    x = True '初始化

    For m = 1 To j

        If         Then '

            x = False

            Exit For

        End If

    Next m

    CheckCF = x

End Function

1. 本站所有内容未经许可不可转载!
4. 试卷库 > 浙江省五校2018届高三上学期信息技术第一次联考试题

说明

1、直接打印:比较直观,基本上所见即所得;
2、导出word:可以下载来编辑,样式需微调,可修改;
3、在线答案:包含了题目和答案,低碳环保,推荐!
4、只看答案:只有答案及解析,页面较少;