版本：

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

相关试卷

1、下列关于信息的说法，正确的是（）

A、信息要进行传递和共享，必须先进行数字化 B、信息的数字化过程就是采样、量化、编码的过程 C、信息本身是看不见摸不着的，所以不能用某种方式表现 D、信息的表达技术有电视、广播、网络、书籍、声音等

查看解析
2、对n位二进制数进行海明码编码（n是8的倍数），以8位二进制数为一段，每段插入4位校验位，构成12位二进制数，依次处理，完成各段数据编码。
每段海明码编码方法如下：

     插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0。把原8位二进制数d1~d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示：

图a

     计算插入的校验位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r2为1，否则为0；以此类推……

如8位二进制数“10101101”的编码过程如下：

1）插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。

图b

2）计算插入的校验位的值，选出形如“***1”的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。

图c

3）按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。

(1)、若要计算校验位r2的值，需统计位置号为的数据位中1的个数（依次填整数表示的位置号，用逗号分隔）。

(2)、编写VB程序实现上述功能，代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()

    Dim i As Integer, j As Integer, k As Integer, m As Integer

    Dim s As String, ch As String, result As String

    Dim a(1 To 12) As Integer, n(1 To 4) As Integer

    Dim b(1 To 8) As Integer

    b(1) = 3: b(2) = 5: b(3) = 6: b(4) = 7

    b(5) = 9: b(6) = 10: b(7) = 11: b(8) = 12 '编码数据的插入位置

    s = Text1．Text: result = ""

    For i = 1 To Len(s) \ 8

       For j = 1 To 12

            a(j) = 0

      Next j

       For j = 1 To 8

        ch = Mid(s, (i - 1) * 8 + j, 1)

                         '把编码数据插入相应位置

  Next j

  For j = 1 To 4

      n(j) = 0

   Next j

   For j = 1 To 12

      m = j

        For k = 1 To 4

            If m Mod 2 = 1 Then

                m = m \ 2

            Next k

      Next j

      For j = 1 To 4

            a(2 ^ (j - 1)) =

      Next j

      For j = 1 To 12

            result = result + Chr(Asc("0") + a(j))

       Next j

    Next i

    Text2.Text = result

End Sub

查看解析
3、某教室在上午8点到12点的时间段可以安排活动。为了安排尽可能多场次的活动，按以下方法安排：先安排结束时间早的活动；若有多个活动的结束时间相同，则优先安排占用时间少的活动。要求编写一个VB程序，实现上述功能。在文本框Text1中输入一批数据（数据都用逗号分隔并以逗号结尾），奇数位置数据表示某活动的起始时间，偶数位置数据表示该活动的结束时间，单击“确定”按钮Command1后，在列表框List1中显示各活动的起始和结束时间，在列表框List2中显示选择安排的活动。运行界面如图所示。

(1)、要清空Text1中的内容，可以把Text1对象的属性设置为空值。（单选，填字母：A . Caption / B . Text / C . Text．Clear）。

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

    Const n = 100

    Dim ss As String, t As String, i As Integer

    Dim k As Integer, p As Integer, temp As Integer

    Dim s(1 To n) As Integer, f(1 To n) As Integer

    Dim num(1 To n) As Integer, flag(1 To n) As Boolean

    ss = Text1.Text

    starttime = 480: endtime = 720     '教室可以安排活动时间为8:00到12:00

    k = 0: p = 0

    For i = 1 To Len(ss)

      ch = Mid(ss, i, 1)

       If ch <> "," Then

            t = t + ch

      Else



            p = (k - 1) \ 2 + 1

            If k Mod 2 = 1 Then s(p) = convert(t) Else f(p) = convert(t)

            t = ""

      End If

    Next i

    For i = 1 To p

      num(i) = i

    Next i

    For i = 1 To p

      List1.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))

    Next i

    For i = 1 To p - 1

        For j = p To i + 1 Step -1

            If Then

                temp = num(j): num(j) = num(j - 1): num(j - 1) = temp

                temp = s(j): s(j) = s(j - 1): s(j - 1) = temp

                temp = f(j): f(j) = f(j - 1): f(j - 1) = temp

            End If

      Next j

    Next i

    For i = 1 To p

      If s(i) >= starttime And f(i) <= endtime Then

          flag(i) = True



      End If

    Next i

    List2.AddItem "活动号起始时间结束时间"

    For i = 1 To p

       IfThen

            List2.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))

      End If

    Next i

End Sub

Function convert(s As String) As Integer

    '把时间格式的s转换为整数，如"08:20"转化为500。代码略

End Function

Function ff(t As Integer) As String

    '把整数t转换为时间格式，如500转化为"08:20"。代码略

End Function

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

