相关试卷

1、某算法的部分流程图如图所示。执行这部分流程，若输入s的值为“yummy”，则输出的ch、t值分别为（）

A、"y",1 B、"m",1 C、"y",5 D、"m",4

查看解析
2、下列VB表达式的值一定为2021的是（）

A、Len("2020") + 1 B、Abs(Int(-2020.6)) C、Val("2020"+"1") D、Int(Rnd()*2022)

查看解析
3、班里计划组织演唱比赛，小李打算帮大家录视频，录制的视频是未经压缩的1920*1080像素、256色图像、帧频为25，每位同学的表演时间为不超过5分钟，有15位同学参赛，小李至少需要准备多大的存储卡来存储演唱视频（）

A、256GB B、128GB C、64GB D、32GB

查看解析
4、使用Photoshop软件制作“商贸义乌”作品，部分界面如图所示：

下列说法正确的是（）

A、可用“文字工具”修改“奇迹”两字的字号大小。 B、当前状态下，不能移动文字“义乌-伦敦”的位置。 C、将“义乌-伦敦”的图层样式拷贝给“中欧班列”后，“中欧班列”图层会有4个图层样式。 D、“备用背景”图层的内容不可见的原因，是该图层的不透明度为0%。

查看解析
5、下列关于信息编码的描述，正确的是（）

A、JPEG是常用的静态图像压缩标准。 B、若十进制数a转换为二进制后末尾为0，则a/2转换为二进制后末尾也为0。 C、字符“A”的ASCII码值为41H，则“J”的ASCII码值为50H。 D、一幅16色的图片，每个像素点占用2个字节。

查看解析
6、使用ACCESS设计了一个“学生表”，用于存储如下图所示的数据：

下列关于“学生表”描述正确的是（）

A、“班级”字段的数据类型可以为“数字”。 B、“学籍辅号”字段的数据类型可以为“自动编号”。 C、若要增加一位“01”班学生的信息，可以在“学生表”的第3行位置插入一行记录。 D、“学生表”的字段顺序可以与图中数据的列顺序不一致。

查看解析
7、下列有关浏览器与网页的说法，正确的是（）

A、收发电子邮件时收件人地址必须与发件人地址不同。 B、使用IE浏览器登录网站时，浏览器会自动记录用户的账号和密码。 C、以“网页，全部（*htm;*html)”格式保存网页，不一定能把网页中的全部内容保存下来。 D、使用记事本打开某网页文件就可以看到这个精美的网页。

查看解析
8、下列关于信息与信息的加工描述正确的是（）

A、计算机的运算速度只与硬件的性能有关。 B、计算机信息加工的本质是通过计算完成的。 C、使用Ultra Edit软件查看到某字符的内码是“D5 BD”，说明该字符在计算机内是用十六进制编码的。 D、随着科技的发展，计算机已经可以替代人自行做出所有的决策。

查看解析
9、小安需要在一个n*n（4<=n<=10）的房间里使用黑白两种地砖铺设房间，要求相邻的两块地砖颜色都不同。房间里会随机产生m（m<=10）根柱子，如果最后黑白两种地砖使用的数量相同，就认为可以铺满整个房间。小安将a数组元素值设置为0、1和2三种，当数组a的值为0时显示“□”，代表白地砖，为1时显示“■”，代表黑地砖，为2时显示“○”，代表柱子。最后，小安还求出了任意两根柱子之间的最大面积，单位长度为1（当两个柱子在同一行或同一列，认为面积为0，面积求法如图b所示）。

图a

图b

程序运行界面如图a所示。实现上述功能的VB代码如下：

Dim n As Integer, m As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 10) As Integer 'b数组存储柱子位置

Dim f(3) As Integer, i As Integer 'f数组存储三种类型的个数

Private Sub Command1_Click()

    n = Val(Text1.Text)：m = Val(Text2.Text)

    k = 0

    For i = 1 To m

        b(i) = Int((Rnd * n ^ 2) + 1)

        a(b(i)) = 2

      For j = 1 To i - 1

            If b(i) = b(j) Then

                   ①

                Exit For

            End If

        Next j

    Next i

    '将房间设置为黑白两种颜色交错，白黑以0、1代替

    For i = 1 To n * n



        If a(i) = 0 And k = 1 Then

            s = s + "■": a(i) = k

        ElseIf a(i) = 0 And k = 0 Then

            s = s + "□": a(i) = k

        Else

            s = s + "○"

            f(k) = f(k) - 1

            f(2) = f(2) + 1

        End If

          ②

        If i Mod n = 0 Then

            List1.AddItem s

            s = ""

        End If

    Next i

    '对b数组的数值按升序进行排序，代码略

    For i = 1 To m - 1

        s = search(i)

      If s > smax Then smax = s

    Next i

    '对f(0)和f(1)的相等情况进行判断，并输出最后结果，代码略

