相关试卷

1、下列不属于手机操作系统的是( )。

A、Android B、ios C、Windows Phone D、Windows 7

查看解析
2、对k（k<=100）个数据进行排序时，可以利用一种排序方式进行处理，算法如下：
①每次将第i个数据和第2*i以及第2*i+1个位置的数据进行比较，将较大值交换到第i个位置上；

②从数组的第i(未排序数据个数一半位置)个位置重复步骤①一直比较到最前面，这样就可以将最大值交换到第1个位置；

③最终将1号位置上的值与未排序数据的最后一个进行交换，得到最大值；

④反复执行①②③三个步骤就可以将数据按升序排序；

过程如下图所示，其中a(1)=11,a(2)=25,a(3)=52,a(4)=39,a(5)=46，开始比较的位置从i=k\2个位置开始：

第一次排序过程：

步骤①：

步骤②：

步骤③：

第二次排序过程：

现要求在文本框Text1中输入一个整数k，对k个随机生成的两位奇数按上述排序方法进行排序，代码和程序运行界面如下所示，请在划线处填入合适的代码，并且在加框处代码有错误，请改正：

Dim a(1 To 100) As Integer

Dim k As Integer

Private Sub Command1_Click()

    Dim i As Integer

    k = Val(Text1.Text)

    Randomize

    For i = 1 To k

        a(i) =     ①

        List1.AddItem Str(a(i))

    Next i

End Sub

Private Sub Command2_Click()

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

    For i = 1 To k - 1

        For j = To 1 Step -1

            If Not judge(i, j) Then

                If      ②    Then

                    t = a(j): a(j) = a(2 * j): a(2 * j) = t

                Else

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

                End If

            End If

        Next j

        t = a(1): a(1) = a(k - i + 1): a(k - i + 1) = t

    Next i

    For i = 1 To k

        List2.AddItem Str(a(i))

    Next i

End Sub

Function judge(t As Integer, s As Integer) As Boolean

        ③

    If a(s) > a(2 * s) And a(s) > a(2 * s + 1) Or a(s) > a(2 * s) And 2 * s > k - t Then

        judge = True

    End If

End Function

根据以上代码回答问题：

(1)、如果现有数据a(1)=27,a(2)=12,a(3)=33,a(4)=78,a(5)=61，完成一次排序之后a(2)的值是。

(2)、加框处代码有错误，则正确的是。

(3)、请将划线处补充完整
① ② ③

查看解析
3、小张要对一批数据加密，数据内容全部由英文单词和空格组成（不包含数字和标点符号，数据最终以英文单词结尾，每个单词至少由两个字母组成）。加密时小张先从文本框中读取整段原文内容，然后对每个单词进行如下操作：每个单词中第一个和第二个字母交换位置，第三个字母按字母表顺序向后移动3 位，并后移到整个单词的最后面，其余字母前移，过程如图所示。例如：单词“Hazarded”，经过转换之后得到的密文是“aHardedc”。

代码和程序运行界面如下所示，请在划线处填入合适的代码，并且在加框处代码有错误，请改正：

Const n = 1000

Dim mw(0 To 1000) As String   '存放转换后密文的字符

Function zh(s As String) As String     '按字母表后移3位进行转换

    Dim p As Integer，flag As Boolean

    If s >= "a" And s <= "z" Then

        p = Asc(s) - 96: flag = True

    Else

        p = Asc(s) - 64: flag = False

    End If

        ①

    If flag Then zh = Chr(p + 96) Else zh = Chr(p + 64)

End Function

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, t As String, a As Integer

    Dim tmp As String, k As Integer, s As String

    s = Text1.Text

    k = 1: a = 1

    For i = 1 To Len(s)

    t = Mid(s, i, 1)

    If t = " " Then

        k = 0: mw(i) = t

    Else

        If k < 3 Then

            mw(i + a) = t: a = -a

        Else

            tmp = zh(t)

            j = i

            Do While

                   ②

                j = j + 1

            Loop

            mw(j) = tmp

               ③

        End If

    End If

    k = k + 1

    Next i

    For i = 1 To Len(s)

        Text2.Text = Text2.Text + mw(i)

    Next i

End Sub

请回答下列问题：

(1)、如果输入的原文单词是“TextBox”，则加密后的密文是

(2)、加框处代码有错误，则正确的是

(3)、请将划线处补充完整
① ② ③

查看解析
4、小丹同学为70 年国庆制作了多媒体作品。她利用Flash软件制作了一个动画，请回答下列问题：

图a

