相关试卷

1、录制一段长为30秒，双声道立体声，量化位数为16位的Wave格式的音频，其采样频率为44.1KHz，则该音频的存储容量约为( )

A、10.3KB B、86KB C、5.05MB D、40.35MB

查看解析
2、以下操作中没有用到OCR技术的是( )

A、通用手机摄像头拍摄题目并上传后自动给出试题的解题过程 B、某停车管理系统在车辆进入时自动识别并记录车牌号 C、用手机讯飞语音输入法录入短信 D、将报纸上的文章扫描后再使用方正OCR识别为文本文件保存起来

查看解析
3、以下关于电子邮件，说法错误的是( )

A、电子邮件在发送时，可以没有主题没有正文 B、从网页邮箱发送邮件，不需要设置smtp协议 C、利用客户端软件收发电子邮件时，只能发送不能接收，可能是pop3服务器设置错误 D、若收件入地址写错，服务器会反复投递

查看解析
4、以下关于信息及知识产权的基本概念，正确的是( )

A、销售盗版软件属于违法行为，购买和使用盗版软件不属于违法行为 B、软件一经购买就可以复制给其他入使用 C、“盲人摸象”体现了信息的共享性 D、用户在更换电脑登录QQ时，系统要求手机确定，这主要是为了提高信息的安全性

查看解析
5、小明过生日，他要一个三层的大蛋糕，每一层都是一个小蛋糕。蛋糕店刚好有对应上、中、下三层的三类蛋糕，大家知道多层蛋糕一般都是上层最小，中层其次，下层最大，不然蛋糕就不漂亮了。所以请你帮助明明计算，在知道每一类蛋糕的体积的前提下有多少符合条件的方案。
如下图所示，其中第一层蛋糕有5种，体积分别为4、3、5、8、1；第二层有4种，体积分别为6、4、8、5；第三层有7种，体积分别为5、9、4、5、7、6、4。所选方案须符合“第一层<第二层<第三层”，如：第层选3，第二层选4第三层选6。方案共有31种。

请在划线处填入适当的代码。

Dim a(100) As Integer, b(100) As Integer, c(100) As Integer

'a、b、c数组分别存储上、中、下三层蛋糕的体积

Dim i As Integer, j As Integer, cnt As Integer, ans As Integer

Dim na As Integer, nb As Integer, nc As Integer

'na，nb、nc分别记录上、中、下三层蛋糕的种类数量

Private Sub Command1_ Click( )

    Dim L As Integer, R As Integer, m As Integer

    For i=1 To na-1

        For j=na To i+1 Step-1

            If a(j) < a(j-1) Then tmp=a(j) : a(j) =a(j-1) : a(j-1)= tmp

        Next j

    Next i

    For i=1 To nc-1

        For j=nc To i+1 Step-1

            If c(j) < c(j-1) Then tmp= c(j) :c(j)=c(j- 1) :c(j- 1)= tmp

        Next j

    Next i

    For i=1 To

        L=0 : R=na+ 1

        Do While L+1<R

            m=(L+ R)\ 2

            If a(m) < b(i) Then

                L=m

            Else

                R= m

            End If

        Loop

        cnt= L

        L=0 : R=nc十1

        Do While L+1<R

            m=(L+R)\2

            If Then

                R= m

            Else



            End If

        Loop

        cnt=cnt * ()

        ans= ans+cnt

    Next i

    Label1. Caption="共有"十Str(ans) + "种方案

End Sub

Private Sub Form_ Load( )

    '随机生成三层蛋糕的数量存储在na、nb、nc中，生成三层蛋糕的体积存储在a、b、c数组中，并输出，代码略

End Sub

查看解析
6、小明编写了一个矩阵转换程序，功能如下：单击“生成”按钮Command1后，在列表框list1中生成1-16顺序矩阵，单击“转换”按钮Command2后，在列表框.list2中生成转换后的矩阵。
转换的算法如下：

1)改变列的位置：原矩阵第3列变为新矩阵的第1列，原矩阵第1列变为新矩阵第2列，原矩阵第4列变为新矩阵第3列，原矩阵第2列变为新矩阵第4列。

