高中信息技术：

高中信息技术

竞选班长。编号分别为1、2、3、4、5的五位候选人参加班长竞选，现要设计一个计票程序，根据回收的选票信息统计各位候选人的得票数，得票数最多的被选为班长，并输出班长的编号。选票信息为一个数字序列，由每张选票的投票结果构成，如某选票序列为101233303，其含义见如下表所示。

选票序列	1	0	1	2	3	3	3	0	3
含义	第1张选票投给1号	第2张选票弃权	第3张选票投给1号	第4张选票投给2号	第5张选票投给3号	第6张选票投给3号	第7张选票投给3号	第8张选票弃权	第9张选票投给3号
备注：选票序列101233303，序列中的数字i，表示投票给编号为i的人，即编号为i的人得1票，其中数字0表示不投给任何人，即为弃权。表中选票序列的投票结果为:1号得2票，2号得1票，3号4得票，4号、5号均为0票(没人投)，所以3号得票数最高，被选为班长。

程序运行时，在文本框Text1中输入选票信息，单击“计算”按钮Command1后，被选为班长的编号显示在文本框Text2中。程序运行效果如图所示。

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim a(1 To 5)As Integer

‘数组元素a(1)~a(5)依次存放编号为1~5的五位候选人的得票数

Dim st As String, i As Integer, j As Integer, n As Integer

Dim ans As Integer ‘变量ans存放被选为班长的人的编号

Dim max As Integer ‘变量max存放最多的得票数

st=Text1.Text

For i=1 To 5

a(i)=0

Next i

For i=1 To 5

For j=1 To n

IfThen

a(i)=a(i)+1

Next j

Next i

max=0

For i=1 To 5

If a(i)>max Then

max=a(i):ans=i

Next i

End Sub

硬盘分区就是通过软件将硬盘的物理尺寸空间逻辑划分为多个部分。

信息的智能化加工是指（）。

A . 文字处理 B . Excel电子表格数据处理 C . PowerPoint制作幻灯片 D . 利用人工智能技术加工信息

以下流程图描述的算法，执行结果是。

以下不属于网络硬件设备的是（）。

A . 双绞线 B . 网络协议 C . 网络工作站 D . 网络服务器

数据是对事物属性的客观记录，是（）的载体和具体的表现形式。

A . 数据 B . 信息 C . 知识 D . 信息技术

用Flash软件制作动画后，其中一个场景的时间轴如图所示。

其中声音的同步属性设置为“数据流”，下列说法正确的是( )

A . 若将“声音”图层第40帧移至第10帧，声音将在10帧处停止 B . 清除“脸谱”图层第1帧空白关键帧，不影响整体动画效果 C . 将“文字”图层第6帧复制到第21帧，不影响整体动画效果 D . 动画播放到一半时停止，有可能是“脸谱”图层第15帧添加了“stopAllSounds()；”动作

某算法的部分流程图如图所示。

执行该算法，依次输入a的值为2，5，4后，变量b的值为( )

A . 0.5 B . 2 C . 4 D . 5

小王编写一个VB程序模拟数据筛选，功能如下：程序运行时从数据库中读取成绩数据，按升序排序后在列表框List1中显示，在文本框Text1中输入成绩1,在文本框Text2中输入成绩2，单击“筛选”按钮Command1，筛选出大于等于成绩1且小于等于成绩2的记录，并显示在列表框List2中，程序运行界面如图所示。

（1）运行上述程序，若在文本框Text1中输入75，Text2中输入85，单击“筛选”按钮，则筛选到的记录有条（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n = 20

Dim score(1 To n) As Single

Function adj(s As String, n As Integer)

‘此函数功能：在字符串 s 前添加若干个空格，使其长度变为 n。代码略

End Function

Function search_left(key As Integer)

‘此函数功能：返回大于等于 key 的数组元素的起始位置。代码略。

End Function

Function search_right(key As Integer)

    Dim i As Integer, j As Integer, m As Integer

    i = 1: j = n

    Do While i <= j



        If key >= score(m) Then i = m + 1 Else j = m - 1

    Loop



End Function

Private Sub Form_Load()

‘从数据库中读取成绩存数组 score，记录数存 n，并对此数组 score 升序排序，代码略

End Sub

Private Sub Command1_Click()

    Dim num1 As Integer, num2 As Integer, first As Integer, last As Integer

    List2.Clear

    num1 = Val(Text1.Text): num2 = Val(Text2.Text)

    first = search_left(num1): last = search_right(num2)



    If total <= 0 Then

        List2.AddItem "无筛选到的记录！"

    Else

        List2.AddItem "筛选到" + Str(total) + "条记录！"

        List2.AddItem "依次是："

        For i = first To last

            List2.AddItem adj(Str(i), 3) + adj(Str(score(i)), 6)

        Next i

    End If

End Sub

小枫收集了2020年上半年两个季度的全国建筑业发展情况，并用Excel软件进行处理，如图a所示。请回答下列问题：

