相关试卷

1、小李要编写一个文艺汇演节目的计分系统。有m位评委给n个节目打分，采用100分制，0分表示放弃评分。计分方式为：不计0分，求去掉一个最高分和一个最低分后的平均分，最后从高到低输出成绩。编写VB程序，实现上述功能。运行程序时，在列表框List1中显示n个节目的m个分数，单击“计算”按钮Command1，在列表框List2中显示n个节目的最终得分。程序界面如图所示。

(1)、分析语句Private Sub Command1_Click()，其中Command1、Click、Command1.Click依次表示为(单选，填字母： A .对象名、属性名、过程名/ B .对象名、方法名、过程名/ C .对象名、事件名、过程名)。

(2)、实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
'n和m是常量，分别表示节目数和评委数，代码略

Dim df(1 To m * n) As Integer

Private Sub Form Load()

'从数据库中读取n个节目的m个评委的评分、依次存入数组df中，并显示在List1中，代码略。

End Sub

Private Sub Command1_ Click ()

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

    Dim sum As Integer, max As Integer, min As Integer

    Dim index(1 To n) As Integer, score(1 To n) As Single

    For i=1 To n

        x=(i-1)*m+1

        y=i*m

        sum=0：cnt=0

        For j=x To y

           If df(j)=0 Then cnt=cnt+1

           sum =

        Next j

        max = df(x)： min = df(x)     '统计每个节目的最高分与最低分

        For j=x+1 To y

           If df(j) > max Then max = df(j)

           If df(j)<>0And()Then min=df(j)

        Next j

        If cnt<m-2 Then score(i)=

        index(i) = i

    Next i

    For i=1 To n

        For j=nToi+1Step -1

            If Then

                t = index(j)： index(j) = index(j- 1)： index(j- 1) = t

            End If

        Next j

  Next i

  For i=1 To n

        List2.AddItem"节目" & index(i) & "得分：" & Int (score (index(i))*100)/100

  Next i

End Sub

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

查看解析
2、制作主题为“积极防疫”的多媒体作品。首先使用photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：

(1)、如图a所示，在当前状态下，若仅将“我”学安大，下列操作不可行的有 (多选，填填字母)。

A、用“魔棒工具”选取“我"字，再用“自由变换”命令将其变大 B、用“选框工具”选取“我”字，再用“图像大小”命令将其变大 C、用“文字工具”选取“我”字，再将字体大小值变大 D、用“套索工具”选取“我”字，再用“画布大小”命令将其变大

(2)、制作动画作品的部分界面如图b所示。测试影片时，动画播放到当前场景的第70帧自动停止，则“按钮”图层第70帧的动作脚本是，单击第 70帧中的“重播”按钮实现从该帧跳转到当前场景的第1帧并继续播放，则该“重播”按钮上添加的动作脚本是on(release){} (单选，填字母，A .play()； / B .play(1)； /C .gotoAndPlay()； / D .gotoAndPlay(1)；)

(3)、当前场景中“手势”图层的第31帧到第40帧的动画，要在第41帧到第50帧重复播放一次，则在“手势”图层进行的操作是。

(4)、测试影片时，鼠标悬停在按钮上，“盾牌”图案由静止状态开始旋转，按钮实例的编辑界面如图c所示，下列说法正确的是。(多选，填字母)。

A、盾牌的旋转发生在“弹起”状态 B、当前鼠标可能悬停在文字上 C、盾牌的元件类型是影片剪辑 D、“文字”图层“按下”帧插入空白关键帧则按钮无效

查看解析
3、使用Excel软件处理某届快乐阳光幼儿歌唱比赛数据，如图a所示。

请回答下列问题：

(1)、区域G3：G31的数据是在G3单元格输入公式后，通过自动填充实现计算，则G3单元格中的公式应为

(2)、设置如图b所示的筛选条件，下列地区中能显示的是 (单选，填字母)
①温州②甘孜州③黔东南州④湘西自治州⑤万州区

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

(3)、为了解各省市入围情况，绘制图表如图c所示，结合图a和图c，下列说法正确的是 (多选，填字母)。

A、修改B列城市名，图表不会发生变化 B、在图a所示工作表的G列前插入一列，图表不会发生变化 C、对A2：C434区域，按“省份”筛选浙江省，图表会发生变化 D、对A2：C434区域，按“省份”为主要关键字进行升序排序，图表会发生变化

查看解析
4、有如下VB程序段：
'数组f( )到f( )赋初值为0，代码略

n = Val (Text1. Text)

For key=1 To n

    i=1：j=n：c=0

    Do While i<=j

        m=(i+j)\2

        c=c+1

        If key=m Then

            f(c) = f(c) + 1： Exit Do

        ElseIf key > m Then

            i=m+1

        Else

            j=m-1

        End If

    Loop

Next key

在文本框Text1中输入5，执行该程序段后，f(1)到f(4)各元素值可能的是(    )

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

