相关试卷

1、有一个10*10的场地，要在场地上放入若干件正方形货物。算法描述：
⑴货物逐个尝试放入，搜索场地矩阵（从左到右，从上到下），若某块区域能放下该货物，则标记这些相应位置为货物编号，然后返回左上角检测下一货物。

⑵搜索时，若右侧剩余列小于货物边长，则跳转到下一行，若下方剩余行小于货物边长，则直接返回检测下一货物，直到所有货物检测完毕。

小武同学根据上述算法设计了VB程序。程序运行，在列表框list1降序输出货物规格，点击“存放”按钮command1，在列表框list2输出摆放完成的场地矩阵。

算法的VB程序如下，回答下列问题。

(1)、若货物4的尺寸改为4*4，其他不变，则货物9会被放在（填数组下标）

(2)、在程序划线处填上合适代码，使程序完整
Dim hw(1 To 9) As Integer '存储正方形货物的边长

Dim cd(1 To 100) As Integer '场地是边长为10的正方形

Private Sub Command2_Click()

Dim i As Integer, j As Integer, wz As Integer, s As String

For i = 1 To 9

   j = 1

    Do While (10 - (j - 1) \ 10) >= hw(i)   '下方空间足够

      If    ①   = False Then '从当前位置开始能否放下

        j = j + 1

      Else

        '把相关位置标记为i，并处理下一货物，代码略

      End If

If 10 - (j - 1) Mod 10 < hw(i) Then ‘右侧空间不足

   ②

      EndIf

    Loop

Next i

‘在列表框list2输出整个场地放好货物之后的矩阵图，代码略

End Sub

Function pd(start As Integer, bc As Integer) As Boolean

Dim i As Integer, wz As Integer

pd = True: wz = start

Do While wz <= start + 11* (bc - 1) And wz <= 100

    If    ③   Then

      pd = False

      Exit Function

ElseIf (wz - 1) Mod 10 - (start - 1) Mod 10 = bc - 1 Then

      wz = wz + 11 - bc     ‘位置转到下一行，与起点同列

    Else

      wz = wz + 1

    End If

Loop

End Function

Private Sub Form_Load()

‘生成货物边长，降序显示在列表框list1，矩阵元素初始化为0，代码略

End Sub

① ② ③

查看解析
2、AB两个篮球队进行了多场比赛，现在要统计比分并确定获胜球队。计分规则为胜场多的队伍获胜，若胜场相同，则计算累计小分（小分=本队得分-失分），小分多获胜，若还是相同则算平局。
小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框text1中，单击“统计”按钮command1，把两队各场的比分按A队小分降序显示在列表框list1输出，同时在文本框text2输出最终结果。部分程序界面如图所示，VB代码如下，回答下列问题：

Private Sub Command1_Click()

Dim a(1 To 20) As Integer, b(1 To 20) As Integer

Dim i As Integer, j As Integer, t As Integer, p As Integer, k As Integer， xiaofen As Integer

‘从文本框读取比分，场次k，AB两队各场的得分分别记录在数组a、b，代码略

For i = 1 To k – 1   ‘对比分数据按A队小分降序排序

For j = 1 To    ①

    If    ②   Then

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

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

    End If

Next j

Next i

p = 0: xiaofen = 0

For i = 1 To k     ‘统计小分并输出比分

If a(i) > b(i) Then    ③

xiaofen = xiaofen + a(i) - b(i)

List1.AddItem Str(a(i)) + ":" + Str(b(i))

Next i

If p * 2 > k Or k = p * 2 And xiaofen > 0 Then

Text2.Text = "A队获胜"

ElseIf Then

Text2.Text = "B队获胜"

Else

Text2.Text = "两队战平了"

End If

End Sub

(1)、若希望程序在运行时列表框list1清空，则应该在代码中添加语句（单选，填字母: A . list1.additem B . list1.clear   C . list1.清空 D . list1.caption）

(2)、在程序划线处填入合适代码，使程序完整
① ② ③

(3)、加框处代码有错，请改正

查看解析
3、用Flash创作“海滩漫步”多媒体作品，部分编辑界面如图所示。

请回答下列问题：

(1)、下列有关多媒体作品创作的说法，正确的是（多选，填字母）
A .flash内包含脚本语言，故flash属于以程序语言为基础的创作工具。B .在多媒体作品设计中，指定使用flash软件制作作品属于创作需求分析。C .在设计制作脚本之前，应该先设计好媒体元素分解表。D .完整的作品制作流程包括作品设计、制作、测试、发布等环节。）

