相关试卷

1、已知数组a中的元素按非递减有序排列，在程序运行时显示在Text1中。编写程序实现如下功能：删除数组的重复元素，并更新数组的长度，在Text2输出新的数组元素值。程序运行界面如图所示。

(1)、要是程序运行时，窗体Form1标题立即立即显示为“删除重复数组元素”，可在（单选：A .Form_Load()/B .Form_click()/C .Command1_Click()）事件过程中添加Form1.Caption=“删除重复数组元素”语句来实现。

(2)、为实现上述功能的VB程序如下，请在划线处补充缺失的代码。
Const n = 20

Dim a(1 To n) As Integer

Dim lena As Integer    '数组a的实际长度 Dim s As String

Private Sub Form_Load()

    '生成lena个非递减序列，并输出到文本框text1中，代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, j As Integer i = 1

    Do While i < lena

        If a(i) <> a(i + 1) Then i =

        Else

            For j = i + 1 To lena

                a(j - 1) =

            Next j

            lena =

        End If

    Loop

    s = ""

    For i = 1 To lena

        s = s + Str(a(i))

    Next i

    Text2.Text = s

End Sub

查看解析
2、小李制作了主题为“杭州亚运会”的多媒体作品，首先用 Photoshop 软件处理了图片，然后使用 Flash 软件制作动画。请回答下列问题：

(1)、如图a所示，下列说法正确的是（）（多选，填字母：A .可以通过“填充”命令更改图层“Hangzhou 2022”的文字颜色/B .“背景”图层一定没有添加了“高斯模糊”的滤镜效果C .调整“场馆”和“背景”的图层顺序，场馆图像将不可见/D .将该图像文件保存为“a.jpg”，则“Asian Games”文字上的“外发光”效果不可见/E．无法直接删除“场馆”图层）

图a

(2)、将动画GIF文件“闪烁.gif”导入库中产生一个影片剪辑元件，则该元件中动画的动画类型是（单选，填字母：A .逐帧动画/B .形状补间动画/C .动画补间动画）

(3)、影片剪辑元件“礼花”的编辑界面如图b 所示。若在不改变其他动画效果的情况下，希望礼花的动画速度提高一倍，下列操作可行的是（单选，填字母：A .将帧频改成 6fps/B .删除第11-20帧/C .将20帧移动至第 10 帧，并删除 11-20 帧）

图b

(4)、如图c所示，按钮一开始就出现，若要使按钮直到最后才出现，则应如何操作。

图c

(5)、测试影片时，动画播放到最后，停止。按钮出现，单击按钮，将停止声音(声音设置如图d所示)，并打开 http://www.hangzhou.net网页。那么按钮上的动作命令是。

图d

查看解析
3、小张收集了2018年和2019年浙江省文化和旅游厅收入和支出情况的信息，用Excel软件进行了数据处理，如图1所示，请回答下列问题：

图1

(1)、区域E3:E15的数据是通过公式计算得到的，在E3单元格输入公式后，用自动填充功能完成E4:E15的计算，则E8中的公式是｡

(2)、若要对浙江省文化和旅游厅的支出预算按照2019年的数据进行降序排序，则应选择的排序数据区域为｡

(3)、选中图1中A1:E9的数据区域复制粘贴到新工作表中A1开始的位置，在新工作表中对“2018年”和“2019年”设置的筛选条件如图2所示，则按此设置筛选出的项目有条｡

图2

(4)、小张根据图1中数据直接制作了如图3所示的图表，创建图表的数据区域为｡

图3

查看解析
4、有如下程序段：
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、下列VB语句可以产生10到99之间(包含10和99)随机整数的是( )

A、Int(Rnd()* 100) B、Int(Rnd ()* 89 )+10 C、Int(Rnd ()* 90)+10 D、Int(Rnd()*91)+10

查看解析
6、某算法的部分流程图如图所示。执行这部分流程，若输入a的值为36，则输出c的值为（）。

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

查看解析
7、把一幅1024×768像素的24位彩色BMP图像存储为JPG格式，存储后容量为460KB，则图像压缩比约为

A、5：1 B、10：1 C、20：1 D、40：1

查看解析
8、某ACCESS数据表设计视图的部分界面如下图所示｡下列说法正确的是( )

A、该数据表的名称为“注册用户信息表” B、数据表视图下，可以在“性别”字段输入“男性” C、“2018年1月1日”可以是“出生年月”字段的有效输入值 D、除“ID”字段的字段值不允许重复外其余字段的字段值都允许重复

查看解析
9、用 UltraEdit 软件观察字符串“ 方程 x1+y2 = 10” 的内码,部分界面如图所示｡

下列说法正确的是 ( )

A、字符“10”的二进制编码为 0100 0000B B、图中有9个ASCII编码，有4个字节的GB2312编码 C、字符“y”的内码是79H，则字符“z”的内码是80H D、小写字母和大写字母内码相差32D,则“Y”的内码为47H

查看解析
10、小张使用Word软件编辑某文档,部分界面如图所示｡