(1)、下列关于多媒体作品创作说法正确的是（多选，填字母：A .在片头场景中需要一张图片，需要上网获取，经过Photoshop 处理，名字命名成“BG.JPG”，这一过程属于媒体元素分解；B . Flash 作品主要界面需要链接到三个场景“开国篇”、“富国篇”、“强国篇”，这一过程是模块设计；C .最终作品通过微博发布，这一过程是应用需求分析；D .完成制作脚本后还需要编写文字脚本；E .作品主要展示界面可分“片头”，“主交互界面”，“片尾”，这一过程是结构设计。）

(2)、“BIRD1”图层中补间动画的类型是。（单选，填字母：A .形状补间动画；B .动画补间动画）

(3)、动画播放到最后一帧便停止播放，点击舞台上的“退出”按钮，便关闭整个动画的播放，则最后一帧上的动作命令是。

(4)、“TEXT”图层从第一帧就开始播放，形成文字淡入的效果，在不改变动画时长的前提下要求该图层动画推迟一秒钟播放，则该如何操作。

(5)、小丹同学在测试时发现“主界面”按钮无法响应鼠标事件，按钮的属性状态如下图b 和图c 所示，下列说法正确的是。（多选，填字母：A .在“背景”图层的点击帧执行清除关键帧操作，按钮可以响应鼠标事件；B .在“音乐”图层的点击帧执行插入关键帧操作，按钮可以响应鼠标事件；C .“图样1”图层按下帧执行插入帧操作，按钮不能响应鼠标事件；D .在“文字”图层点击帧执行插入帧操作，按下按钮时可以听到声音；E .在“图样1”图层按下帧执行插入空白关键帧，测试时能看到指针经过帧舞台上的内容）

图b

图c

查看解析
5、小张统计了企业老员工的1999年月工资和2019年工资信息数据，并使用EXCEL软件进行数据处理，如图a所示：

图a

请回答下列问题：

(1)、图a中区域F3：F13中的计算公式是由F2单元格自动填充得到的，则F8单元格编辑栏中的内容为。（平均月工资增幅=（2019 月工资-1999 年平均月工资）/1999 年平均月工资）

(2)、图a 中的数据已经经过排序，则排序时应选的数据区域是，其中主要关键字是“1999年月工资”，次要关键字是。

(3)、利用图a的数据建立如图b中的柱形图，则该图表的数据区域为。

图b

查看解析
6、有如下VB 程序段：
i = 0: s = "": n = 0

Do While i <= 3

    k = i: j = i + 1

    Do While j <= 7

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

        j = j + 1

    Loop

    If i <> k Then

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

        n = n + 1

    End If

    s = s + Str(a(i)): i = i + 1

Loop

Label1.Caption = Str(n) + ":" + s

数组a(0)到a(7)依次为16, 19, 8, 20, 4, 12,6, 15，程序运行后，标签框Label1中显示的值为（   ）

A、3:4 6 8 B、4:4 6 8 C、3:4 6 8 12 D、4:4 6 8 12

查看解析
7、有如下VB 程序段：
k = 1: start = 1: end = 8: flag = 1

Do While k <= 3

    For i = start To end - flag Step flag

      If a(i) > a(i + flag) Then

            t = a(i): a(i) = a(i + flag): a(i + flag) = t

        End If

    Next i

    end = end – flag : flag = -flag : k = k + 1

    t = start: start = end: end = t

Loop

For i = 1 To 8

    List1.AddItem Str(a(i))

Next i

已知a(1)到a(8)的值是39,18,24,14,2,76,65,59，运行之后a(1)到a(8)的值是（   ）

A、65 39 18 2 14 24 59 76 B、65 18 14 2 24 39 59 76 C、65 18 2 14 24 39 59 76 D、65 18 14 24 2 39 59 76

查看解析
8、小陈利用Access软件创建了某数据表，如下图1所示，其表结构如图2所示：

下列操作说法正确的是（）

A、图中出生年月字段中可以输入数据“1990-1-5” B、Access中不可以将“出生年月”的字段类型修改成数字类型 C、性别字段中的数据存储时存储大小为1B D、当前视图中可以删除“编号”字段

查看解析
9、某字符转置算法描述如下：
·将字符串（均为大写字符）s依次转换为相对应的数值（字符A~Z对应数值1~26）；

·转换后的数值以K个数据为一段，将n个待处理的数据依次分割成若干段（最后一段不足部分用0来补充）；

·每一段中K个数据与K*K转置矩阵进行乘法运算；

