当前位置:手动组卷 >按章节 >高中信息技术
时间 使用次数
过滤已使用的试题
防超纲选题
  • 1. 【加试题】某排序算法思想如下:每一趟将一个待排序的记录,按其关键字的大小插入到已经排好序的一组记录的适当位置上,直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序;第一步 3 插入到有序记录(9),得到(3,9);第二步 1 插入到有序记录(3,9),得到(1,3,9);第三步 4 插入到有序记录(1,3,9),得到最终有序记录为“1,3,4,9”。

    为此,编写了一个 VB 程序,功能如下:运行程序,窗体加载时随机产生 10 个随机整数,并在列表框 List1 中依次显示排序前数据,单击“排序”按钮 Command1,在列表框 List2 中

    显示经过上述排序算法后的数据,运行结果如图 b 所示。实现上述功能的 VB 代码如下,但加框处代码有错,请改正。

    Const n = 10

    Dim a(1 To n) As Integer        '生成 n 个随机数,存储在 a 数组,代码略

    Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t As Integer

    For i = 2 To n

    t = a(i)  :   j = i - 1

    Do  While  t < a(j)

     a(j + 1) = a(j) j = j – 1

    If     Then Exit Do  ①

    Loop

           ②

    Next i

    For i = 1 To n

     List2.AddItem Str(a(i))

    Next i

    End Sub

    ①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

  • 1. 用 Flash 软件制作动画作品,其中一个场景的部分时间轴界面如下图所示。下列说法正确的是(   )

    A . 当前状态下,可以移动“背景”图层内容的位置 B . 在“夏”图层第 21 帧插入空白关键帧与清除帧效果一样 C . “按钮”图层第 1 帧清除关键帧,按钮将从始至终一直显示 D . 最后一帧添加脚本“fscommand("quit")”,测试影片时动画窗口最后会自动关闭
  • 1. 2016 年浙江省各地市 GDP 情况数据在 Excel 表中如图a所示。

    图a

    请回答下列问题:

    1. (1)区域 F3:F14 的数据是通过公式计算得到。在单元格 F3 输入公式,并用自动填充功能完成区域 F4:F14 的计算,则单元格 F5 中的公式是{#blank#}1{#/blank#}。
    2. (2)如图 a 所示,删除第 15 行,单元格 F3 的值显示为{#blank#}1{#/blank#}(选填:A, #DIV/0! / B, #REF! / C, 36958.67 / D, 0)。
    3. (3)将区域 A2:G14 的数据复制到新工作表,在新工作表中对数据进行筛选操作,2016 年 GDP(亿元)和人均 GDP 筛选条件均设置为如图b所示,则筛选出的城市有{#blank#}1{#/blank#}个。

      图 b

    4. (4)根据图 a 中数据制作的图表如图 c 所示,创建该图表的数据区域是{#blank#}1{#/blank#}。

      图片_x0020_2 图 c

  • 1. ABBYY FineReady 是一款字符识别软件,打开软件,常用界面如图所示,下列说法错误的是(   )

    A . “图像文件到 PDF”选项功能没有应用人工智能 B . “扫描并保存为图像”选项功能应用了人工智能技术 C . “扫描到 Microsoft Word”选项功能应用了人工智能技术 D . “图像或 PDF 文件到 Microsoft Word”选项功能应用了人工智能技术                                    
  • 1. 使用 Access 软件打开数据库,数据表视图如图 a 所示,设计视图如图 b 所示,下列说法正确的是(   )

    A . 该数据库表名为“技术成绩.accdb” B . 不能在当前选中记录前插入一条新记录 C . 可以添加一条新记录“陈宣甸 2 班 50 45 95” D . 图 a 状态下可以添加一个类型为“自动编号”的字段
  • 1. 创作一个题为“关爱老人”的多媒体作品,首先使用 Photoshop 软件制作一张片头图片,然后使用 Flash 软件制作一个动画,该动画设计思路如下。请回答下列问题:

    _x0000_i1036

    1. (1)如图a所示,若仅将“关爱老人”的“爱”字变更颜色,下列操作方法可行的有 {#blank#}1{#/blank#}(多选,填字母:A, 用 T 工具选择“爱”字,设置文本颜色 / B, 用“套索”选择“爱”字,油漆桶填充颜色 / C, 用 T 工具选择“爱”字,设置图层样式“颜色叠加” / D, 栅格化文字,用“魔棒”选择“爱”字,前景色填充颜色)。

      图 a

    2. (2)“main”场景如图 b 所示,结合动画设计思路,发现第 60 帧开始右边多出一个女孩,若要该女孩在舞台中消失,正确的操作是{#blank#}1{#/blank#}。

      图 b

    3. (3)测试影片时,音乐自动延续到下一场景,“音乐”图层中的声音“同步”属性为{#blank#}1{#/blank#}。(选填:事件 / 数据流)
    4. (4)如图 b 所示,在“老婆婆”图层第 47 帧与第 52 帧之间添加动画补间时,发现库中自动生成“补间 1”素材,可能的原因是{#blank#}1{#/blank#}。
    5. (5)测试影片时,单击“下一幕”按钮,影片跳转到下一场景的第 1 帧并停止播放,则“下一幕”按钮的动作脚本为{#blank#}1{#/blank#}。
  • 1. 【加试题】编写一个技术成绩查询的 VB 程序。程序功能如下:在文本框 Text1 中输入分数 key(0-50 的整数),单击“查询”按钮 Command1,查询出信息成绩大于等于 key 的所有记录,并以“信息”为主要关键字、“通用”为次要关键字均进行降序排序,结果输出在列表框 List2 中。运行界面如下图所示。

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

    1. (1)   观察上图,排序后第 5 位的学生姓名是{#blank#}1{#/blank#}。
    2. (2)请在划线处填入合适的代码。

      Dim xm(1 To 600)  As String     '存储学生姓名

      Dim xx(1 To 600)  As Integer   '存储信息成绩

      Dim ty(1 To 600)  As Integer   '存储通用成绩

      Dim n As Integer           '存储记录总数

      Private Sub Form_Load()

      '本过程从数据库中读取学生数据,存储在相应的变量中,并在 List1 中显示'代码略

      End sub

      Private Sub Command1_Click()

      Dim key As Integer, mid As Integer

      Dim i As Integer, L As Integer, R As Integer, k As Integer

      Dim tmp1 As String, tmp2 As Integer

      '以“信息”为主要关键字、“通用”为次要关键字排序

      For i = 1 To n - 1

      k = i

      For j = i + 1 To n

      If xx(k) < xx(j) or {#blank#}1{#/blank#} Then

      k = j

      End If

      Next j

      If k <> i Then

      tmp1 = xm(k)  :  xm(k) = xm(i)  :  xm(i) = tmp1

      tmp2 = xx(k)  :  xx(k) = xx(i)  :  xx(i) = tmp2

      tmp2 = ty(k)  :  ty(k) = ty(i)  :  ty(i) = tmp2

      End If

      Next i '查询记录

      key = Val(Text1.Text) L = 1  :  R = n

      Do While L <= R

      mid = (L + R) \ 2

      If {#blank#}2{#/blank#} Then

       L = mid + 1

      Else

      R = mid - 1

      End If

      Loop

      List2.Clear

      ' vbTab 相当于是键盘上制表符 TAB 按键的功能

      List2.AddItem "姓名" & vbTab & "信息" & vbTab & "通用"

      For i = 1 to {#blank#}3{#/blank#}

      List2.AddItem xm(i) & vbTab & xx(i) & vbTab & ty(i)

      Next i

      End sub

  • 1. 学校通过邮箱 wzzx@163.com 给某学生家长的邮箱 4272242@qq.com 发送了一封电子邮件,在家长末收取该邮件时,则该电子邮件将(   )
    A . 退回到发件人的邮箱 B . 保存在 qq.com 邮件服务器上 C . 保存在家长电脑或移动终端上 D . 不断自动重发,直至家长收取该邮件
  • 1. 使用 Photoshop 软件制作“首饰”设计,部分界面如下图所示,下列操作可行的是(   )

    A . 移动“钻石”的位置 B . 向下合并“底座”和“形状”图层 C . 设置“背景”图层的图层样式 D . 调整文字“LOVE”的字体大小为 40
  • 1. 编写“单词查询”程序,实现如下功能:在文本框 Text1 中输入一段英文文本(以“.”为结束符),在文本框 Text2 输入一个英文字母,单击“获取单词”按钮 Command1,在列表框 List1 依次显示 Text1 中包含该英文字母的所有单词。程序运行界面如图所示。

    1. (1)程序运行时,文本框 Text1 显示为“请输入英文短句”,可在 Form_Load 事件过程中添加代码{#blank#}1{#/blank#} (单选,填字母:A, Text1.Caption = "请输入英文短句" / B, Text1.Text="请输入英文短句" /  C, Text1.AddItem "请输入英文短句")。
    2. (2)实现上述功能的 VB 程序如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim s As String, tmp As String, c As String

      Dim n As Integer, i As Integer

      Dim flag As Boolean  

      Dim cnt As Integer '存储符合条件的单词数

      s = Text1.Text    

      n = Len(s) 

      flag = False    

      List1.Clear 

      For i = 1 To n 

      c = Mid(s, i, 1)

      If c >= "a" And c <= "z" Or c >= "A" And c <= "Z" Then

      {#blank#}1{#/blank#}

      If c = Text2.Text Then flag = True: cnt = cnt + 1

      Else

      If flag Then List1.AddItem  tmp

      tmp = ""

      {#blank#}2{#/blank#}

      End If

      Next i

      If cnt = 0 Then

      List1.AddItem "找不到符合条件的单词."

      End If

      End Sub

    3. (3)若文本框 Text2 中输入“M”,单击“获取单词”按钮后,列表框 List1 中显示的单词个数是{#blank#}1{#/blank#}。
1 2 3 4 5 下一页 共327页