End Sub

Function search(i As Integer) As Integer

    Dim x1 As Integer, x2 As Integer

    Dim y1 As Integer, y2 As Integer

    x1 = (b(i) - 1) \ n + 1

    y1 = (b(i) - 1) Mod n + 1

    For j = i + 1 To m

        x2 = (b(j) - 1) \ n + 1

        y2 = (b(j) - 1) Mod n + 1

        If    ③ Then s = 0

        s = (x2 - x1) * (y2 - y1)

        If s > search Then search = s

    Next j

End Function

(1)、请在划线处填入合适代码。
① ② ③

(2)、实线框处的语句改为k = 1 - k，对程序运行结果（填：有/无）影响？

查看解析
10、在100个小球中,只有一个小球轻于其它小球。如何用没有砝码的天平找出该小球？小安设计了一个三分查找程序来快速查找这个小球，程序认定当需查找的小球个数小于3个时，认为已找到，程序运行界面如图。

Dim a(1 To 100) As Integer

Private Sub Form_Load()

    '产生100个重量为10的小球，存储在数组a中

    '其中随机选取1个小球的重量改为8，代码略

End Sub

Private Sub Command1_Click()

    Dim left As Integer, right As Integer

    Dim mid As Integer, count As Integer

    Dim s(1 To 2) As Integer

    left = 1: right = 100: count = 1

    List2.AddItem Str(left) + "-------->" + Str(right)

    Do While left<=right

      s(1) = 0: s(2) = 0

            ①

        i = left: k = 1

        Do While i <= left + mid * 2 - 1

            s(k) = s(k) + a(i)

            If      ②   Then k = k + 1

            i = i + 1

        Loop

        If s(1) = s(2) Then

            left = left + 2 * mid

        ElseIf s(1) < s(2) Then

            right = left + mid - 1

        Else



            left = left + mid

        End If

        count = count + 1

        List2.AddItem Str(left) + "-------->" + Str(right)

    Loop

    List2.AddItem "经过" + Str(count) + "次后找到这个数"

End Sub

(1)、实线框处代码有错，请改正。

(2)、请在划线处填入合适代码。
① ②

(3)、根据上述程序代码，若将虚线框处的两行代码交换一下顺序，则查找结果是（单选，填字母：A .下标越界 /B .找到这个数 /C .找不到这个数 /D .死循环）

查看解析
11、为了响应全民防疫，小明创作主题为“接种新冠疫苗宣传片”的多媒体作品，部分编辑界面如图所示。

请回答下列问题：

(1)、在创作之前进行了作品设计，下列说法正确的是（多选，填字母）

A、为提倡全民防疫，考虑将该作品作为公益广告，属于作品的创作需求分析 B、考虑作品需要用flash软件制作，属于作品的应用需求分析 C、考虑主场景的背景音乐和色彩分布设计，属于作品的模块设计 D、用photoshop软件制作素材属于编写制作脚本 E、制作脚本是在文字脚本之后，其中制作脚本是制作多媒体作品的直接依据

(2)、根据制作脚本要求，“病毒1”图层动画结束后“病毒2”图层动画开始，应如何修改？

(3)、“病毒1”图层中补间动画类型是（单选，填字母：A .动画补间动画 /B .形状补间动画 /C .逐帧动画）

(4)、已知“声音”图层的声音同步类型为“事件”，现在想调整该层声音只播放到第20帧，但不影响其它动画效果，结合前面题设，下列操作可行的是（多选，填字母：A .选“声音”图层第20到60 帧执行“删除帧”操作 / B .在“声音”图层第 20 帧执行“插入关键帧”操作，并设置声音的同步方式为“数据流” / C .在“病毒1”图层第 20 帧，添加脚本动作：stop(); / D .在“病毒1”图层第 20 帧，添加脚本动作：stopAllSounds();）

(5)、单击“注意事项”按钮后跳转到“注意事项”场景第1帧并播放，为实现这一功能，该按钮实例上添加的动作脚本是on(press){}

查看解析
12、为了响应全民健身计划,某高中对学生进行了体质健康测评,并用Excel软件进行数据处理，如图a所示。

图a

请回答下列问题：

(1)、区域M2:P15 的数据是通过公式计算得到的，在M2单元格中输入公式后，再使用自动填充功能完成该区域的计算，则N3单元格中的公式是“=SUMPRODUCT(()*($I$3:$I$553=N$1))”。
（提示：M2单元格输入公式=SUMPRODUCT((A1:A100=“2”)*(I1:I100=“优秀”))，表示同时满足A1:A100是2班和I1:I100是优秀这两个条件的情况有几个，也就是进行条件计数。）