下列说法正确的是 ( )

A、图中图片的环绕方式一定不是“ 嵌入型” B、在光标所在处按“ Delete” 键,可以删除“ 曹娥江与甬江” 下方的波浪线 C、接受所有修订后,图中文字变为“ 天台山( tiān tāi shān) 位于中国浙江省天台县城北” D、可使用查找替换功能将文档中的所有的“ 天台山” 一次性加粗显示,这采用了人工智能技术

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

A、使用搜索引擎对相同关键词检索两次，得到的结果一定相同 B、用HTML（超文本标记语言）可以描述网页中的文本、图像和超链接等元素 C、在IE浏览器中，使用“添加到收藏夹”功能可以保存正在浏览的网页内容 D、在IE浏览器中，以“文本文件（*.txt）”类型保存网页，可以保存网页中的超链接地址

查看解析
12、下列有关信息的说法，不正确的是( )

A、信息可以被加工处理 B、计算机中的信息是以二进制的形式存储的 C、信息可以在不同形态间转化 D、电影技术、微电子技术和通信技术都是现代信息技术

查看解析
13、一张骨牌由上下两行共四个格子构成，每个格子有一个1到6之间的数字。现在一共有5张骨牌，从左到右排成一排，定义每张骨牌的差值为：骨牌第一行的数字和减去第二行的数字和；5张骨牌的差值为：每张骨牌的差值和的绝对值。
如图a中，5张骨牌的差值为：|(3+3-4-4)+(6+3-2-5)+(2+3-4-5)+(1+5-3-3)+(1+1-1-1)|=4。

每张骨牌都可以顺时针旋转90度，效果如图b所示。现在最多可以选择其中一张骨牌进行旋转，使得旋转后的骨牌差值变小。求一种旋转方案，并输出骨牌差值的最小值。

图a

图b

编写VB程序，实现上述功能。运行程序，在文本框Text1中依次输入5张骨牌上的数字，单击“计算”按钮Command1，在文本框Text2、Text3、Text4中输出结果。程序运行界面如图b所示。

(1)、若图a中第1张骨牌的数字修改为，1、2、6、6，则骨牌差值的最小值为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 20) As Integer     ‘依次存储5张骨牌上的数字

Dim d(1 To 5) As Integer       ‘依次存储5张骨牌，上下两行的差值

Const n = 5

Private Sub Form_Load()

'从文本框Text1读取5张骨牌上的数字，依次存入数组a

'a(1)～a(4)依次存储第一张骨牌从左到右从上到下四个数字

'a(5)到a(20)依次类推

'代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer, up As Integer, down As Integer, t As Integer, k As Integer

    Dim id As Integer, times As Integer, x As Integer, ans As Integer

    For i = 1 To n

        up = a(4 * i - 3) + a(4 * i - 2)

        down = a(4 * i - 1) + a(4 * i)

        d(i) = up - down

        t = t + d(i)

    Next i

   id = 0 : times = 0

    ans =

  If ans <> 0 Then

        k = 1

        Do While k <= n

            For x = 1 To 3

                temp =

                If temp < ans Then

                    ans = temp

                    id = k



                End If

                If temp = 0 Then Exit Do

            Next x

            k = k + 1

        Loop

    End If

    Text2.Text = CStr(id)

    Text3.Text = CStr(times)

    Text4.Text = CStr(ans)

End Sub

Function turn(ByVal k As Integer, ByVal x As Integer) As Integer

    ‘求将第k张骨牌，顺时针旋转x次后，上下两行的差值，代码略

End Function

查看解析
14、在一条宽度度为L的直线小河中，一只青蛙想沿着直线从河的左侧跳到右侧。小河中有n片位置互不相同的荷叶，青蛙必须跳到荷叶上过河，否则会掉入水中。开始时青蛙站在河的左侧（坐标为0)，接着不停地向右侧跳跃，每次跳跃的距离不超过W，当青蛙跳到或跳过河的右侧(坐标为L)时，青蛙完成过河。例如当L=20,n=4,W=5，开始时4片荷叶的坐标为3，9，11，17，则至少需要增加2片荷叶，即在坐标8和16分别增加一个荷叶，得到过河的可行方案是0→3→8→9→11→16→17→20。

图a

图b

编写程序找出青蛙成功过河至少需要增加的荷叶数，界面如图b。请回答以下问题：

