相关试卷

1、查找峰值问题：随机生成n个正整数(假设n= 20，取值范围为0~ 100)，存储于数组a中，将这些数按顺序映射在坐标轴上，相邻的数用直线相连，构建了类似于“心电图”的折线：

编写VB程序统计所有的峰值(peak)、峰值数量(count)和最高点(high)。

实现上述功能的VB程序如下，请回答下列问题：

(1)、代码“List. AddItem Str( count)”中的AddItem是 (单选，填字母：A .对象名/B .属性/C .事件/D .方法)；

(2)、加框处的代码有错误，请改正。
Const n = 20

Dim a(1 To n) As Integer

Private Sub Form_ Load( )

'随机生成n个数，存储于数组a中，并输出在List1中。代码略。

End Sub

Private Sub Command1_ Click( )

Dim count As Integer

Dim high As Integer

Dim peak As Integer

Dim i As Integer, j As Integer

count= 0

if a(1)> a(2) then

  count = 1

  high=-1

  i=1

  Do While i< n-1

      j=i+1

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

        Do While a(j)>a(j-1)

          j=j+1

        Loop

        count =count+1

              '①

        List2. AddItem“第”+Str(count) +“个峰值：”+ Str( peak)

        If peak > high Then high = peak

             '②

    Else

        i =i+1

    End If

  Loop

  List2. AddItem“共有：”+Str(count) +“个峰值”

   List2. AddItem“最高点是：”+Str( high)

End if

End Sub

查看解析
2、小闻创作“幸福一家”的多媒体作品。她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、使用Photoshop编辑图片时，如图a所示，若将作品存储为BMP格式文件时，不想在图像中显示文字“一家人”，下列操作可行的是： (多选，填字母：A .执行“拼合图像”命令/B .删除“一家人”图层/C .隐藏“一家人”图层/D .调整“人物”图层和“一一家人”图层顺序/E .将“一家人”图层的不透明度调整为0%)，再存储为BMP格式文件。

(2)、使用Flash软件编辑“幸福一家.fla”。“场景1’场景的部分制作界面如图b所示。

回答下列问题：

①如图b所示，库中不包含类型的元件

②如图b所示，“文字1”图层利用库中元件制作文字“过去的每一天里”淡入的动画，该动画类型是(选填，填字母：A .逐帧动画/ B .形状补间动画/C .动画补间动画)。

③已知“控制”图层中添加了“Replay”按钮实例，测试影片时该按钮最后才出现，若要按钮在动画播放过程中一直可见，下列操作可行的是(多选，填字母：A .将“控制”图层的第30帧移至第1帧/ B .删除“控制”图层的第1帧至第29帧/ C .选择“控制”图层的第1帧并执行“清除帧”/ D .选择“控制"图层的第1帧并执行“清除关键帧"/ E .将“控制”图层的第30帧执行“复制帧”，再选择第1帧执行“粘贴帧”)。

④测试影片时，单击“Replay”按钮，动画跳转到Load场景的第1帧并暂停播放，则该按钮上的动作脚本是

⑤小易通过操作得到一个名为“幸福一家.swf”的文件，则该文件是通过(填字母：A .文件另存为/B .测试影片/C .测试场景)操作得到的。

查看解析
3、小明收集了2019年5月部分外国入境旅游人数相关数据，并使用Excel软件进行数据处理，如图所示。

请回答下列问题：

(1)、表中“所占比例(%)”数据是用公式计算每个国家的合计人数占总计人数的比例，并使用函数ROUND得到的。选择I4单元格输入公式，然后用自动填充功能完成其他单元格的计算。则I4单元格中的公式为(单选，填字母：A .=ROUND(H4/ $ H $22，2)/B .= ROUND(H4/ $ H$22 * 100，2)/C .= ROUND(H4/H22 * 100，2)/D .ROUND( H4/G22 * 100，2))。(提示：函数ROUND (number， digits)对数值number按指定的位数digits进行保留小数位数)。

(2)、小明要利用图中所给数据，制作一张各个地区的会议/商务”和“ 观光休闲”合计人数的对比柱形图表，他应选择的数据区域是