查看解析
4、使用Flash软件创作“党建”作品，编辑“片头”场景，部分界面如图所示。请回答下列问题：

(1)、在制作作品前进行多媒体作品设计，下列说法正确的有 (多选，填字母)。

A、分析该作品的社会效益属于创作需求分析 B、分析创作该作品所需的硬件和软件属于应用需求分析 C、在结构设计阶段需确定作品的组成部分、工作流程和主要界面 D、在脚本编写阶段需确定各模块所需的媒体元素及获取、处理方法

(2)、如上图所示，“军人”图层的第1帧到第20帧实现军人从完全透明到完全显示变化的效果，则该图层第1帧中实例的Alpha值为%。修改“军人”实例的Alpha值，则库中对应元件（填：会/不会）发生改变。

(3)、在上图所示状态下，若要使“党徽”图层的补间动画推迟2秒出现，时长变为2秒且结束时间保持不变，则可行的操作是。

(4)、测试影片时，单击当前场景中的“继续”按钮，跳转到“main”场景第1帧继续播放。以下脚本命令正确的是（多选，填字母）。

A、on (release) {play();} B、on (release) {play("main",1);} C、on (release) {gotoAndplay(1);} D、on (release) {gotoAndplay("main",1);}

查看解析
5、小王收集了2020年12月和2021年1月我国重要生产资料市场价格数据，并使用Excel软件进行数据处理，如图a所示。

图a

请回答下列问题：

(1)、区域G3:G35的数据是通过公式计算得到的，在G3单元格中输入公式后，使用自动填充功能完成区域G4:G35的计算，则G3单元格中的公式是。
（提示：涨跌幅（%）=本期价格（元）-上期价格（元）/ 上期价格（元）*100）

(2)、根据图a中的数据制作图表如图b所示，则图表的数据源是。

图b

(3)、结合图a、图b分析，下列说法正确的有（多选，填字母）。

A、若删除“F列”，则图b所示图表不会随之改变 B、若不小心删除D3单元格的值，则G3单元格显示的内容变为“#DIV/0!” C、以“类别”为“黑色金属”，“涨跌幅（%）”为“最大一项”进行筛选，则筛选出黑色金属中涨幅最大的产品 D、选中区域A2:F35，按“比上期价格涨跌(元)”降序排序，区域G3:G35显示的值不会随之改变

查看解析
6、某对分查找算法的VB程序段如下：
key = Val(Text1.Text)

s = ""

i = 1: j = 10

Do While i <= j

   m = (i + j) \ 2

   s = s + Str(m)

   If a(m) = key Then Exit Do

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

Loop

Label1.Caption = s

数组元素a(1)到a(10)依次存放10个升序的整数。在文本框Text1中输入一个任意整数执行该程序段，标签Label上中显示的内容可能的是（    ）

A、5 2 3 1 B、5 3 2 4 C、5 8 6 7 D、5 8 9 7

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

For i = 1 To n - 1

  k = i

  For j = i + 1 To n

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

   Next j

   If i <> k Then

        c = c + 1

        t = a(i): a(i) = a(k): a(k) = t

  End If

Next i

数组元素a(1)到a(6)的初始值依次是5,3,1,0,9,8,，执行该程序段后，变量c的值是（    ）

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

查看解析
8、以下VB程序实现把文本框Text1和Text2中输入的升序字符串s1和s2合并成一个升序字符串s，并在文本框Text3中显示。如s1为“aceghi”，s2为“bdf”，合并结果为“abcdefghi”。
s1 = Text1．Text : s2 = Text2．Text

i = 1: j = 1: k = 1

Do While    ⑴

   If j > Len(s2) Or i <= Len(s1) And Mid(s1, i, 1) < Mid(s2, j, 1) Then

          ⑵

    Else

          ⑶

    End If

Loop

Text3.Text = s

上述程序段3个方框处的代码分别为（    ）

A、 B、 C、 D、

查看解析
9、有如下VB程序段：
s = "python": b = 0

For i = 1 To Len(s) - 1

   a = Abs(Asc(Mid(s, i, 1)) - Asc(Mid(s, i + 1, 1)))

  If a > b Then b = a

Next i

Label1．Caption = Str(b)

执行该程序段后，标签Label1上显示的内容是（    ）

A、1 B、7 C、9 D、12

查看解析
10、某算法的部分流程图如图所示。

执行这部分流程，若依次输入2,-3,5,1,2,-1,-8,3,4,0，则输出变量m的值为（）

A、5 B、6 C、7 D、8

查看解析
11、要实现将整数变量a、b和c中的最大值存变量m，下列VB程序段中不正确的是（）

A、 B、 C、 D、

查看解析
12、一段时长为20秒、1024×800像素、NTSC制式（30帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为1.37GB，则该视频的量化位数是（）