(2)、库中的“人”元件是导入gif图片时自动生成的，此元件内的动画类型是(单选，填字母:A .逐帧动画 /B .动画补间 /C .形状补间)

(3)、测试场景时，单击场景中的“暂停”按钮，动画停止，但“风车”图层的风车还在不停旋转，则该图层中的“风车”是(单选，填字母:A .位图 /B .影片剪辑 /C .图形 /D .按钮)

(4)、为使“music”图层的声音持续播放2秒后结束，则在“music”图层中应进行的操作是。

(5)、测试影片时，单击当前场景中的“场景2”按钮，停止所有声音播放，并跳转到“场景2”第1帧开始播放，则“场景2”按钮的动作脚本为on(release)｛｝

查看解析
4、小美同学收集整理了英超足球联赛积分榜数据，并用Excel软件进行处理，如图a所示。请回答下列问题：

图a

(1)、图a中，球队积分用公式计算再自动填充得出，规则为胜一场得3分，平一场得1分,负不得分，则D3单元格中的公式是

(2)、图a的表格数据已排序，观察表格，排序的次要关键字是

(3)、利用图a中部分数据制作了图表，如图b所示。则该图表的数据区域是B2：B3，D2：D3，。

图 b

(4)、修改图b中图表的数据源为包含全部球队，但要求图表显示效果不变，则应该在排名列如何设置筛选？

查看解析
5、有如下VB程序
i = 1: j = 8

Key = Val(Text1.Text)

Do While i < j

m = (i + j) \ 2

If a(m) >= Key Then

i = m + 1

Else

j = m

End If

Loop

数组a（1）~a（8）分别是18、16、14、13、12、10、9、7，程序运行后，下列说法正确的是（）

A、程序运行后会进入死循环 B、在text1输入任意数字，程序运行后i=j+1 C、代码最多可能会运行4轮 D、在text1输入13，程序运行后m=5

查看解析
6、有如下VB程序段
Const n=9

k = 1

For i = 1 To (n + 1) / 2 - 1

For j = 1 To n - i * 2

    If a(j) * k < a(j + 2) * k Then

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

    End If

    k = -k

Next j

Next i

For i = 1 To (n + 1) \ 2

List2.AddItem Str(a(2 * i - 1))

Next i

已知数组元素 a（1）~a（9）分别是8、6、2、9、6、3、8、11、5，执行程序后list2输出的结果分别是（）

A、2 5 6 8 8 B、 8 8 6 5 2 C、6 8 5 8 2 D、 2 6 6 8 9

查看解析
7、有一字符串，由数字、字母和 “-”组成，现以“-”为分组标记，作如下处理：
数字往后移4个，如0→4,3→7,8→2；字母倒序放在各组前面；“-”不作处理。如字符串“25f-IT4-63t-”，经过处理后变为“f69-TI8-t07-”。下列VB程序段实现该算法，则填空处的代码应该是（）

Const mw = "0123456789"

s = Text1.Text: s1 = "": s2 = ""

For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

    ⑴

    ⑵

    s1 = s1 + c

ElseIf c = "-" Then

        ⑶

    s1 = ""

Else

    s1 = c + s1

End If

Next i

j s2 = c+s1+ s2      k c = Mid(mw, t + 1, 1)    l c = Mid(mw, t, 1)

m s2 = s2 + s1 + c     n t = (Val(c) + 4) Mod 10

A、 nkm B、 jkl C、njl D、 nkj

查看解析
8、对一个有n个元素的数组进行排序，下列说法正确的是（）

A、采用冒泡排序最多需要比较n*（n+1）/2次 B、采用冒泡排序肯定比采用选择排序交换的次数多 C、采用冒泡排序时，若发现某轮没有数据交换，可提前完成排序 D、采用选择排序时，每轮完成一头一尾两个元素的排序，可减少总交换次数

查看解析
9、某算法的部分流程如图所示。执行该流程，输出t和k的值分别是（）

A、14 6 B、 14 5 C、 15 6 D、15 5

查看解析
10、已知k为十进制多位整数，下列选项中能正确表示含义“若k的十位是偶数则a为1，否则a为2”的是（）

A、a=1: if k mod 2<>0 then a=2 B、a=2: if k mod 100 \2<>0 then a=1 C、if k \100 mod 2 <>0 then a=2 else a=1 D、if k\10 mod 2=0 then a=1 else a=2