2)改变行的位置：经过(1)处理后的矩阵的第1行和第4行交换，第2行和第3行交换。实现上面的功能，程序运行界面如图所示。

(1)、程序执行后，点击转换按钮，在列表框List2中显示转换后的矩阵。再次点击转换按钮后，列表框List2中仅显示重新转换后的矩阵，则应在Com-mand2_ Click( )事件过程中添加语句(单选，填字母：A .Text2. Text=“”/B .List2. AddItem“”/C .List2. Clear)

(2)、实现上述功能的程序如下，请在程序划线处填入合适的语句或代码。
Dim sc(1 To 16) As Integer

Dim zh(1 To 16) As Integer

Private Sub Command1_ Click( )

    '在列表框list1中生成4*4矩阵sc，代码略

End Sub

Private Sub Command2_Click( )

    Dim pb As Integer, tmp As Integer, i As Integer, line As String

    For i=1 To 16     '变化列

       If i Mod 4=1 Then



      ElseIf i Mod 4=3 Then

            pb=i-2

       Else

            pb=pb+2

       End If

        zh(pb)= sc(i)

    Next i

    For i=1 To 8     '交换行

       If Then

            tmp=zh(i) : zh(i)=zh(i+12) : zh(i +12)= tmp

      Else

            tmp=zh(i) : zh(i)=zh(i+4) : zh(i+4)= tmp

       End If

    Next i

    line= ""

    List2. Clear

    For i=1 To 16

       If i Mod 4=1 Then

            List2. AddItem line

            line= adj(Str(zh(i)), 3)

        Else



        End If

    Next i

    List2. AddItem line

End Sub

Function adj(a As String，n As Integer) As String

    'adj 函数的功能：在字符串a前加入适当的空格，使得a的程度为n位，代码略。

End Function

查看解析
7、某同学制作了“抗击疫情迎接春天”的FLASH多媒体作品，请回答下列问题：

(1)、关于多媒体作品设计，以下说法正确的是(多选，填字母：A .Flash是以时间序列为基础的多媒体合成软件/B .在创作需求分析阶段应做的是分析作品效益/C .文字脚本是制作动画的直接依据/D .结构设计阶段需要描述整个作品的组成部分、工作流程、主要界面)。

(2)、当前状态下执行测试影片命令，首先播放的场景是。

(3)、“继续”按钮在场景一开始就出现，要实现该按钮在本场景最后一帧再出现，应如何修正。

(4)、“明天依然最美”图层第20帧到第50帧实现了文字实例“明天依然最美”由小到大且由透明到完全显示的变化效果，则该动画的类型是(选填字母：A .逐帧动画\B .动画补间\C .形状补间)。

(5)、“音乐”图层添加了一段时长为61秒的音频文件，小李发现当前场景动画结束后声音仍在播放，由此可判断当前音频的同步方式为。(选填字母：A .数据流\B .事件)

(6)、测试影片时，单击“继续”按钮，自动跳转到“主交互界面”场景的第1帧播放，则需在按钮。上加入的脚本命令为。

查看解析
8、小王收集了2017年8月我国50个城市部分食品平均价格变动情况的有关数据，并使用EXCEL软件进行数据处理，如图a所示。

请回答下列问题：

(1)、区域F3：F12的数据是通过公式计算得到的：在F3单元格输入公式后，用自动填充功能完成F4：F12的计算，则F3单元格中的公式是(计算公式：上旬价格与上旬平均价格之差=上旬价格-上旬平均价格)

(2)、若将图a中的第13行删除，单元格F3：F12的值(选填：会/不会)变化。

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

(4)、对图a中的A6：F12数据按照列C进行升序排列后，则图b中最下面的食品为

查看解析
9、有一组升序排列的数：5，17，21，25，33，49，58，67，如果用对分法查找数“58”，则依次访问的数据为( )

A、25，49，58 B、25，33，58 C、33，49，58 D、25，33，58

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

    For j=5 To i+1 Step-1

        If a(j)<a (j-1) Then

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

        End If

    Next j

    List1. AddItem Str(a(i))