(3)、小明想要找出亚洲地区观光休闲人数最多的国家，可以采取的方法是

查看解析
4、有一个都是正整数的数组，分别计算相邻两个数的乘积并放在这两个数中间作为新的数组元素，然后按顺序输出，如原始数组为2、3、6,处理后按序输出为2、6、3、18、6。下列VB代码实现上述算法。
Dim a(1 To 19) As Integer

'生成a数组10个元素，代码略

Dim i As Integer, j As Integer

For i=1 To 9

    For j= ①

       a(j)=a(j-1)

    Next j

    a(j)= ②

Next i

For i=1 To 19

List2. AddItem Str(a(i))

Next i

上述程序中2处下划线应填入的程序代码是(    )

①10+I To i*2+ 1 Step-1②10+i to 19③19 to 10+I step-1④a (2￥i)*a(2*i-1)⑤a(i)*a(i+1)

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

查看解析
5、输入一个字母，生产一个回文字符串，如输入大写字母“E”，则产生从“A”开始的回文字母“ABCDED-CBA"；如输入“e”，则产生“abcdedcba”；实现该功能的VB程序段如下：
m= Text1. Text： s=" "

If m>= "a" And m<= "z" Then init= Asc("a")

If m>= "A" And m<= "Z" Then init= Asc("A")

n= Asc(m) - init +1

For i=1 To

    If i <= n Then

      s=s+

    Else

      s=s+

    End If

Next i

Label2. Caption=s

上述程序中方框处可选语句为：

①12*n-1   ②2*n   ③Chr(Asc(m)+i-n)   ④Chr(init+2 * n- i- 1)

则(1)(2)(3)处语句依次是(    )

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

查看解析
6、有如下VB程序段：
For i=1 To 9 step 2

b(a(i) Mod 10) = b(a(i) Mod 10)+1

Next i

s =0

For i=0 To 9 step 3

s =s+ b(i)

Next i

数组b各元素初始值为0，数组元素a(1)到a(9)的值依次为“29，74，12，38，16，45，21，57，33”，则执行该程序段后，s的值为( )

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

查看解析
7、有如下VB程序：
Dim c As Integer

Private Sub Form_ Load( )

c=0：Text1.Text=" "

End Sub

Private Sub Text1_ Change( )

If Val(Text1. Text) > 0 Then

    Text1. Text = Str(Val(Text1. Text) \ 2)

    c=c+1

End If

Text2. Text = Str(c)

End Sub

运行该程序，在文本框Text1中输入5，则Text1和Text2中显示的内容分别是(     )

A、0 3 B、12 C、51 D、-13

查看解析
8、某算法的部分流程图如图所示。执行这部分流程，则输出n的值为( )

A、28 B、29 C、35 D、36

查看解析
9、下列有关多媒体技术相关概念的说法，正确的是( )

A、位图是用一组指令集合或数学公式来描述的 B、媒体元素分解涉及的内容有描述素材类型和获取方式等 C、导航软件播报前方路况信息，主要体现了多媒体技术的交互性 D、MPEG视频文件压缩部分冗余和非冗余信息，解压后能准确地恢复到原信息

查看解析
10、一段未经压缩的视频(不含声音)参数为：每帧画面为640X480像素、16位色，PAL制式(25fps) ，该视频的大小为73MB，则视频的时间约为( )

A、1秒 B、5秒 C、10秒 D、15秒

查看解析
11、使用Access软件统计某班高三毕业生高考成绩，如下图所示（）

A、对当前记录“语文”字段值进行修改，“总分”字段值会自动更新 B、“学号”字段肯定是“自动编号”类型 C、“上线”字段肯定是“是/否”类型 D、当前状态下插入新记录，将会出现在第24行

查看解析
12、使用UltraEdit软件查看字符的内码，部分界面如图所示：

则下列说法正确的是（）

A、图中最大内码的十进制表示为150 B、这段字符内码的所有字节之和为偶数 C、字符“1+2”的内码可能是“31 2C 32” D、内码“36 30 2B 3A A3 A4”中，包含4个数字

查看解析
13、汉字可以使用N* N的黑白点阵图案来表示，例如汉字“上”和“二”使用8 * 8的点阵图案表示，如图所示。转化为0和1的点阵，其中0表示白色，1表示黑色，则“上”字可以表示为：