(1)、若要将列表框List1顶端与窗体顶端的距离设置为100，能实现该功能的语句是(A . List1.Height = 100 / B . List1.Top = 100 / C . List1.Width = 100）。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Form_Load()

'读取荷叶的位置，并保存到数组a中

'荷叶的数量保存在n中

'荷叶坐标和数量分别显示在list1和Text2中

End Sub

Private Sub Command1_Click()

    Dim a(0 To 100) As Integer

    Dim n As Integer, L As Integer, W As Integer, tot As Integer

    Dim i As Integer, j As Integer, p As Integer, d As Integer

    L = Val(Text1.Text) : n = Val(Text2.Text) : W = Val(Text3.Text)

    a(0) = 0 : a(n + 1) =

    For i = 1 To n - 1

       k = i

      For j = i + 1 To n

            If a(k) > a(j) Then

      Next j

      If k <> i Then

            tmp = a(k): a(k) = a(i): a(i) = tmp

      End If

    Next i

    For i = 1 To n

      List1.AddItem a(i)

    Next i

    p = 1: d = 0

    Do While d < L

      If p <= n + 1 And Then

            d = a(p)

            p = p + 1

      Else

            tot = tot + 1



      End If

    Loop

    Label4.Caption = "至少需要增加的荷叶数为：" + Str(tot)

End Sub

(3)、程序中加框处代码有错，请改正。

查看解析
15、使用flash软件打开“我的庄园.fla”文件，编辑界面如图a所示：

图a

请回答下列问题:

(1)、在制作作品前，小王进行了相应的需求分析，下列属于创作需求分析的是（A .该作品准备面向10岁以下的小朋友 B .该作品的使用价值如何 C .该作品的发布方式的选择 D .该作品选择的结构类型为游戏型 E.作品的背景音乐要悦耳，动画色彩和谐）

(2)、“哈利波特”图层第1帧的属性如图b所示，则该图层的补间类型是（A .形状补间 / B .动画补间 / C .逐帧动画），若在第30帧插入关键帧，是否影响动画效果（A .是/ B .否）。

图b

(3)、若要实现“发芽”图层动画结束1秒后，“花朵”图层动画才开始，则对“发芽”图层正确的操作是：。

(4)、若要实现该场景动画结束时，跳转到该场景的第1帧停止播放，则可行的操作是：。

查看解析
16、小张收集了2020年浙江省内本科院校录取情况的相关数据，并用EXCEL表进行处理，如图a所示：

图a

请回答下列问题：

(1)、图a中I3：I11区域是用COUNTIF函数计算得到的，选择I3单元格输入公式后利用自动填充功能完成其他单元格的计算。观察上图，可知I3单元格中的公式为(COUNTIF函数的作用是计算某个区域中满足给定条件的单元格个数，如COUNTIF（D3:D61,D3）的作用是计算区域D3:D61中内容为“杭州市”的单元格个数)

(2)、要使相同城市按照高校平均分有序排列，则排序时主、次关键字分别为、。

(3)、选择图a数据区域A2：A61，F2：F61，创建了一张柱形图，为了更直观的观察杭州市录取平均分最高3所院校的柱形对比，可以对A2：F61区域进行操作，使柱形图更新为图b。
①筛选出城市为“杭州市”的数据；②以城市为关键字，按笔画进行升序排序；③对“高校平均分”列设置“最大3项”的筛选；④以高校平均分为关键字进行降序排序；⑤隐藏第三所之后的所有院校。

图b

查看解析
17、有如下VB程序段：
key = Val(Text1.Text): cnt=10

For i = 1 To cnt - 1

  n = key - a(i)

  L = i + 1: R = cnt

  Do While L <= R

        m = (L + R) \ 2

        If a(m) = n Then Exit Do

        If a(m) > n Then R = m - 1 Else L = m + 1

  Loop

  If L <= R Then Text2.Text = Str(key - a(m)) + "," + Str(a(m))

Next i

在数组a(1)～a(10)中存储的数据依次为“1，4，9，16，25，36，49，64，81，100”，在Text1中输入一个不大于200的数，执行该程序后，Text2中显示的内容可能是（   ）

A、1，99 B、36，64 C、81，25 D、100，100

查看解析
18、有数据序列为“2，6，8，3，5，9，7”，经过一轮冒泡排序后的结果是“2，3，6，8，5，7，9”，那么还需要（）轮冒泡排序后，数据才能完全有序。

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

查看解析
19、有如下VB程序段：
For p = 11 To 12

   Do While p > 1 And a(p) > a(p \ 2)

        tmp = a(p): a(p) = a(p \ 2): a(p \ 2) = tmp

        p = p \ 2

    Loop

Next p

若a(1)～a(12)中的元素依次为“25，14，19，5，12，17，8，1，3，10，20，30”执行该程序段后，变量a(1)、a(2)和a(3)的值依次是（   ）

A、1 3 5 B、10 20 30 C、20 25 30 D、30 20 25

查看解析
20、在字符串s中查找是否存在字符子串s1，若有则返回第一个s1的起始位置，若没有则返回-1，实现该功能的VB程序段如下：
    ⑴    : i = 1

n = Len(s): t = Len(s1)

Do While i < n - t And p = -1

   If     ⑵     Then p = i

        ⑶

Loop

Label1.Caption = p

代码中划线部分由下列代码组成：

①p=1

②s1 = Mid(s, i, t)

③p=-1

④s1 = Mid(s, i, 1)

⑤i = i + 1

⑥i = i + t

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

A、③②⑥ B、①④⑥ C、③②⑤ D、③④⑤

查看解析

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