A、8位 B、16位 C、24位 D、32位

查看解析
13、使用 Photoshop 软件制作“党建”作品，部分界面如图所示。

下列说法正确的是（）

A、“党的历史”图层必定没有设置滤镜效果 B、当前状态下“百年征程”图层的图层样式是可视的 C、“军人剪影”图层被锁定，故不可以把该图层移动到“红旗”图层的下方 D、当前状态下可以使用“自由变换”改变“党的历史”图层的部分文字大小

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

下列说法不正确的是（）

A、图中共有7个ASCII码字符 B、图中字符“！”的内码为“A3A1” C、字母“g”的内码转换为十进制为6×16²+7×16¹ D、图中字符“o”、“G”和“2”的内码值依次从大到小

查看解析

15、用Access软件设计某商品管理系统的数据库，其中“商品入库表”数据表用于存储如图所示的数据。

商品编号	商品名称	价格	单位	数量	配送单位	入库时间
001	商品1	39.8	盒	100	单位A	2021.2.1
001	商品1	39.8	盒	200	单位B	2021.2.3
003	商品3	19.8	袋	150	单位C	2021.2.6
…	…	…	…	…	…	…

下列关于“商品入库表”数据表的描述，正确的是（）

A、该数据表的字段名称必须与上表所示每列名称相同 B、图中“价格”列在该数据表中相应字段的数据类型只能是“货币”型 C、可以把图中“商品名称”列在该数据表中相应的字段设置为主键 D、可以在图中“入库时间”列在该数据表中相应的字段前插入一个“经办人”字段

查看解析

16、下列关于信息安全的说法，不正确的是（）

A、微信好友发来的信息一定是真实可信的 B、随意扫描网页中的二维码存在安全风险 C、智能手机使用指纹解锁可以提高信息的安全 D、字母、数字、符号等组成的密码的安全性相对较高

查看解析
17、下列有关信息与信息技术的说法，正确的是（）

A、信息无处不在，它必须依附于载体 B、信息具有时效性，过期的信息没有任何意义 C、信息技术就是使用计算机处理各种信息的技术 D、5G通信技术就是速度可以达到5Gb/s的通信技术

查看解析

18、某地区举办了一场比赛，共有n个选手参加，每个选手会有m个评委进行评分。现要求按下列规则计算每个选手的成绩，并按照成绩从高到低进行排序。

选手成绩的计算规则是：计算评分最高前k个的平均分avg1，剩余评分的平均分avg2，找到avg1与avg2差值最小，则avg1与avg2的平均数为该选手得分。例如，某选手的评委评分为6，5，3，1，则各位次评分为：

k	1	2	3
avg1	6	5.5	4.67
avg2	3	2	1
avg1-avg2	3	3.5	3.67

由表格可知，差值最小为3，因此该选手的评分为（6+3）/2=4.5。按上述要求，编写VB程序，功能如下：在列表框List1中显示各选手的评委评分，单击“计算”按钮Command1，在列表框List2中依次按照得分从高到低显示每位选手成绩。程序运行界面如图所示。请回答下列问题：

(1)、若某选手的评委评分为6，3，7，10，则该选手最后成绩为。

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

Const n=8

Const m=12

Dim a（n*m）As Double，b（m）As Integer

Dim f（n）As Double，num（n）As Integer，sum As Double

Private Sub Form_Load（）

'读取n个人每个评委的评分，按照选手编号从小到大依次存入数组a，并显示在List1中

'a（1）到a（m）存储第1个选手得到的m个评委的评分

'a（m+1）到a（2*m）存储第2个选手得到的m个评委的评分

'以此类推，代码略

End Sub

Private Sub Command1_Click（）

Dim i As Integer，j As Integer，x As Integer，k As Integer

Dim s As Double，avg1AsDouble，avg2AsDouble

Dim ans_v As Double，ans_c As Double

For i=1 To n

sum=0

For j=1 To m

sum=sum+a（（i-1）*m+j）

b（j）=0

Next j

s=0

ans_v=-1：ans_c=0

For j=1 To m-1

x=find（i） '找到第i组中m个数中第j大数位置x

avg1=s/j

avg2=（sum-s）/（m-j）

If ans_v=-1 Or avg1-avg2<ans_c Then

ans_v=（avg1+avg2）/2

ans_c=avg1-avg2

End If

Next j

Do While k>=1 And ans_v>f（k）

f（k+1）=f（k）

num（k+1）=num（k）

k=k-1

Loop

f（k+1）=ans_v

num（k+1）=i

Next i

'将结果显示在List2中，代码略

End Sub

Function find（t As Integer）As Integer

Dim i As Integer

find=0

For i=（t-1）*m+1 To t*m

IfThen