使用以下规则对01点阵进行编码(以“上”为例)：

①编码的第一个数为点阵的行列数N，如示例中“上”对应的行列数N为8；

②按行列顺序从上到下，由左到右依次进行编码；

③第一个数表示连续有几个0，第二个数表示接下来连续有几个1，第三个数表示再接下来连续有几个0，依此类推……

根据以上规则，“上”的编码为8，3，1，7，1，7，1，7，3，5，1，7，1，7，1，4，8。依据上述描述的编码规则，设计一个解码程序，根据输入的压缩编码，输出01点阵和黑白点阵。程序运行界面如图b所示，其VB代码如下。请回答下列问题：

Private Sub Command1_ Click( )

    Dim n As Integer, m As Integer, flag As Integer

    Dim a(1 To 100) As Integer, sum As Integer, num As Integer

    Dim s As String,tmp As String

    '读取一组数据，并对数据处理后存入相应变量

    s= Text1. Text ： s=s+","

    num=0： i=1

    Do While Mid(s, i, 1) <> ","

        i=i+ 1

    Loop

    n=     ①

    p=i+1

    num=0 : m= 0

    For i=p To Len(s)

        ch= Mid(s, i, 1)

        If ch="," Then

            m=m+1

                ②

            num= 0

         Else

            num=num * 10+Val(ch)

         End If

    Next i

    '下列代码为按规则对编码进行解码，输出01点阵

    sum=n￥n

    i=1 : flag=0 : tmp=" "

    Do While sum>0

        For j=1 To a(i)

            If flag=0 Then

                 tmp=tmp+"O"

            Else

                 tmp=tmp+"1"

            End If

            If     ③   Then

                List1. AddItem tmp

                tmp=" "

            End If

        Next j

           ④

        i=i+1

        flag=1-flag

    Loop

    '按规则对编码进行解码，输出黑白汉字点阵，

代码略

End Sub

(1)、依据图a中“二”字点阵图案以及上述压缩编码的规则，“二”字的编码为(填数字，中间用逗号分隔)。

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

查看解析
14、编写VB程序，实现如下功能：在文本框Text1中输入关键词，例如关键词“ok”，单击“查找”按钮Com-mannd1，在左边的列表框List1所列单词中查找包含“ok”的字符串，如果查找成功，将在右边的列表框List2中输出该单词。若该单词多次符合条件，则只显示一次。如果查找失败，则在列表框List2 中显示“查找无结果“。
实现上述功能的VB代码如下，运行效果如图所示。请回答下列问题：

Const n= 5

Dim a(1 To n) As String

Private Sub Form_ Load( )

'将n个字符串分别赋值给数组元素a(1)、a(2)、……、a(n)，并在列表list1中显示

'代码略：

End Sub

Private Sub Command1_ Click( )

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

    Dim m As Integer, k As Integer

    Dim flag As Boolean

    s = Text1. Text

    m = Len(s)

    List2. Clear

    flag = False

    For i=1 To n

        k = Len(a(i))

        For j=1 To k- m + 1

            If = s Then    '①改错

                List2. AddItem a(i)

                flag = True

                Exit For      '退出for 循环

            End If

        Next j

    Next i

    If Then    '②填空

        List2. AddItem“查找无结果”

    End If

End Sub

(1)、观察运行界面，窗体中一共有个对象。

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

(3)、为实现上述功能，请在加框处②填入合适的代码。

(4)、如果删除程序代码中Exit For语句，对程序最终运行结果(选项：有/无)影响。

查看解析
15、小明制作了主题为“鼠年大吉”的多媒体作品，他首先使用Photoshop 软件制作了一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、Photoshop部分界面如图a所示，当前状态下，下列说法正确的是(多选，填字母：A .选中“背景”图层，可以直接修改“背景”图层的不透明度/B .“鼠年大吉”图层的内容没有显示在画布中/C .不能把“灯笼”图层的图层样式复制到“舞龙”图层/D .把当前PSD文档保存为JPEG格式，该文件大小约为366.2KB)

