版本：

全部粤教版（2019）浙教版（2019）教科版（2019）沪科版（2019）人教中图版（2019）教科版浙教版

相关试卷

1、在n个(1≤n≤15)一连串的方格内填写字母A或B，但相邻两格内不能都填B，求所有可能的填写方案数。例如当n＝3，可能的方案有AAA、AAB、ABA、BAA、BAB等5种。
丽华设计如下算法：考虑到方案中只包含了A与B两个字母，可以用二进制的0和1来代替（0表示A，1表示B）。当全部是0时最小，此数0；当全部是1时此数最大。枚举0到最大数的每一种情况，逐一判断是否包含B相连(二进制数1相连)情况，符合条件的0、1转为A、B后输出。

根据以上算法思想，丽华使用VB程序编写了一个程序来解决这个问题。在文本框Text1中输入n的值，点击“寻找方案”按钮Command1后，在列表框List1中输出所有的方案，在标签Label3中显示方案总数。

(1)、如果输入的n值等于4，那么所有可能的方案有种。

(2)、实现上述功能的VB程序如下，运行结果如图所示，请在划线处填入合适的代码。

Private Sub Command1_Click()

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

    Dim flag as Boolean, ans As Integer

    Dim a(1 To 15) As Integer

    n = Val(Text1．Text)

    For i = 0 To 2^n-1

        t = i

        For j = 1 To n

            a(j) = t Mod 2

            t = t \ 2

        Next j

        flag = True

        For k = 1 To n-1

            If Then flag = False

        Next k

        If flag Then : ans = ans + 1

    Next i

    Label3.Caption = "可能方案共" + Str(ans) + "种"

End Sub

Function GetStr(x As Integer, n As Integer) As String

    Dim m As Integer, i As Integer

    GetStr = ""

    m = x

    For i = 1 To n

        If m Mod 2 = 0 Then

            GetStr = "A" + GetStr

        Else

            GetStr = "B" + GetStr

        End If



    Next i

End Function

查看解析
2、编写VB程序，实现如下功能：在程序运行时，在文本框1中输入整数m(1≤m≤10)，单击“生成矩阵”按钮Command1，生成m2个范围为[0,9]的随机整数，随机存储在数组a中，并以m行、m列矩阵的形式在列表框List1上显示。单击“行排序”按钮Command2，对矩阵以“行”为单位完成升序排序，并在列表框List2上显示。运行界面如图所示，程序代码如下：

Dim m As Integer

Dim a(1 To 100) As Integer

Private Sub Command1_Click()

    '输入整数m，并随机产生m2个随机数

    '随机数以m*m 矩阵形式在List1上显示

    '代码略

End Sub

Private Sub Command2_Click()

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

    Dim s As String

    List2.Clear

    For i = 1 To m * m

        k = i

        For j = i + 1 To     ①

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

        Next j

        If k <> i Then t = a(k): a(k) = a(i): a(i) = t

            ②

        If Then

            List2.AddItem s

            s = ""

        End If

    Next i

End Sub

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

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

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

查看解析
3、小李制作主题为“2022年杭州亚运会”的多媒体作品。她首先使用Photoshop软件制作背景图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、如图a所示，下列说法正确的有（多选题，填字母）

A．选择“背景”图层，将不透明改为0%，并以PNG格式存储可以得到背景透明的图像文件。

B．选中“太阳图形”图层，通过“自由变换”改变太阳的大小，扇面赛道图层的内容大小也会同步变化。

C．选中“背景”图层，不可以直接设置图层样式，但可以直接添加滤镜。

D．拷贝“文字”图层的图层样式，并粘贴到扇面赛道图层，扇面赛道图层中可见的图层样式有2种。

E．选中“文字”图层，利用文字工具可以选中单个文字，并设置文字大小和颜色。

(2)、在2022年杭州亚运会.fla文件中，main场景的界面如图b所示：

小李在“按钮”图层的第72 帧设置脚本命令“Stop();”,测试影片时，动画播放到第72帧停止，但“帮助”图层中的帮助实例在动画停止时仍然保持飘动状态，那么该实例的元件类型是。

(3)、音乐图层中音频同步方式为数据流，测试影片时，要使动画播放3秒后，音乐又开始从头播放，正确的操作是。

(4)、利用GoldWave软件对文件bj.wav进行压缩，在其他参数不变的情况下得到音乐文件bj.mp3(文件属性如图c所示)，则压缩比是：1。（保留整数）

(5)、测试影片时，单击“宁波”按钮后动画跳转到“ningbo”场景，并停止在该场景的第1帧，则该按钮上添加的动作命令为 on(press){ }。