If find=0 Or a（find）<a（i）Then find=i

End If

Next i

b（find-（t-1）*m）=1

End Function

查看解析

19、小凡有好多活页本，记录了各门课的错题。然而，他淘气的弟弟把这些活页本都拆了，并且活页纸散落在房间各地。小凡在房间里捡了若干张活页纸，每张纸都有活页本编号和其对应的页码。现在他要统计每本活页本上剩余还有哪些页码，为了能快速的整理，按照以下规则存储：对于同一本活页本上的纸张，则记录连续序列的起始和结尾编号。例如第1本活页本上的纸张页码有1，3，4，5，8，9，则记录为1-1，3-5，8-9。他编写了VB程序来解决这个问题，功能如下：共有k本活页本，每本最多有n张活页纸，总共有sum张活页纸，每张纸的编号和页码显示在列表框List1中，每一行前两位数表示该页对应的活页本编号，后一个数表示其对应页码；程序运行时，点击“整理”按钮Command1，在列表框List2中显示整理后的结果。程序运行界面如图所示。

请回答下列问题：

(1)、若要将按钮中显示的“整理”修改为“纸张整理”，则需修改按钮的属性。

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

Const k=5

Dim f（1 To 500）As String

Dim sum As Integer

Private Sub Form_Load()

    '读取sum张纸的信息，存入到数组f并显示在列表框List1中，代码略

End Sub

Private Sub Command1_Click()

    Dim i As Integer，j As Integer，t As Integer，tmp As Integer

    Dim a（500）As Integer，b（500）As Integer

    Dim c（500）As Integer，d（500）As Integer

    '读取每张纸信息，将页码存入到a数组中，活页本编号存入到b数组中

    For i=1 To sum

        a（i）=Val（Mid（f（i），4））

        b（i）=

    Next i

    For i=1 To sum-1    '对每一页先按照活页本编号、再按照页码从小到大排序

        t=i

        For j=i+1 To sum

            If Then t=j

        Next j

        tmp=a（i）：a（i）=a（t）：a（t）=tmp

        tmp=b（i）：b（i）=b（t）：b（t）=tmp

    Next i

    c（1）=a（1）    '对于每个奇数位i，c（i）与c（i+1）分别存储连续页码的起始编号和结尾编号

    d（1）=b（1）

    s=1

    t=a（1）

    For i=2 To sum

        If b（i）=b（i-1）And t+1=a（i）Then



        Else

            c（s*2）=t

            s=s+1

            =a（i）

            d（s）=b（i）

            t=a（i）

        End If

    Next i

    c（s*2）=t

    List2.AddItem "第1本书："

    List2.AddItem Str（c（1））+"-"+Str（c（2））

    For i=2 To s

        If d（i）<>d（i-1）Then List2.AddItem"第"+Str（d（i））+"本书："

        List2.AddItem Str（c（2*i-1））+"-"+Str（c（2*i））

    Next i

End Sub

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

查看解析
20、使用Flash软件创作了“奥运会”多媒体作品，部分编辑界面如图a所示。

图a

请回答下列问题：

(1)、在多媒体作品设计过程中，下列属于创作需求分析的是（多选，填字母）。

A、确定该作品发布在“浙江体育”公众号 B、明确作品的中心思想制订脚本大纲 C、将图片、声音等媒体元素逐一分类登记，制作成表格 D、确定该作品的主题思想是要体现奥运精神 E、分析用户的信息技术应用水平

(2)、如图a所示，“文字”图层从第1帧到第15帧实现了文字从无到有并逐渐缩小的动画效果，该补间类型为（单选，填字母：A .逐帧动画/B .形状补间/C .动画补间）。

(3)、测试影片时，发现动画播放到当前场景第60帧时并未自动停止，应该将“按钮”图层第60帧动作脚本修改为（单选，填字母：A . stop()；/B . stopAllSounds()；/C . fscommand（“quit”）；）。

(4)、修改后，单击第60帧的“游泳”按钮，发现按钮无效，检查了按钮动作脚本正确，按钮制作界面如图b所示，为了解决此问题，正确的操作方法有（多选，填字母）。

图b

A、对“文字”图层的“指针经过”帧执行“清除关键帧”操作 B、对“文字”图层的“点击”帧执行“插入关键帧”操作 C、对“背景”图层的“按下”帧执行“复制帧”操作，“弹起”帧执行“粘贴帧”操作 D、对“背景”图层的“点击”帧执行“删除帧”操作 E、对“背景”图层的“点击”帧执行“清除关键帧”操作

(5)、为了使“人”图层中动画一播放完就显示“按钮”图层中的按钮，其他动画效果不变，应进行的操作是。

查看解析

上一页 616 617 618 619 620 下一页跳转