Next i

数组元素a(1)到a(5)的数据依次为“81，20，69，54，43”，经过该程序段加工后，列表框list1中显示的内容是(     )

A、20 43 54 B、20 54 43 C、81 69 54 D、20 43 69

查看解析
11、采用如下对分查找算法对数组a(1)到a(8)中8个有序数据“1，5，8，13，16，27，31，39”进行查找，其程序如下：
i =1 : j=8 : x=27 : mark = False

Do While i <= j And Not mark

    m=(i+j+1)\2

    If a(m) = x Then mark = True

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

    Text1. Text = Text1. Text+Str(m)

Loop

执行该程序段，文本框Text1中显示的是（    ）

A、46 B、476 C、163127 D、576

查看解析
12、某排序算法的VB程序段如下：
n =10

Text1. Text =" "

For i=1 To 5

    For j=n To i+1 Step-1

        If a(j) < a(i) Then

            temp = a(j) : a(j) = a(i) : a(i) = temp

        End If

    Next j

Next i

For i=1 To 10

    Text1. Text = Text1. Text+Str(a(i))

Next i

数组元素a(1)到a(10) 的值依次为“965，155，195，444，106，734，172，983，898，360”，执行该程序段，文本框Text1中显示的是(     )

A、106 155 172 195 360 444 734 898 965 983 B、106 155 172 195 360 734 444 983 898 965 C、983 965 898 734 444 360 172 195 155 106 D、106 155 172 195 360 965 444 734 898 983

查看解析
13、使用UltraEdit软件观察字符“共享单车app！” 的内码，部分界面如图所示。

以下描述正确的是( )

A、存储字符“共享单车app！"共需要12个字节 B、字符“共享单车app！”只有3个ASCII码字符 C、字符“共”的二进制编码是10111001 D、字符“p”内码70是十进制的数

查看解析
14、小方同学把一张bmp图片转换为jpg格式，保存后的JPG格式图片的属性如下，请问该图片的压缩比为( )

A、2：1 B、5：1 C、15：1 D、1：20

查看解析
15、下列关于数据库的说法中正确的是( )

A、数据库是动态地存储在辅助存储器上的与应用程序相互关联着的数据集合 B、一个数据库管理系统可以管理多个数据库 C、常见的数据库管理系统有FoxPro、SQL Server 、Excel等 D、数据库应用系统可以完全脱离数据库管理系统独立运行

查看解析
16、某单位大门使用了某管理系统，当有汽车试图进入时能通过摄像头识别车牌号码，如汽车属于本单位的自动开启栏杆，反之则拒绝车辆进入。下列说法中，不正确的是( )

A、该系统使用了数据库技术 B、该系统使用了OCR技术 C、该系统使用了人工智能技术 D、该系统使用了虚拟现实技术

查看解析
17、以下关于信息和信息特征的说法，正确的是 ( )

A、信息的表示、传播、存储必须依附于某种载体 B、在公共场所上网时，应尽量把表单上的用户名和密码设置为自动完成 C、文字出现以后，才能进行传递信息 D、“盲入摸象”体现了信息的时效性

查看解析
18、小李编写VB程序，功能如下：单击“生成数组”按钮Command1，则随机生成13个取值范围是1~13的正整数，分别存储到数组a中，对数组的元素进行升序排列，并在标签label1中显示；再单击“连续数”按钮Command2，则在排序后的数组a中查找连续个数最多(忽略重复数值)的一组数值(即连续数)，若有两组连续数个数一样多，则取数值小的一组，将连续数显示在标签label2中。运行界面如图所示。

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

Dim a(1 To 13) As Integer

Dim n As Integer

Private Sub Command1_ Click( )

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

    Randomize

    n=13

    For i=1 To n

        a(i) = Int(Rnd * 13)+1

    Next i

    For i=1 To n-1

        For j=i+1 To n

            If a(j) < a(i) Then

                t=a(j)：：a(i)=t

            End If

        Next j

    Next i

    s=“”

    For i=1 To n

        s = s+ Str(a(i))

       If Then s=s+“，”

    Next i

    Label1. Caption =s