查看解析
4、小王收集了近5年来中国旅游主要国家入境游客人数的相关信息，并使用Excel软件进行数据处理，如图a所示。

请回答下列问题：

(1)、当前工作表中仅区域B1:I15有数据，小王在I3单元格输入了正确的公式，计算了日本2018年占年度主要国家入境游客人数总数的比例。再利用自动填充功能完成I4:I15单元格的计算。操作完成后，发现I4:I15单元格中的计算结果不符合要求。若要正确计算，则I3单元格的公式是（公式中要求保留使用SUM函数）。

(2)、小王在完成数据计算后，若要对欧洲地区的国家以“2017年”为关键字进行升序排序，则排序时选择的数据区域是。

(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是C2:C5,E2:E5, 。

(4)、小王对图a中“2015年”数据进行筛选，条件如图c所示，则图b图表中显示的国家还有个。

查看解析
5、有如下VB 程序段:
Private Sub Command1_Click()

    Dim a(1 to 10) As Integer

    Dim i As Integer, j As Integer, Key As Integer, c As Integer, m As Integer

    Dim flag As boolean

    flag = True: c = 0

    i = 1: j = 10

    Key = Int(Rnd() * 17) + 8

    Do While i <= j And flag = True

        c = c + 1

        m = (i + j) \ 2

        If Key = a(m) Then

            flag = False

        ElseIf Key > a(m) Then

            j = m - 1

        Else

            i = m + 1

        End If

    Loop

End sub

数组元素a(1)到a(10)的值依次为50、45、40、35、27、24、15、7、5、3，程序运行后变量c的值可能是：（     ）

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

查看解析
6、对随机生成n个互不相同的正整数（正整数的最大值不超过m）进行排序，排序要求如下：①偶数在前，奇数在后；②奇数降序排序；③偶数升序排序。部分程序如下所示，划线处的正确语句是（     ）
Const n = 15

Const m = 100      '整数的最大值

Dim a(1 To n) As Integer

'本过程产生n个不同随机整数，区间在[1,m]之间，存储在数组a中，代码略

Private Sub Command1_Click()

    Dim i As Integer

    Dim flag(1 To m) As Boolean

    For i = 1 To n

              ①        = True

    Next i

    For i =2 To m step 2

        If flag(i) Then List2.AddItem       ②

    Next i

    For i =      ③       To 1 Step -2

        If flag(i) Then List2.AddItem Str(i)

    Next i

End Sub

A、①flag(i) ②Str(a(i)) ③m-1 B、①flag(a(i)) ②Str(i) ③m-1 C、①flag(a(i)) ②Str(i) ③m D、①flag(i) ②Str(a(i)) ③m

查看解析
7、采用冒泡排序算法对数据序列“71，58，54，29，78”完成升序排序，此过程中数据“54”发生比较的次数可能为（）

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

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

A、107 B、106 C、133 D、33

查看解析
9、有如下VB程序段，运行该程序段后变量a的值为（     ）
a=4: b=3

If a >= 4 Then

    If b < 2 Then a=a+2

    If b > 2 Then a=a+3

    a=a+2

ElseIf a >= 9 Then

    a=a+4

Else

    a=a+b

End If

A、13 B、9 C、16 D、8

查看解析
10、在VB 程序设计中，下列语句在编译中或运行后一定会发生错误提示的是（）

A、Dim text As String B、If f Then x=x*x+1 C、s="cd"+3 D、s=Mid("abc123",3)

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

A、多媒体技术的三大特征是载体依附性、交互性和时效性。 B、文字脚本可以作为多媒体作品制作的直接依据。 C、了解整个作品的组成部分、工作流程和主要界面，可查阅其模块设计报告。 D、FLV 格式文件由于容量小、加载速度快，已成为当前网络视频文件的主流格式之一。

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

下列说法正确的是（）

A、图中内码“6E”是字符“n”的十六进制内码，那么字符“N”对应的十六进制内码值为“3C”。 B、图中内码所对应的字符串可能是“2020，hangzhou！”。 C、图中内码所对应的字符串包含12个ASCII 字符。 D、图中内码“30”是字符“0”的十六进制内码，则字符“-1”的十六进制内码为“2F”。

查看解析
13、小赵利用Word 软件编辑了一篇关于2022 年杭州亚运会的文档，文档中含有图像“亚运会．jpg”，部分界面如图所示。

下列说法正确的是（）

A、这段文字共有4 处修订，2 处批注。 B、文中的图片采用的环绕方式可能为紧密型。 C、利用光学字符识别软件OCR 可识别出“亚运会．jpg”图像中的所有内容。 D、若要对整篇文档中的多处“亚运会”文字设置为红色加粗格式，用自动更正功能最合适。

查看解析
14、下列关于网页和网络协议的说法，正确的是（）

A、POP3 协议用于发送 E-Mail。 B、IE 浏览器可浏览和编辑网页文件。 C、搜索引擎的两大核心技术是主题目录检索和自动网页搜索技术。 D、通过收藏夹只能保存网页的URL，无法保存网页上的内容。

查看解析
15、下列有关信息和信息技术的说法不正确的是（）

A、信息传播的过程中，可以实现从一种形态转换为另一种形态。 B、数字化后的多媒体信息才能被计算机存储和处理。 C、语言、图形、图像、视频和微博是信息的常用表达方式。 D、信息表达的规范化就是表达信息时需要遵守一定的标准，以利于信息的交流。

查看解析
16、有多人在不同楼层要乘坐同一部电梯，所有人都是去往更高楼层，电梯初始位置为第一批用户出发的楼层位置。电梯在运行时，上升一层需耗时3秒，在某一层停留时(含电梯初始位置和电梯结束位置)，不论有多少人进出都算8秒。小马同学利用上述算法编写了一个VB程序，在列表框list1中显示所有人的出发与到达楼层，按照出发楼层升序(出发楼层相同按到达楼层升序)排序，在列表框list2 中输出排序后结果，最后在文本框Text1中输出电梯本次运行的总时间。程序运行界面如图所示，回答下列问题：

(1)、若有5批用户出发与到达楼层分别是“10-25、5-15、15-20、15-30、5-10”，按照上述电梯运行规则，则电梯本次运行的总时间为秒。

(2)、给划线处填上合适代码，使程序完整。
Dim a(1 To 10) As Integer, b(1 To 10) As Integer

Private Sub Command1_Click( )

  Dim i As Integer, time As Integer, k As Integer

    Dim c(1 To 20) As Integer, nc As Integer

  c(1)=a(1)：nc=1

   For i=1 To 9    '删除起点重复数据后添加到数组c

      If a(i)<>a(i+1) Then

            nc=nc+ 1



        End If

   Next i

   For i=1 To 10    '删除终点重复数据后添加到数组c

        k=nc

        Do While b(i) < c(k)

            k=k- 1

        Loop

        If Then      '非重复数据( 新停靠楼层)添加到数组c

            For j=nc Tok+ 1Step-1

                c(j+1)=c(j)

            Next j

            nc=nc+ 1

            c(j+1)=b(i)

        End If

   Next i

  time= (c(nc)-c(1))* 3+ nc* 8

   Text1.Text="总时间-" + Str(time)+"秒"

End Sub

Private Sub Form_ Load( )

  '生成10批人的起止楼层，分别给数组a和b，并在列表框list1输出，代码略。

  For i=1 To 9

      For j=10 To i+1 Step-1

            If a(j)<a(j- 1) Or   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

  For i=1 To 10

      List2.Addtem Str(a(i)+Str(b(i))

   Next i

End Sub

查看解析

17、大数据是当今最热门的领域之一，小王同学利用VB设计了一个模拟大数据应用的程序。有10种商品，数组a存储用户是否购买了各种商品；某个用户购买时，商品两两之间是否一起购买用另一个数组dsj来记录；各数组元素的解释如下表所示。

数组元素

数组元素的含义

a(i)

a(1)到a( 10)依次存储1号顾客购买商品1~商品10的记录：

a(11)至a(20)依次存储2号顾客购买商品1~商品10的记录；依次类推。

数组a的某个元素的值为1，则表示某位顾客购买了某种商品，若为0则表示没有购买

该种商品。如a(6)=1表示1号顾客购买了商品6，a(6)=0表示未购买。

dsj(i)

dsj(1)~dsj(9)依次存储商品1与商品2~商品10的关联次数；

dsj(10)~dsj(17)依次存储商品2与商品3~商品10的关联次数；依次类推。

如dsj(5)=2表示商品1与商品6被同时购买过2次；

如dsj(45)=4表示商品9与商品10被同时购买过4次。．

数组dsj中，若dsj(45)的值最大，则表示商品9和商品10 的关联次数最多。

小王按照上述算法设计了VB程序，统计了20个用户购买10种商品之间的关联性，VB程序如下，部分界面如题图所示。

Private Sub Cmd1_Click( )

Dim a(1 To 200) As Integer '各个用户原始的购买记录

Dim dsj(1 To 45) As Integer '统计商品之间的关联次数

Dim i As Integer, t As Integer, ne As Integer, j As Integer, max As Integer

'数组a读入数据并在列表框分行输出，代码略

For i= 1 To 20 '20个用户

t= 1

For j= 1 To 9 '10个商品，共45种组合

For k=j+ 1 To 10

m=(i- 1)* 10

If Then dsj(t) = dsj(t)+ 1

①

Next k

Next j

Next i

max=0

For i=1 To 45

If ② Then

max=dsj(i)

maxi=i

End If

Next i

t=9：nc= 1

Do While maxi>t

③

t=t-1

nc=nc+1

Loop

Text1.Text="关联最多的是商品"+Str(nc)+Str(maxi+nc)+"："+Str(max)+"次"

End Sub

(1)、将按钮．上的文字“统计”修改为“计算”，可在Form_Load过程中使用 (单选，填字母)语句实现；

A、Cmd1.Caption= "计算” B、Cmd1_Click="计算" C、Command1.Text="计算"

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

(3)、在程序划线处填入合适代码，使程序完整。

① ② ③

查看解析

18、使用Flash软件制作“中秋佳节”多媒体作品，部分界面如图所示。

回答下列问题：

(1)、关于多媒体作品的设计，以下说法正确的是(多选，填字母：A .分析用户情况属于创作需求分析/B .确定作品为演示型属于创作需求分析/C .在应用需求分析阶段完成作品经济效益的预设/D .在规划设计阶段应完成作品的媒体元素分解)。

(2)、“嫦娥”在飞升过程中会重复做一些舞蹈动作，这说明关键帧中的“嫦娥”属于（单选，填字母： A .形状/B .位图 /C .影片剪辑元件实例/D .图形元件实例)。

(3)、图a中右下角的“玉兔”是一个按钮实例，若该按钮元件的编辑界面如图b所示，则测试影片，当鼠标指针经过该按钮时，按钮(选填：是/否)可见。

(4)、“孔明灯”图层的第1-12帧、第25-36帧都制作了“孔明灯”实例向左上飞行的动画，其中第12帧和第25帧的孔明灯位置、大小等属性均相同，以下说法正确的是 (多选，填字母)。

A、孔明灯上升过程中，X和Y的坐标值都将不断变小 B、在“孔明灯”图层第13帧设置脚本“stopAllSounds()；"，不会改变动画效果 C、将第一段动画缓动值设置为100，该段动画中“孔明灯”的上升速度将加快 D、在“孔明灯”图层第20帧设置补间属性为“动画”，不会影响动画效果 E、在“孔明灯”图层第37帧插入帧，只会影响本图层效果

(5)、修复“玉兔”元件后，测试场景，该按钮一开始就出现，但只有当该场景运行4.1s后点击该按钮才能跳转到新场景。若要求“玉兔”按钮只在该场景最后出现并点击有效，则应做的修改是。

查看解析
19、小枫收集了2020年上半年两个季度的全国建筑业发展情况，并用Excel软件进行处理，如图a所示。请回答下列问题：

(1)、图a中，区域K4：K33中的数据是通过在K3单元格中输入公式并利用自动填充得到的，则K3单元格中的公式为。(注：季度环比增长倍数=(第二季度总产值-第一季度总产值)/第一季度总产值)

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

(3)、若要对华北地区各省市按“季度环比增长倍数”的情况进行降序排序，则应选择的排序区域是。

(4)、根据图a中的表格数据，下列说法正确的是。(单选，填字母)。

A、C列数据一定是利用公式计算得出 B、若隐藏题图a表格的第8-0行，则题图b的图表会发生变化 C、华北、东北、华东三个地区中，东北地区第二季度建筑业的环比增长最快

查看解析
20、有n个连续的自然数，删除首尾两端之外的其中一个数后存储在数组元素a(1)到a(n-1)中，利用对分查找算法找出这个数的某VB程序段代码如下：
Const n=10

i= 1：j=n- 1

Do While j-i>= 2

    m=(i+j)\2

    If ⑴ Then

        i= m

    Else

          ⑵

    End If

Loop

Text1.Text= Str( ⑶ )

上述程序中(1)(2)(3)划线处可选语句有：

①a(j)-a(m)=j-m

②a(m)-a(i)=m-i

③j=m-1

④j=m

⑤a(i)+1

⑥a(i)

则上述程序中(1)、(2)、(3)划线处的代码依次为(       )

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

查看解析

上一页 775 776 777 778 779 下一页跳转