查看解析
11、一幅分辨率1024×768、颜色模式为256级灰度的未经压缩BMP图像文件，另存为JPEG格式，已知压缩比为32:1，则此JPEG文件存储容量大小约为（）

A、192KB B、24KB C、72KB D、768KB

查看解析
12、用photoshop软件制作“在线教育”作品。当前状态下，下列说法正确的是（）

A、可以修改“平台”图层名为“直播机构” B、“资源”图层内容不可见的原因是被其他图层遮挡 C、“标题”图层设置了“波纹”滤镜效果 D、可以把“标题”图层的图层样式复制到“背景”图层

查看解析
13、关于信息编码，下列说法正确的是（）

A、信息编码的过程是信息进行数字化的过程 B、字符“3+9=12”（不包括双引号），需要存储空间5Byte C、在计算机内存储时，英语字符的编码都是唯一的 D、若把声音量化位数从16位改为24位，则不同的音量数变为原来256倍

查看解析
14、关于数据库和ACCESS，下列说法正确的是（）

A、数据库技术是一种对数据高效处理、冗余较少的数据处理技术 B、数据库系统包括数据库和应用程序，但不包括硬件和人员 C、在ACCESS中，任何操作都无法撤销 D、在ACCESS中，字段名称只能通过设计视图修改

查看解析
15、下列有关文字处理和OCR技术的说法，正确的是（）

A、word的自动更正功能属于人工智能 B、使用word编辑文档时，批注与修订都会改动原文 C、识别印刷文字，要经过图像化、行和字划分、特征抽取与匹配等过程 D、使用OCR软件时，bmp格式肯定比jpg格式的识别准确率更高

查看解析
16、下列关于信息和计算机技术的描述，正确的是（）

A、信息不会消失 B、因特网是计算机技术和通信技术结合的产物 C、计算机外接音箱发出的声音属于数字信号 D、硬盘和内存是常见的多媒体硬件设备

查看解析
17、淳安千岛湖中有若干座岛屿，有些岛屿之间有桥相连，有些岛屿之间无桥相连，可以通过其它的岛屿相连。现在我们来建立一种关系矩阵模拟这种现象，如有9个岛屿，依次编号为1～9，相互之间有桥相连在矩阵中用1表示；无桥相连用0表示；对于自身也用0表示，即矩阵的左上角到右下角的对角线全为0。
李同学设计了一个用来求两座岛屿之间相连所需桥的数量的VB程序，点击“生成矩阵”按钮Command1，随机产生一个关系矩阵，并在列表框List1中显示。在文本框Text1和Text2中输入岛屿的编号（1～9），点击“求解”按钮Command2，在Labell中输出两座岛屿之间相连所需桥的数量。VB程序运行界面如图所示。

对无桥相连的两座岛屿p1，p2之间相连的算法思想如下：

①p1岛屿所在行开始，将与其相连的岛屿依次添加到数组b中。

②若数组b中未出现岛屿p2,则依次查找与其相连岛屿的所在行，将新出现的相连的岛屿添加到数组b中。

③在查找过程中同时记录查找步数。

数组b内全部搜索完毕，若p2还是未出现，则两座岛屿之间无法相连，反之输出桥的数量。请回答以下问题：

(1)、如上图所示的矩阵，从5号岛屿到9号岛屿最少需要经过座桥。

(2)、请在划线处填入合适的代码。
Const n = 9              ‘岛屿的数量

Dim a(1 To n * n) As Integer

Private Sub Command1_Click()

Dim s As String List1.Clear

For i = 1 To n

   For j = i To n

   If j = i Then

     a((i - 1) * n + j) = 0    ‘对角线为0

    Else

     a((i - 1) * n + j) = Int(Rnd * 2)

         ①          ‘矩阵对称

    End If

   Next j Next i

For i = 1 To n

    s = ""

    For j = 1 To n

        s = s + Str(a((i - 1) * n + j))

    Next j

    List1.AddItem s Next i

End Sub

Private Sub Command2_Click()

Dim b(1 To n) As Integer

Dim qiao(1 To n) As Integer     ‘记录相连岛屿之间桥的数量

Dim find(1 To n) As Boolean     ‘记录某岛屿是否被添加到数组b中

Dim p1 As Integer, p2 As Integer, cur As Integer, k As Integer, q As Integer

p1 = Val(Text1.Text)

p2 = Val(Text2.Text)

cur = p1: k = 1: q = 0

find(cur) = True

Do While find(p2) = False

   For i = 1 To n

      If a((cur - 1) * n + i) = 1 And find(i) = False Then

        b(k) = i: k = k + 1

        find(i) = True

                 ②

    End If

   Next i

   q = q + 1

   If q = k Then Exit Do Else      ③