(2)、制作的Flash动画如图b所示，“鼠1”图层呈现动画可能是(单选，填字母：A .由3只老鼠逐渐变成2只老鼠再变成如图所示的1只老鼠/B .“鼠1”由小变大的同时，由舞台外面运动到舞台的左上角，再运动到如图所示位置/C .由“老鼠”文字逐渐变成“鼠”文字再变为如图所示的一只老鼠)

(3)、“礼花”图层从第1帧至25帧实现礼花从空中飘落到云上，并消失在云的后面。但测试影片时发现，礼花最终停留云的外面，要修正错误，下列对“礼花”图层操作可行的有 (多选，填字母)

A、选择第26帧至48帧执行“删除帧"操作 B、将第48帧移动到第26帧 C、选择第25帧执行“清除关键帧”操作 D、选择第26帧执行“插入空白关键帧"操作 E、选择第26帧执行“清除帧"操作

(4)、按下组合键“Ctr1+Enter”测试动画，在当前文件夹中会产生一个名为(填写完整文件名)的文件。

(5)、测试影片时，弹出如图c所示提示信息，应进行的修改是

查看解析
16、小王收集了某地农产品价格数据，用Excel对其进行分析，整理后的数据如图a所示，

(1)、表中第J列数据是通过公式计算得到。小王首先在J5单元格中输入公式，然后利用自动填充功能向下填充到J23单元格。

(2)、小王想对蔬菜类的数据以“农产品品种”为主要关键字按升序进行排序，则他应该选择的数据区域是。

(3)、小王要对数据进行筛选，筛选条件如图b所示，则他共筛选出行数据

(4)、小王根据图a中数据制作了一个图表，如图c所示：则制作此图表的数据区域为

查看解析
17、有一数组a(1 to 6) ，其数值分别为“45，39，78，37，93，64”，想要从小到大排序，编写如下程序代码：
Dim flag As Boolean

i =1：n=6

flag = True

Do While i <= n-1 And flag = True

    flag = False

    For j=n To i+ 1 Step-1

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

            k = a(j)： a(j) = a(j- 1)： a(j-1)= k

            flag = True

        End If

    Next j

    i=i+1

Loop

以上代码在整个排序过程中，数据总比较次数和总交换次数分别是(     )

A、9次和4次 B、9次和6次 C、12次和6次 D、15次和12次

查看解析
18、有如下VB程序段：
Dim p As Integer, q As Integer, s As Integer, t As Integer

p = Vai(Text1. Text)

t=0

For q=p+1 To2*p

    s=(p*q)Mod(q-p)

    If s = 0 Then

        t=t+1

    End If

Next q

Label1. Caption = Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是(     )

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

查看解析
19、某对分查找算法的VB程序段如下：
i=1： j=6： n=0： f= False

key= Val(Text1. Text)

Do While i<=j and Not f

    n=n+1

    m= Fix((i+j)/2)

    If key=a(m) then f= True

    If key<a(m) then j=m-1 Else i=m+1

Loop

数组元素a(1)到a(6)的值依次为“12， 19，27，31，46，55”。若在文本框Text1中输入“31”，则以上程序段运行结束后，下列说法不正确的是(     )

A、变量i的值为4 B、变量j的值为4 C、变量m的值为4 D、变量n的值为3

查看解析
20、有n盏灯，一开始全部处于关闭状态，现有n个人对这些灯进行操作：第1个入将所有灯打开，第2个人将所有编号为2的倍数的灯全部关闭，第3个人对所有编号为3的倍数的灯进行反向操作……直到第n个人操作完成为止，该过程用如下VB程序段进行模拟。
Dim a(1 To n) As Integer

For i=1 To n

    For j=i To n

      If   ①   Then

          ②

      End If

    Next j

Next i

已知数组a初始值全部为0，模拟灯的状态，0为关，1为开。则划线处正确的是(     )

A、①i Mod j=0②a(j)=1-a(j) B、①j Mod i=0②a(j)=1-a(j) C、①j Mod i=0 ②a(i)=1-a(i) D、①i Mod j=0 ②a(i)=1-a(i)

查看解析

上一页 396 397 398 399 400 下一页跳转