查看解析
5、有如下VB程序段：
n=7：c=""： top=0

For i=1 To n

   If top=0 Or c=a(i) Then

        top=top+1

        c = a(i)

    ElseIf c <> a(i) Then

        top=top-1

    End If

Next i

数组元素a(1)到a(7)的值依次为"A"，"A"，"B"，"C"，"A"，"A"，"C"，执行程序后，变量c的值(    )

A、"A" B、"B" C、"C" D、""

查看解析
6、s= $\frac{2}{1} + \frac{3}{2} + \frac{5}{3} + \frac{8}{5} + ... + \frac{(2 n - 3) + (2 n - 1)}{2 n - 1}$ ，其中n为正整数，计算s的VB程序段如下：
s=0：x=2：y=1

For i=1 To n

Next i

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

①x=x+y

②y=x

③s=s+x/y

④y=x-y

下列选项中，代码顺序正确的是( )

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

查看解析
7、有如下VB程序段：
n=8

For i=1 To n-1

    x=x+1

    For j=n To i+1 Step-1

        y=y+1

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

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

          z=z+1

      End If

    Next j

Next i

数组元素a(1) 到a(m)的值依次为“1，2，3，4，8，7，6，5"，则下列关系正确的是(    )

A、x=y=z B、x>y>z C、z>y>x D、y>z>x

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

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

查看解析
9、VB表达式(-1)^Int(Rnd*2)*(Int(Rnd*8)+2)+5的值不可能是( )

A、-4 B、5 C、9 D、14

查看解析
10、一段时长10秒、1024×768像素、24位真彩色、共120帧的未经压缩的AVI格式无声视频文件，该视频文件的大小约为( )

A、2.25MB B、22.5MB C、270MB D、2700MB

查看解析
11、使用GldWavee软件录制并编辑某音频文件，部分界面如图所示。下列说法正确的是（）

A、执行“删除”命令后，该音频10-20秒静音 B、该音频采样频率16000Hz；表示30秒内共采样16000次 C、该音频的量化位数为16bit，表示最多可有16个不同的量化值 D、执行“剪裁”命令后直接保存，音频的采样频率和量化位数都不会改变

查看解析
12、使用Access软件编辑某校学生体质健康数据库，部分界面如图所示。下列说法正确的是( )

A、“是否免测”字段可输入“是”或“否” B、“出生日期”字段可输入“2004\10\10”个新字段 C、可以在“姓名”和“是否免测”字段之间插入一个新字段 D、当前状态下可将“女生项目”数据表名改为“女子项目”

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

下列说法正确的是( )

A、字符“2”的十进制内码值是32 B、字符“Y”的十六进制内码值是79H C、“亚运@”这些字符的内码共6个字节 D、ASCII码表中字符“z”之后还有5个字符

查看解析
14、下列应用中不能体现人工智能技术的是( )

A、扫描条形码自动获取商品价格 B、语音识别实现歌曲分类 C、声纹识别实现异音检测 D、数据分析自动推荐商品

查看解析
15、从信息的角度分析“温州防疫码”，下列描述不正确的是( )

A、温州防疫码需要短信验证，是为了提高信息的安全性 B、温州防疫码中健康码的颜色，是大数据统计分析的结果 C、温州防疫码有时会提示行程无效，说明信息具有时效性 D、温州防疫码需要网络才能打开，说明网络是信息的一种表达方式

查看解析
16、现有一口矩形鱼塘，其长宽为m*n，通过现代科技设备扫描得到鱼塘内鱼的分布图，经过统计得到如图16-1图的分布图，塘主想要用一个矩形渔网(长宽为x*y)去网鱼，矩形渔网可以完全铺开，渔网不可翻转，而且网不可越过鱼塘边界，网的坐标由左上角端点标识，为了能够捕捉到最多鱼，请问撒网的坐标是多少？最多可以抓到多少鱼？实现上述功能的VB程序如下：

(1)、如上图所示，若矩形渔网长宽为1*2，则捕捉最多鱼的撒网坐标是。

(2)、请在下方程序代码中划线处填入合适的代码。
Dim m As Integer, n As Integer, x As Integer, y As Integer,

Dim a(1 To 1000) As Integer, s As String

Private Sub Form_ Load)

    '矩形鱼塘长宽为m*n，鱼塘内鱼的数量分布数据存在数组a中，输出在List1中显示

End Sub

Private Sub Command1_ Click()

    Dim ansi As Integer, asnj As Integer, sum As Integer, i As Integer, j As Integer

    x =Val(Text1.Text): y = Val(Text2.Text)

    sum= 0

    For i= 1 To m-x+ 1

        For j=1 To n-y+ 1

            If getsum(i, j) > sum Then sum = getsum(i, j): ansi = i: ansj =j

        Next j

    Next i

    For i= 1 To x



        For j=1 To y

            s= s+

        Next j

        List2.AddItem s

    Next i

    List2.AddItem "可捕到的最多鱼为: " + Str(sum)

    List2.AddItem "坐标为: (" + Str(ansi) + "，" + Str(ansj) + ")"