End Sub

Private Sub Command2_ Click( )

    Dim i As Integer, j As Integer

    Dim t As Integer, k As Integer

    Dim max As Integer    '存储连续数个数最大值

    Dim begin As Integer     '存储连续数开始的数值

    k= 1

    max=1

    For i=2 To 13

        If a(i)=a(i-1)+1 Or a(i)=a(i-1) Then

            If Then k=k+1

            If k > max Then

                max= k

                begin =

            End If

        Else

            k=1

        End If

    Next i

    s=" "

    For j=begin To begin+max-1

        s =s+ Str(j)

    Next j

    Label2. Caption = s

End Sub

查看解析
19、现有n* n大小的网格(n≤10)，每个格子从左到右、从上到下编号依次编号为1、2、3……n*n，当n为3时，网格如图a所示。

网格中每个格子都有一面沿对角线方向放置的挡板，且朝向随机。现将一个小球从左上角1号格子自上而下射入网格，则小球将在网格中不断反弹(不考虑实际的能量损失与重力影响等因素)，最终从某个格子离开网格，根据挡板的朝向与小球的运动方向，将有几种不同的反弹情况。如图b所示，小球进入网格后，先后经过1、2、5、6、3号格子，之后离开网格。

编写VB程序，功能如下：在文本框Text1中输入n的值，单击“生成”按钮Command1，生成网格和随机的挡板，并输出。然后单击“开始”按钮Command2，在文本框Text2中显示小球进入网格后的运动路径。程序中利用数组a存储网格的状态，其中“/”与“\”两种字符表示两种朝向的挡板。程序运行界面如图c所示。

请回答下列问题：

(1)、要使程序运行时，窗体标题显示“网格弹球”，可在Form_Load事件过程中添加语句(单选，填字母： A .Form1="网格弹球" / B .Form1.，Text="网格弹球"/ C .Form1. Caption="网格弹球")。

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

Dim a(0 To 100) As String

Private Sub Command1_Click( )     '生成网格和挡板，

    n= Val(Text1. Text)

    '生成n* n的网格和随机的挡板，并通过图形控件输出，代码略

End Sub

Private Sub Command2_ Click( )

    Dim ans As String, pre As String

    Dim cur As Integer

    cur= 1 : : ans =" "

    Do While cur >= 1 And cur<= n* n

        ans=ans + Str(cur) +“→”

        If pre="左" And a(cur)="\" Or pre= "右" And a(cur)="/" Then

            cur=cur+n： pre="上“

        ElseIf Then

            cur= cur n： pre="下"

        ElselIf pre="上" And a(cur)="\" Or pre=“下" And a(cur)="/" Then

            If cur Mod n=0 Then

                Exit Do

            Else

                cur=cur + 1： pre="左"

            End If

        ElseIf pre="上" And a(cur)="/" Or pre=“下" And a(cur)="\" Then

            If Then

                Exit Do

            Else

                cur=cur-1： pre= "右"

            End If

        End If

    Loop

    Text2. Text=ans+"离开"

End Sub

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

查看解析
20、小张创作“冬去春来”的多媒体作品。她首先用Photoshop软件制作一张封面图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、小张打算从“双燕”图层再复制一只燕子，执行了以下操作：
①菜单“编辑”/“拷贝”

②矩形框框选其中一只燕子

③菜单“编辑”“粘贴”，产生新图层

④选择“双燕”图层

⑤移动燕子到合适位置

正确的操作顺序是→→→→⑤

(2)、如图b所示，该动画“库”里有种元件。

(3)、如图b所示，“文字”图层以4个关键帧依次显示“冬去春来”四个字的动画属于(选填：逐帧/补间/引导线/遮罩)动画类型。

(4)、单击“Link”按钮实现启动浏览器打开多媒体作品所在文件夹下的“spring. swf”文件。则“Link”按钮的动作脚本是。

(5)、测试当前场景，发现动画一开始播放就暂停了，原因可能是

查看解析

上一页 398 399 400 401 402 下一页跳转