Loop

If find(p2) = True Then

    Label1.Caption = "需要经过" + Str(qiao(p2)) + "座桥"

Else

   Label1.Caption = "无桥相连"

End If

End Sub

① ② ③

查看解析
18、求数组a 中非降序数列的方法，算法描述如下：
⑴用数组依次存储每个非降序数列中最大的元素（查找过程中的最大值），初始时b(1)为数组a第1个元素。

⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：

若a(i)不比b(j)小就用a(i)替换b(j)中的值；将a(i)添加到第j个非降序数列中，并连接到c数组的c(j)中。

若a(i)比b(j)都小，则在数组b最后添加新的元素值为a(i)，即将a(i)添加到第j+1个下降数列中，并连接到c数组的c(j+1)中。

⑶若数组a各元素的值为：12,36,16,36,27,18时，则3个非降序数列分别为:“12,36,36”,“16,27”，“18”。

程序运行界面如下图所示：

小明依据上述描述设计了如下VB程序。请回答下列问题：

(1)、代码"List1.Clear"中的 Clear 是。（单选，填字母： A ．对象名 /B ．事件名 /C ．属性名 /D ．方法名）

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

Dim a(1 To m) As Integer Private Sub Form_Load()

‘读取m个数据，依次存储到 a(1)、a(2)、……a(m)中，代码略End Sub

Private Sub Command1_Click()

Dim b(1 To m) As Integer '存储数列最大的值Dim c(1 To m) As String    ‘存储非降序数列Dim i As Integer

Dim bottom As Integer Dim j As Integer

Dim bn As Integer      ‘存储非降序数列的个数List1.clear

b(1) = a(1)

      ①

c(1) = Str(a(1))

For i = 2 To m

     For j = 1 To bn

         If   ② Then

            b(j) = a(i)



            Exit For

         End If

    Next j

    If j > bn Then

       bn = bn + 1

            ③

       c(b(n)) = Str(a(i))

    End If

Next i

For i = 1 To bn

     List1.AddItem c(i)

Next i

Text2.Text = "数列中共有" + Str(bn) + "个非降序序列"

End Sub

① ② ③

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

查看解析
19、用Flash软件打开“沧海一粟.fla”文件，编辑界面如图所示。

请回答下列问题：

(1)、创作多媒体作品需要进行应用需求分析和创作需求分析。下列属于创作需求分析的是（多选，填字母：A .作品一般在什么场合使用 /B .作品要讲授什么知识或解决什么问题/C .作品的创作过程需要哪些硬件/D .作品的主要内容是什么/E .确定获得原始素材的方式）。

(2)、音乐图层的声音同步方式为“数据流”，若想不改变原动画效果让音乐在第1.5 秒时重新开始播放，则可行的操作是。

(3)、测试影片时，单击当前场景中的“进入”按钮，停止所有声音播放，同时跳转到“成语故事”第1 帧等待，则“开始”按钮的动作脚本为on(press){}。

(4)、若使该作品发布后具有交互功能，下列格式中应选择。(多选，填字母：A .Windows 放映文件(*.exe) /B .GIF 动画 (*.gif) /C .Flash 影片(*.swf) /D .WindowsAVI(*.avi) /E .JPEG 图像(*.jpg)。

查看解析
20、小王计算2019年销售部销售人员业绩，并用Excel软件进行数据处理，如图所示。

请回答下列问题：

(1)、百分比排名函数 PERCENTRANK(数据区域，x)用于返回 x 超过一个数据区域中的百分比，小王利用该函数计算每个销售人员的总销售额在所有销售人员总销售额中的百分比排位。
如上图所示，通过K3单元格中的公式，得出程小萍的业绩超过95%的销售额，对K4:K46进行自动填充，K46单元格中的显示结果是（单选，填字母： A . # VALUE! / B .26%/ C . #DIV/0! / D . 100%）。

(2)、若要正确计算“百分比排名”列的数据，可对K3单元格中的公式进行修改，并对K4:K46进行自动填充，则K3单元格中的公式是。

(3)、图中的部门为文本数据，构成规则是:“销售”(2位)+部门序号(1位)+“部”（1位）。若要同时筛选出部门是“销售1部”和“销售3部”的所有销售员数据，下列筛选方式可行的是 (多选，填字母)。

A、 B、 C、 D、

查看解析

上一页 1321 1322 1323 1324 1325 下一页跳转