·将乘法运算得到的每一个结果值除以26求余数，依次转换成相应字符（数值1~26对应字符A~Z），最后按原始字符串长度输出。

乘法运算规则如下：

第i个元素c(i) =第j个元素a(j) * 转置矩阵第i行第j个元素b(t)的乘积之和（其中j = 1 , 2 …K）

例如：字符串s = PYTHON，区块大小K = 4的转置过程如下：

(1)、根据算法描述，上述示例中，字符“N”的相乘结果（即图中(★)处）为。

(2)、请在划线处填入合适代码。
Private Sub Command1_Click()

    Dim a(1 To 100) As Integer    ‘存储字符串，长度不超过100个字符

    Dim b(1 To 100) As Integer    ‘存储转置矩阵，长度不超过10*10

    Dim c(1 To 100) As Long

    Dim s As String, tmp As String

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

    Dim n As Integer, m As Integer, lens As Integer

    s = Text1.Text    ‘在Text1中输入原始字符串

    k = Val(Text2.Text)    ‘在Text2中输入区块大小K

    Randomize

    For i = 1 To k ^ 2

        b(i) = Int(Rnd * 9) + 1

        tmp = tmp + Str(b(i))

        If i Mod k = 0 Then

            List2.AddItem tmp

            tmp = ""

        End If

    Next i

    lens = Len(s): n = lens

    For i = 1 To n

        tmp = Mid(s, i, 1)



        List1.AddItem Str(a(i))

    Next i

    Do While n Mod k <> 0

        n = n + 1

        a(n) = 0

        List1.AddItem Str(a(n))

    Loop

    For i = 1 To n

        m = (i -1) Mod k + 1

        t = 1

        For j =

            c(i) = a(j) * b((m -1)* k + t) + c(i)

            t = t + 1

        Next j

    Next i

    For i = 1 To n

        List3.AddItem Str(c(i))

  Next i

    s = ""

    For i = 1 To lens



        s = s + Chr(t + 64)

    Next i

    Text3.Text = s    ‘在Text3中输出转置后的字符串

End Sub

查看解析
10、编写“区间覆盖”程序，实现如下功能：输入数轴上的若干个封闭区间范围（均为正整数且左坐标<右坐标），单击“统计”按钮，计算覆盖所有区间所需的数据点的个数。
例如：依次输入以下区间：[2 5]，[4 7]，[1 4]，[5 9]，[4 5]，[2 4]，数轴如下：

坐标点“4”覆盖了[2 5]，[4 7]，[1 4]，[4 5]，[2 4]共5个区间，坐标点“9”覆盖了[5 9]区间，所以覆盖这6个区间所需的坐标点数为2个。

程序运行界面如图所示。

实现上述功能的VB代码如下：

Dim n As Integer

Dim a(1 To 100) As Integer

Private Sub Input_Click()

    '输入n个正整数区间，依次存放到数组

    'a(1)到a(2*n)中，并在List1中显示

    '代码略

End Sub

Private Sub Count_Click()

    Dim right As Integer, t As Integer, k As Integer

    Dim tmp As Integer, i As Integer, ans As Integer



         ‘改错

    ans = 1: t = 3

    Do While t < 2 * n

        If     ①    Then

            If a(t + 1) < right Then right = a(t + 1)

        Else

            ans = ans + 1

            right = a(t + 1)

        End If

            ②

    Loop

    Text3.Text = Str(ans)

End Sub

请回答下列问题：

(1)、根据程序可知，“统计”按钮的对象名为。

(2)、根据虚线框中算法可知，如示例所示输入的数据[4 7]和[4 5]，在排序后，这两组数据在数组中的前后位置顺序是否发生改变？。（填：是/否）

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

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

查看解析
11、小王要创作一个关于“世界步行日”的多媒体作品。首先使用PhotoShop制作背景，然后使用Flash创作了动画，部分界面如图所示，请回答下列问题：

(1)、如图a所示，“世界步行日”图层中的文字不可见，可能的原因是。(单选，填字母：A .该图层被执行“栅格化文字”操作/ B .该图层不透明度为0%/C .该图层添加了“投影”图层样式/ D .该图层被锁定)

(2)、如图b所示，要改变“文字”图层（该图层内容为“世界步行日”）中文字的字体颜色，可使用的工具是。(单选，填字母：A .文字工具/ B .墨水瓶工具/C .油漆桶工具)

(3)、为了使“右脚”图层画面延续至第48帧，应做的调整是。