End Sub

Function getsum(row As Integer， col As Integer) As Integer

    Dim b, c as integer

    getsum= 0

    For b= row To row+x- 1

        For c= col To col+y- 1

            getsum =

        Next c

    Next b

End Function

查看解析
17、某学校要组建年级学生会，共有cla个班级，num个人报名，每班报名人数大于等于1人，招募n个人(其中n>cla)，录取规则如下：每班必须有一人录用(取综合评分最高)，剩余人数按报名学生的综合评分由高到低录取。加载原始报名数据在List1中显示，在Text1中输入招募人数，将录取结果在List2中显示。实现上述功能的VB程序如下：

(1)、如上图所示，窗体中共有类对象。

(2)、请在下方程序代码中划线处填入合适的代码。
Dim bj(1 To 100) As Integer, xm(1 To 100) As String, score(0 To 100) As Integer

Dim flag(1 To 100) As Boolean, p(1 To 100) As Integer, num As Integer, cla As Integer

Private Sub Form_ Load( )

'加载学生报名数据班级、姓名、分数，分别存储到数组bj，xm，score，并在列表框List1中输出，班级总数为cla个，报名总人数为num，代码略

End Sub

Private Sub Command1_ Click()

   Dim i, j, n As Integer

   Dim b(1 To 15) As Integer

   n = Val(Text1.Text)

    For i=1 To cla     '每班1人录用

        Max= 0

        For j= 1 To num

            If Then Max = score()：t= j

        Next j

        flag(t) = True

   Next i

   t= 1

   For i= 1 To num

      If Not flag(i) Then p(t)= i：t=t+ 1

   Next i

   For i=

        For j=1 To 2 Step-1

            If score(p(- 1)) < score(p(j)) Then t=p(j): p(j)= p(- 1): p(j-1)=t

        Next j

   Next i

   For i=1 To n-cla       '剩余人数录取

        flag(p(i)) = True

   Next i

   For i= 1 To num

        If Then List2.AddItem Str(bj(i)) + xm(i) + Str(score(i))

   Next i

End Sub

查看解析
18、用Flash软件打开“小车行驶.fla”文件，编辑界面如图所示。请回答下列问题：

(1)、创作多媒体作品需要进行需求分析和规划设计。下列属于需求分析的是 (多选，填字母)。

A、了解用户的计算机应用水平 B、考虑作品创作及运行需要的硬件设施 C、确定获取原始素材的方式 D、设计作品的主要界面 E、确定作品的发布方式

(2)、小车“左轮”实例在行驶的过程中不停地旋转，则该实例元件的类型为， “左轮”图层的动画类型为。

(3)、测试影片时，发现“重播”按钮一开始就出现在舞台上，要使按钮在最后一帧才出现，且不改变其他动画效果，应该进行的操作为。

(4)、单击“重播”按钮实现本场景重新播放，则该按钮上的动作脚本正确的有 (多选，填字母)。

A、on(press){play(1)；} B、on(release){play("场景1"，1)}；． C、on(release){go to And Play("场景1"，1)；} D、on(press){go to And Play(1)；} E、on(release){get URL("场景1")；}

查看解析
19、使用Excel软件，处理浙江省2020年各行业、各类型就业人员人数相关数据，如图a所示。请回答下列问题：

(1)、D4单元格正确计算了国有单位就业人数占比，通过复制D4单元格中的公式粘贴到F4和H4，并对区域F5：F23和H5：H23进行自动填充，发现计算结果不符合要求。若要正确计算F列和H列的数据，应将D4单元格的公式修改为。

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

(3)、结合图a和图b进行相关数据分析，下列说法正确的是 (多选，填字母)。；

A、图b柱形上方的数值可以通过数据标签进行添加。 B、对“合计”列设置筛选条件为最大3项，则筛选出的行号为7、9、20。 C、对数据区域A3：H23以“合计”为主要关键字进行降序排序，则图b会发生改变。 D、在图a所示工作表的“合计”列前插入一列，D列的数值会发生改变。

查看解析
20、基于对分查找插入数据，实现把数据temp插入降序序列中得到一个新的降序序列。程序如下：
temp=Val(Text1.Text)

If temp<a(n) then

    a(n+1)=temp

Else

    L=1：R=n

    Do while L<=R

        m=(L+R)2

        If a(m)<temp then R=m-1 else L=m+1

    Loop

    For j=   ①

        a(j+1)=a(j)

    Next j

      ②

End If

则横线①②上的语句分别是：(    )

A、①n to R step-1②a(R+1)=temp B、①n to R step-1②a(R)=temp C、①n to L step-1②a(L+1)=temp D、①n to L step-1②a(L)=temp

查看解析

上一页 367 368 369 370 371 下一页跳转