高中信息技术:

高中 信息技术

【加试题】 有如下VB程序段:

Max=-10000

For i = 1 To 10

    s = 0

    For j = i To 10

      s = s + a(j)

      If s > max Then max = s

    Next j

 Next i

已知数组a(1)到a(10)的原始数据为6,-6,8,-7,7,2,-2,-1,-2,4.程序执行后,变量max的值为(   )

A . 9 B . 10 C . 27 D . 4
使用Flash软件制作动画,其中“库”面板如下图所示。下列说法正确的是(  )

A . 库中共有11个元件 B . 把“人物”元件应用到舞台成为实例后,此元件的属性就会发生变化 C . “音乐”项目是导入到舞台后从而进入到库中的 D . “星”元件中可能有星星闪烁的动画效果
合唱队列是按队员的身高进行排列,形成中间高两边有序降低的队形;例如有六个队员“己、戊、丁、丙、乙和甲”的身高依次由小到大,则排列后的顺序为“戊、丙、甲、乙、丁、己”。小李用VB编写模拟“合唱队列”程序,功能如下:在文本框Text1中输入各队员身高,输入结束并回车,则输入的各队员身高分别存入数组a中;单击“合唱队列”按钮Command1,对数组a的元素进行有序排列后,将各元素存入数组C中形成合唱队列,并将结果显示在文本框Text2中。程序运行界面如图所示:

实现上述功能的VB程序如下:

  1. (1) 如果输入各队员身高为“190,191,194,179,166”,则合唱队列的结果为
  2. (2) 实现上述功能的VB程序如下,请在划线处填入合适代码。

    Dim a(1 To 20) As Integer

    Dim n As Integer

    Private Sub Text1_KeyPress(KeyAscii As Integer)

    ‘将输入各队员身高分别存入数组a中,队员个数为n,代码略!

    End Sub

    Private Sub Command1_Click()

      Dim c(1 To 20) As Integer

      Dim right As Integer, left As Integer, i As Integer

      For i = 1 To n – 1          

        For j =1 To n-i

            If      ①      Then          

                t = (j): a(j) = a(j + 1): a(j + 1) = t

            End If

        Next j

    Next i

    ‘下列程序段实现数组C的合唱队列

    m = (1 + n) \ 2

    left = m: right = m

    c(m) = a(n)

    i = 2

    Do While i <= n

        If i Mod 2 = 0  Then

            right = right + 1

            c(right) = a(n-i+1)

        Else

                     ②      

            c(left) = a(n-i+1)

        End If

        i = i + 1

    Loop

    s =      ③     

    For i = 2 To n

        s = s + "," + Str(c(i))

    Next i

    Text2.Text = s

    End Sub

    以上程序段运行时,为了实现上述功能,划线处应填入的代码为:

    ; ②; ③

下列关于ASP的说法,错误的是(   )
A . ASP是动态网页编程技术 B . ASP需要在服务器端专门配置运行环境才能运行 C . 在客户端浏览ASP网页时看到的是ASP源代码 D . ASP客户端向服务器发出请求, 服务器响应请求,把处理的结果返还到客户端
某品牌智能锁有如下开锁功能,其中体现了人工智能技术应用的是(  )

A . 密码开锁:输入预设密码开锁 B . 微信开锁:通过微信远程开锁 C . 钥匙开锁:通过预留钥匙开锁 D . 指纹开锁:识别用户指纹开锁   
根据雨水的pH值判断酸雨情况的规则为:当pH值小于4.7时为“重度酸雨”,当pH值介于4.7~5.6时为“轻度酸雨”,当pH值大于5.6时为“非酸雨”。其算法流程图如下图所示,则图中①、②所在判断框中的内容是( )

图片_x0020_11

A . ①pH<4.7? ②pH≤5.6? B . ①pH<4.7? ②pH<5.6? C . ①pH<4.7? ②pH>5.6? D . ①pH≥4.7? ②pH≤5.6?
下列关于算法的说法中正确的是(   )
A . 算法是分析问题的过程和方法 B . 算法只能用计算机语言来描述 C . 算法可以没有输入,但必须要有输出 D . 算法能实现计算所有自然数之和
下列计算机存储器中,能够长期保存数据的是(   )
A . 光盘 B . U盘 C . 硬盘 D . 内存条
请问如何将字符串转化为浮点数值型?(    )
A . float( ) B . int( ) C . str( ) D . input( )
请写出操作步骤:用Windows 7操作系统自带的备份工具,将“我的文档和设置”备份到U盘。
某中学信息中心为了有效预防计算机病毒,下列措施中不恰当的是(   )
A . 给学生机器安装杀毒软件并及时更新 B . 给学生机器安装硬盘保护卡 C . 给学生机安装自动还原类软件并设置整个硬盘数据还原 D . 禁止学生上网
【加试题】如图所示,某图像文件在 PhotoShop 中经过画布大小调整确定之后,保存类型为 BMP的图像格式,保存后的文件大小是(   )