(4)、“重播”按钮元件的编辑界面如图c所示，为了使按钮能响应鼠标单击事件，以下操作可行的是。（多选，填字母：A .删除“背景”图层“点击”帧/B .“文字”图层“点击”帧插入帧/C .“背景”图层“点击”帧插入关键帧/D .清除“文字”图层“指针经过”关键帧/ E .删除“背景”图层“按下”帧）。

(5)、为了能够在发布影片后，单击“退出”按钮自动关闭动画，则按钮的动作脚本为。

查看解析
12、小李收集了2017年浙江省各地市在校学生数，并使用Excel软件进行数据处理，如图a所示。

(1)、图a中数据已有序，则排序的主要关键字是。

(2)、图a中“高等学校人数占比(%)”列数据计算过程为：在F3单元格输入公式，并对F4:F13区域进行自动填充。操作完毕出现图中所示错误，改正的方法是。

(3)、根据图a数据制作的图表如图b所示，则该图表的数据区域是。

查看解析
13、某对分查找算法部分代码如下：
i = 1: j = 1000: flag = True: p = 0

key = Val(Text1.Text)

Do While i <= j And flag

    m = (i + j) \2

    p = p + 1

    If a(m) = key Then flag = False

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

Loop

数组元素a(1)到a(1000)中存放着升序排列的数据。下列说法正确的是（    ）

A、若key的值小于a(1)，则执行该段程序后，变量j的值等于1 B、若key的值等于a(1)，则执行该段程序后，变量p的值等于10 C、若key的值等于a(1000),则执行该段程序后，变量i的值等于1001 D、无论key的值是否在数组a中，执行该段程序后，变量i的值均不可能等于m

查看解析
14、编写一个二进制列表程序，功能如下：在文本框Text1中输入位数n，单击“显示”按钮Command1，在列表框List1中顺序显示n位二进制编码。程序界面及代码如下。

Private Sub Command1_Click( )

    Dim tmp As String

    Dim n As Integer, t As Integer

    Dim i As Integer, j As Integer, k As Integer

    n = Val(Text1.Text)

    For i = 0 To   ⑴

        tmp = ""

        k = i

        For j = 1 To n

            t = k Mod 2

               ⑵

               ⑶

        Next j

        List1.AddItem tmp

    Next i

End Sub

可选的代码如下：

①2 ^ n -1

②2 ^ n

③k = k \2

④t=t\2

⑤tmp = Str(t) + tmp

⑥tmp = tmp +Str(t)

则程序（1）、（2）、（3）处的代码依次为（    ）

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

查看解析
15、有如下VB程序段：
For i = 1 To 5

    a(i)= Int(Rnd * 10)

Next i

For i = 2 To 5

    If a(i) < a(i -1) And a(i) Mod 2 = 1 Then

        a(i) = a(i) + 1

    ElseIf a(i) Mod 2 = 0 And i Mod 2 = 0 Then

        a(i) = a(i -1) -1

    End If

Next i

执行程序后，a数组各元素不可能是（    ）

A、6,6,4,3,3 B、0,-1,9,8,4 C、4,3,5,8,7 D、0,1,3,2,0

查看解析
16、某算法的部分流程图如下图所示，执行这部分流程图后，变量x的值是（）

A、0 B、1 C、2 D、8

查看解析
17、下列表达式的运算结果与其他选项不同的是（）

A、6 Mod 3 * 3 B、Asc("F") –64 C、Int(Sqr(50)) –1 D、Mid("123456", 6, 1)

查看解析
18、使用PhotoShop新建文件，部分界面如图所示。

编辑完毕以默认参数存储为BMP格式，其文件的容量约为（）

A、0.78 MB B、2.34 MB C、6.25 MB D、2400MB

查看解析
19、下列关于多媒体技术的说法，正确的是（）

A、多媒体数据之所以能够被压缩，原因之一是多媒体数据本身存在冗余 B、多媒体技术中的媒体是指存储信息的实体，如磁带、磁盘、光盘等 C、网络直播平台可以实时观看实况赛事，主要体现了多媒体技术的交互性 D、在进行多媒体作品的应用需求分析时，一般不需要考虑作品的经济效益

查看解析
20、使用GoldWave软件编辑某音频文件，部分界面如图所示。

当前状态下，以下操作中能改变音频文件容量的是（）

①执行“剪裁”操作后，按原参数保存

②插入1.5秒静音后，按原参数保存

③删除右声道音频后，按原参数保存

④将音频保存为单声MP3格式

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

查看解析

上一页 700 701 702 703 704 下一页跳转