（1）图a中，区域K4：K33中的数据是通过在K3单元格中输入公式并利用自动填充得到的，则K3单元格中的公式为。(注：季度环比增长倍数=(第二季度总产值-第一季度总产值)/第一季度总产值)
（2）利用图a中的部分数据制作了图表，如图b所示，则该图表的数据区域是。
（3）若要对华北地区各省市按“季度环比增长倍数”的情况进行降序排序，则应选择的排序区域是。
（4）根据图a中的表格数据，下列说法正确的是。(单选，填字母)。

A . C列数据一定是利用公式计算得出 B . 若隐藏题图a表格的第8-0行，则题图b的图表会发生变化 C . 华北、东北、华东三个地区中，东北地区第二季度建筑业的环比增长最快

使用Goldwave软件编辑“背景音乐.wav”文件，界面如下图所示：

以下说法正确的是( )

A . 该音频每秒钟采样44100次，每秒钟播放的数据量为1411 KB B . 当前状态下，执行“删除”操作，再插人10秒静音，播放时间不变 C . 当前状态下，执行“复制”操作，再执行“粘贴”操作，存储容量不变 D . 当前状态下，执行“剪裁”命令，以原参数保存，存储容量不变

数组a中有n个正整数，对该数组进行排序，生成左右交替上升数据序列。实现该功能的VB程序段如下：

For i=1To n＼2

k=i

If a(j) <a(k) Then k=j

Next j

If i<>k Then

t=a(i)：a(i)=a(k)：a(k)=t

End If

If Then

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

End If

Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1 ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（）

A . ①、②、③ B . ①、②、④ C . ②、①、③ D . ②、①、④

VB中标准函数功能的实现是在VB内部通过相应的程序代码完成的。为了探索Val函数功能实现的原理，编写了以下程序。已知Val(“12”)的结果为12，即Val函数的功能是将字符型转换成数值型；而Val(“12AB”)和 Val(“12AB34”)的结果也为12，即在转换的时候如果遇到非数字符号就停止转换。编写模拟转换过程的时候，为简化程序，只考虑正整数的转换。运行程序时，在文本框Text1中输入字符串，点击命令按钮Command1后在文本框Text2中显示结果，运行结果如图所示。

VB程序如下，请回答以下问题：

Private Sub Command1_Click()

Dim s As String, ch As String

Dim i As Integer

Dim r As Integer, result As Integer

Dim flag As Boolean

s = Text1.Text

i = 1:result = 0:flag = True

Do While

ch = Mid(s, i, 1)

r = ①

If r > 9 Or r < 0 Then

flag = False

Else

②

End If

i = i + 1

Loop

Text2.Text = Str(result)

End Sub

（1）窗体对象的Caption属性值为：
（2）加框处语句有错，请改正：
（3）请将横线处的语句补充完整
① ②

小马使用Word软件输入“< =”时，不小心在后面多输入了一个等号“=”，结果发现“< = =”立即变成“ç”，这是由于Word软件具有（）

A . 自动更正功能 B . 替换功能 C . 拼写和语法功能 D . 修订功能

有如下VB程序段：

i = 1: j = 8: k = 4

Randomize

Key = (Int(Rnd * 4)+20)*4

Do While i <= j

m = (i + j) \ 2

If Key = a(m) Then

Exit Do

ElseIf Key < a(m) Then

j = m - 1: k = k / 2

Else

i = m + 1: k = k * 2

End If

Loop

数组元素a(1)到a(8)的值依次为“80,82,84,86,88,90,92,94”,执行该程序段后，变量k的值可能是( )

A . 1,4,8 B . 2,4,8 C . 4,16,32 D . 1,4,16

使用Photoshop软件制作“香港回归20周年”作品，部分界面如图所示

图片_x0020_17

下列说法正确的是（）

A . “1997年-2017年”图层中使用了滤镜效果 B . “紫荆花”图层可以拖动到“1997年-2017年”图层的上方 C . “背景”图层可以使用“自由变换”命令将其缩小 D . 将作品存储为JPEG格式文件，会呈现“香港回归20周年”图层中的3种图层样式效果

制作网站就是就是一种信息集成的过程下列步骤（）

①收集反馈评价修正

②确定主题设计目标

③规定内容结构上机加工素材

④选择适当工具实际制作其合理的顺序是（）

A . ②③④① B . ③②①④ C . ②①④③ D . ①③②④

对重要数据进行操作，可直接修改原始文件，并及时保存。

下列有关字符编码标准的叙述中，正确的是（）

A . Unicode编码的目标是实现全球不同语言文字的统一编码 B . ASCII、GB2312、GBK是我国为适应汉字信息处理需要而制定的一系列汉字编码标准 C . Unicode编码与GB2312编码保持向下兼容 D . GB18030标准就是Unicode编码标准，它是我国为了与国际标准UCS接轨而发布的一种汉字编码标准

函数就是把具有独立功能的代码块组织成为一个小模块，在需要的时候调用，Python定义一个函数采用的关键词是( )。

A . import B . def C . from D . main

高中信息技术：

高中 信息技术

高中信息技术