A . 2.5MB B . 3MB C . 7.32KB D . 768KB
因特网带来了大量的信息,也带来了许多负面影响。因此,我们应该(    )。

①自觉抵制网上不良信息,提高分辨能力

②避免沉溺于网络游戏

③相信网络上的信息都是正确的

④善于利用网络进行学习

A . ①③ B . ②③ C . ①②③ D . ①②④
小刘创作了主题为“抗疫”的多媒体作品。他首先使用Photoshop软件制作了一张图片,然后使用Flash软件制作动画。请回答下列问题:

  1. (1) 如上图所示,当前状态下,下列操作可行的是(多选,填字母;A . 删除“针筒”图层/B . 调整“背景”图层的不透明度/C . 使用“自由变换”操作改变“抗击新冠”图层中的文字大小/D . 给“医生”图层直接添加滤镜效果/E . 将文件保存为JPEG格式,以便下次继续分图层进行修改。)
  2. (2) 若将该场景完整播放一次的时长缩短为原来的3/4,则应将帧频设置为fps。
  3. (3) 如下图所示,“病毒”图层第1帧至第15帧实现了一个病毒分裂为多个病毒的动画效果,该动画类型为(单选,填字母:A . 动画补间/B . 形状补间/C . 逐帧动画)

  4. (4) “医生”图层中的动画从第1帧就开始出现,若要使该动画在“病毒”图层分裂动画效果结束的同时出现,则应进行的操作是
  5. (5) 测试影片时,出现了如下图所示错误提示。

    下列说法正确的是(多选,填字母:A . 此错误是因为脚本缺少了鼠标事件/B . 此错误是因为gotoAndPlay(“end, 1)中的数字1没有加双引号/C . 脚本gotoAndPlay(“end,1);被添加在第60帧关键帧上/D . 将脚本修改为“on(press)(gotoAndStop(“end”, 1);Play()}”可以实现跳转到“end”场景第1帧并播放)

产生一个[20,50]范围内的随机数的表达式是
操作系统的概念及功能。
下列选项不属于因特网的服务类型的是( )
A . FTP B . TELNET C . WWW D . TCP/IP
两台具有独立操作系统的计算机之间要进行通信,除了必要的物理连接外,还必须安装(     )。
A . 物理操作系统 B . IPX/SPX协议 C . TCP/IP协议 D . 物理协议
输入一个三位数的整数,要求将此三位数的各位上的数字重新排列,组成一个尽可能大的三位数。例如:输入213,重新排列可得到尽可能大的三位数是321。

现要求编写VB程序(运行界面图所示),实现如下功能:在文本框Text1中输入一个三位数整数,单击“求解”按钮Command1,在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下,其中函数max(x)用于求解最大三位数整数,但加框处代码有错,请改正。

      ②

Function max(x As Integer) As Integer

  Dim a As Integer, b As Integer, c As Integer, t As Integer

  a = x \ 100

  b = (x \ 10) \ 10             ' ①

  c = x mod 10

  If a < b Then t = a: a = b: b = t

  If a < c Then t = a: a = c: c = t

  If b < c Then t = c: c = b: b = t

  max = c* 100 + b * 10 + a     ' ②

End Function

Private Sub Command1_Click()

     Dim n As Integer, y As Integer

     n = Val(Text1.Text)

     y = max(n)

     Text2.Text = Str(y)

End Sub

下图是某文件的属性窗口,请回答下列问题(注意使用半角字符)。

  1. (1) 这个文件的存储位置:
  2. (2) 该文件的完整文件名:
  3. (3) 如果双击该文件,会用软件打开,但以下(填字母)文件不能通过该软件打开播放。

    A. 龙门客栈.avi

    B. 东方求败.mpg

    C. 世界2017.ppt

    D.美人鱼.rm

  4. (4) 该文件占用的空间大小是MB。
  5. (5) 打勾属性              (填字母),对预防信息资源的非法窃取不会起任何作用。
    A . 只读 B . 隐藏