(2)、根据图a中的数据制作的图表如图b所示。创建该图表的数据区域是

图b

(3)、对图a工作表进行相关数据分析，下列说法正确的是（多选，填字母）。

A、以“总分等级”为依据进行升序排序，选择的区域是A3：I553 B、选择“A3：I553”按照“总分等级”升序排序后，图b的图表不会发生改变 C、现需要选出总分等级为“不及格”的学生，可选择区域A3：I553，以“总分等级”为“不及格”进行筛选并保留结果 D、为了显示男生立定跳远得分最高的3位学生数据，可先对“性别”为“男”进行筛选，再对“立定跳远”进行筛选，选择最大的3项

查看解析
13、某算法有如下程序段
Key = Int(Rnd * 5) * 2 + 10

i = 1: j = 8: n = 0

Do While i <= j

    m = (i + j + 1) \ 2

    If a(m) >= Key Then i = m + 1 Else j = m - 1

    n = n + 1

Loop

数组元素a(1)~a(8)的值为“22，21，18，17，16，15，14，10”。若该程序段执行后，下列说法错误的是(        )

A、j的值为i-1 B、i的值可能是3 C、n的值一定是3 D、j的值可能是3

查看解析
14、有如下VB程序段：
a(1) = 1: a(2) = 2: a(3) = 3: a(4) = 4: a(5) = 5

k = Int(Rnd * 4) + 1: m = k

For i = 1 To m

    If i <> k Then

        If a(i) < a(k) Then

            t = a(i): a(i) = a(k): a(k) = t

            If k < 5 Then k = k + 1

        End If

    End If

Next i

执行该段程序段后，数组元素a(1)~a(5)的值依次不可能为（        ）

A、1 2 3 4 5 B、2 3 1 4 5 C、4 5 3 2 1 D、3 4 1 2 5

查看解析
15、有如下程序段：
Private Sub Command1_Click()

    s = "Tokyo_Olympic_Games"

    ans = ""

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        If (2020 \ 10 ^ 2 - i) <= Len(s) Mod 10 \ 3 Then

            If c >= "a" And c <= "z" Then c = Chr(Asc(c) - Asc("a") + Asc("A"))

      End If

        ans = ans + c

    Next i

    Label1.Caption = ans

End Sub

执行上述程序段后，标签Labele1中输出的内容为（      ）

A、TOKYO_OLYMPIC_GAMES B、TOKYO_OLYMPIC_GAMes C、Tokyo_Olympic_GaMES D、Tokyo_Olympic_GameS

查看解析
16、有一组正整数，要求对其中的奇偶数进行交换。交换后奇数在前，偶数在后，并保持相对顺序不变。
Const n = 10

Private Sub Command1_Click()

    num = 0: k = 0

    Do While k < n

        k = k + 1

        If   ①   Then

            num = num + 1

            b(num) = a(k)

      Else

              ②

        End If

    Loop

    For j =③

      a(j) = b(j - n + num)

    Next j

End Sub

下列选项中，①②③中的代码顺序正确的是（      ）

A、①a(k) Mod 2 = 1 ②b(k - num) = a(k)          ③n - num To n B、①a(k) Mod 2 = 0         ②a(k - num) = a(k)          ③n - num + 1 To n C、①a(k) Mod 2 = 1         ②a(k - num) = a(k)          ③n - num To n D、①a(k) Mod 2 = 0 ②b(k - num) = a(k)          ③n - num + 1 To n

查看解析
17、某算法的部分流程图如图所示：

执行该算法，待该流程图执行完毕后，则最终ans的值是（）

A、3 B、81 C、39 D、18

查看解析
18、下列表达式中，能取到最大值中的最大的是（）

A、Fix(Rnd * 10) * 2 B、Int(-Rnd * 10) * (-2) C、Int(Rnd * 10) * 2 D、(Rnd - Rnd) * 20

查看解析
19、两个音频文件，相关参数如图a、b所示。

图a：音频文件1参数

图b：音频文件2参数

则文件1与文件2的存储容量比约为（）

A、1:1 B、6:1 C、11:1 D、18:1

查看解析
20、使用Photoshop软件制作“预防新冠宣传海报”作品，部分编辑界面如图所示。

下列描述正确的是（）

A、该"预防新冠宣传海报.psd"文件的大小是948.2K B、不可以使用“自由变换”命令修改“主治功能”图层中的文字大小 C、可以拷贝“新冠特效药”图层的图层样式到“疫情特效药重磅来袭”图层 D、将"医生"图层的不透明度由"100%"改为"20%"，"药盒"图层的不透明度也会改为"20%"

查看解析

上一页 689 690 691 692 693 下一页跳转