版本：

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

相关试卷

1、有2^k个同学参加比赛，每天安排若干场比赛，且每位同学每天仅参加一场比赛，试给出一种赛程安排表，使得2^k-1天内任意两个同学都至少比赛过一场。
按照比赛要求，可以设置赛程表为n行n-1列的二维表，其中第i行第j列的元素表示和第i个选手在第j天进行比赛的同学编号。

若k=1，则赛程表如下：

若k=2，则赛程表如下：

观察两个表不难发现：

①第二个表的左上角和右下角与第一个表相同；

②第二个表的左下角和右上角相同，恰好是第一个表各元素值加2。

因此可以通过第一个表来构造第二个表。同理可得，当n=2^k个同学的比赛日程表，可以通过n=2^k-1 个同学的比赛日程表构造得到。

请回答下列问题：

(1)、若k=3，则和第5个选手在第7天进行比赛的同学编号为。

(2)、补充横线处代码实现上述功能。
Private Sub Command1_Click()

Dim a(1 To 10000) As Integer

Dim n As Long, tmp As Long, i As Integer, j As Integer, t As Integer

a(1) = 1 : n = 1

k = Val(Text1.Text)

For t = 1 To k



    n = n * 2

    For i = tmp + 1 To n

        For j = 1 To tmp



        Next j

    Next i

    For i =

        For j = tmp + 1 To n

            a((i - 1) * 2 ^ k + j) = a((i + tmp - 1) * 2 ^ k + (j + tmp) Mod n)

        Next j

    Next i

    For i = tmp + 1 To n

        For j = tmp + 1 To n

            a((i - 1) * 2 ^ k + j) = a((i - tmp - 1) * 2 ^ k + j - tmp)

        Next j

    Next i

Next t

For i = 1 To n

    st = ""

    For j = 1 To n

        st = st + Str(a((i - 1) * 2 ^ k + j))

    Next j

    List1.AddItem st

Next i

End Sub

查看解析
2、学校有2个选考技术的班级，张老师在每个阶段都会格外关注成绩第二好的那个同学，以激励他上进。每次测验结束后，张老师总是先把两个选考班的分数分别统计和录入，然后分别按从低到高进行排序，最后合并汇总两个有序的选考班成绩。操作过程如下图所示：

请回答下列问题：

(1)、实现两个选考班分别排序的事件处理过程名为；

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

Dim xh(201) As Integer, xh2(201) As Integer

Const num = 101      '选考总人数

Dim n, m As Integer    'g1人数为n，g2人数为m

Private Sub Cd1_Click()          '合并汇总

nu = num

Do While m >= 1

    Do While

        t = g1(nu): g1(nu) = g1(n): g1(n) = t

        xh2(nu) = xh(2 * n - 1) : n = n – 1 : nu = nu - 1

    Loop

    t = g1(nu): g1(nu) = g2(m): g2(m) = g2(nu)

    xh2(nu) = xh(2 * m) : nu = nu – 1 : m = m - 1

Loop

'处理学号

For i = 1 To n



Next i

'显示合并结果

For i = 1 To num

    List3.AddItem xh2(i) & " " & g1(i)

Next i

'选出成绩第二好的同学

mxgrade = g1(num)

For i = num - 1 To 1 Step -1

    If g1(i) <> mxgrade Then Exit For

Next i

If i<>0 Then

Label1.Caption = "学号为：" & xh2(i) & "的同学，本次测试成绩第二，分数为：" & g1(i)

End If

End Sub

Private Sub Command2_Click()

For i = 1 To num \ 2

    '对g1同学的成绩进行排序

    For j = 1 To num \ 2 - i + 1 * (num Mod 2)

        If Then

            t = g1(j): g1(j) = g1(j + 1): g1(j + 1) = t

            t = xh(2 * j - 1): xh(2 * j - 1) = xh(2 * j + 1): xh(2 * j + 1) = t

        End If

Next j

'对g2同学的成绩进行排序，代码略

Next i

'在列表框中输出g1和g2学生的学号及其对应的成绩，代码略

End Sub

Private Sub Form_Load()

'代码略，从数据库中导入所有选考学生数据，共num个人，并做如下处理：

'1.学号为奇数的同学录入g1班级，共n人

'2.学号为偶数的同学录入g2班级，共m人

End Sub

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

查看解析
3、用Flash软件打开“竹枝词.fla”文件，编辑界面如图所示。

请回答下列问题：

(1)、关于多媒体作品设计的一般过程，下列说法正确的是（多选，填字母：A .了解诗人的生平属于应用需求分析 / B . 确定该作品的发布途径为学校网站的“古诗品鉴”栏目，属于作品的创作需求分析/ C . 应当先书写文字脚本再确定脚本大纲 / D . 根据需求确定该作品的结构类型，应当在制定脚本大纲之后/ E . Flash是以时间序列为基础的创作工具）。

(2)、测试影片时，要使得“竹枝词”动画只播放一遍，可以在图层最后一帧添加动作脚本。

(3)、为了让“诗句2”图层的补间动画在“诗句1”图层的补间动画之后播放，应当如何操作？

(4)、现有一个声音文件“sound.wav”，时长为4分钟，要实现在动画播放时声音一直存在，且画面停止声音不停止，下列说法正确的有（）（多选，填字母）。

A、选中“控制”图层第1帧，添加声音文件“sound.wav”，并选择“数据流”同步方式 B、选中“背景”图层第1帧，添加声音文件“sound.wav”，并选择“数据流”同步方式 C、选中“作者”图层第1帧，添加声音文件“sound.wav”，并选择“事件”同步方式 D、选中“控制”图层第1帧，添加声音文件“sound.wav”，并选择“开始”同步方式

查看解析
4、王老师用Excel处理全校技术选考的学生成绩,如图a所示。回答以下问题：

图a

(1)、为正确统计各班的平均分，修改I3单元格的公式，并将其自动填充到I4:I10，J3:K10，请更正I3单元格的公式(备注：=AVERAGEIF($B$3:$B$105,$G$3,$C$3:$C$105)表示计算“2201”班的“总分平均分”）。

(2)、王老师想让I3:K10的数据只保留2位小数，请问应当点击如下哪个图标(单选，填字母：A . / B . / C . / D . ）。

(3)、根据图a中数据制作如图b图表，下列描述正确的是（）（多选，填字母）

图b

A、创建该图表的数据区域是G2：G10，I2:K10 B、删除第9行的整行数据，图表不会发生变化 C、选择A2:E105区域，以“总分”降序排序，图表不会发生变化 D、选择A2:E105区域，以“信息”大于“40”进行筛选，图表不会发生变化

查看解析
5、某对分查找算法的VB程序段如下：
Key = Int(Rnd*10)*2+1

s = ""

i = 1: j = 10

Do While i <= j

    m = (i + j) \ 2

   s = s + Str(a(m))

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

Loop

Text2.Text = s

数组元素a(1)到a(10)的值依次为“2,4,5,8,9,10,13,17,19,20”。执行该程序段，则文本框Text2中显示的内容可能的是（     ）

A、9 4 B、9 4 5 C、9 17 19 13 D、9 4 5 8

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

    a(i) = Int(Rnd * 10)

Next i

For i = 2 To 5

    If a(i) < a(i - 1) And a(i) Mod 2 = 1 Then

        a(i) = a(i) + 1

    ElseIf a(i) Mod 2 = 0 And i Mod 2 = 0 Then

        a(i) = a(i - 1) - 1

    End If

Next i

执行程序后，a数组各元素不可能的是（     ）

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

查看解析
7、回文字符串的特征是从左到右读和从右到左读是完全一样的，如“aba”、“aabbaa”，判断字符串中忽略“，”字符后，该字符串是否是回文字符串的VB程序段如下：
s = "ab,,,cb,a"

n = Len(s)

i = 1: j = Len(s)

flag = True

Do While i <= j

    If Mid(s, i, 1) = Mid(s, j, 1) Then

        i = i + 1: j = j - 1

    Else



    End If

Loop

If flag = False Then Print ("不是回文") Else Print ("回文")

方框中的代码由以下三部分组成：

① If Mid(s, i, 1) = "," Or Mid(s, i, 1) = "." Then i = i + 1

② If Mid(s, j, 1) = "," Or Mid(s, j, 1) = "." Then j = j – 1

③ If Mid(s, i, 1) <> "," And Mid(s, j, 1) <> "," Then flag = False: Exit Do

下列选项中，代码顺序正确的是：（     ）

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

查看解析
8、分别采用选择和冒泡排序算法对数据序列“2，3，4，5，1，0”完成升序排序，则需要交换的次数分别为（）

A、5次和9次 B、4次和12次 C、5次和15次 D、4次和18次

查看解析
9、某算法的部分流程图如图所示。若输入x的值为63，则下列说法正确的是（）

A、该循环执行后，s的值为"0111111" B、该循环一共执行了5次 C、该循环执行过程中x1的值一直为0 D、该循环执行结束后，x的值为1

查看解析
10、有VB语句“If x =9 Then x = 1 Else x = x+2”，规定其x的取值范围为10以内的奇数，下列选项中，与该语句功能相同的是（）

A、If x Mod 2 =1 Then x=x+2 B、x=x+2
If x=9 Then x = 1
C、x=((x+2)\2 Mod 5)*2+1 D、x=(((x+2)\2+1) Mod 5)*2 +1

查看解析
11、一幅未经压缩的512×128像素的BMP图像，其每个像素的颜色均不一样，则其存储容量为（）

A、 512KB B、128KB C、8KB D、512MB

查看解析
12、用Photoshop软件制作“竹枝词”作品，进行相关编辑后的效果如图所示。

下列描述正确的是（）

A、使用油漆桶工具将“作者”图层的“刘禹锡”文字颜色填充为前景色 B、“诗句”图层的图层样式有4个被显示 C、当前状态下，可以移动“作者”和“竹枝词二首·其一”图层的内容 D、当前状态下，无法将“诗句”图层移动到“背景”图层下方

查看解析
13、某二进制数x转化为十进制数y后，发现y是偶数，下列说法正确的是（）

A、y*2转化为二进制数后，比x多一位0 B、y Mod 4的结果与x的左侧两位相等 C、y+1转化为二进制后，可能比x的位数多一位 D、x转化为十六进制数后，数值一定比y大

查看解析

14、用Access软件设计医院就诊信息管理系统的数据库，其中“患者信息表”中需要存储如图所示的数据，序号的前4位是在该医院注册就诊卡的年份。

序号	姓名	性别	出生年月	户籍所在地	联系方式	是否医保
202102001	张三	男	1997/7/1	杭州市西湖区	13510325679	是
202001001	李四	女	2000/1/1	宁波市海曙区	15258880358	是
…	…	…	…	…	…	…

下列关于该医院就诊信息管理信息系统的描述，错误的是（）

A、在Access的数据表视图中，可以修改“患者信息表”中联系方式的字段值 B、“患者信息表”中，序号数据的字段类型可以设置为“自动编号” C、通过数据库管理系统可以访问“患者信息表”中的数据 D、可以从Excel中批量导入患者信息到Access的“患者信息表”中

查看解析

15、学校正在创建智慧校园，校园里发生了诸多的变化：
①学生进入校园前采用人脸识别

②学生进入校园前使用红外测温

③任课教师可通过后台将作业答案发布到班级的“电子班牌”上以供校对

④教师可以用智能扫描仪快速扫描试卷、书籍等

⑤图书馆中，学生向“人机对话”导游机器人查询书籍是否出借以及其存放的位置

对于以上事件，下列选项中都体现了人工智能技术应用的有（）

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

查看解析
16、下列有关信息处理和信息技术的描述，错误的是（）

A、文字、语言、图形图像、声音和形体动作是信息技术的表达方式 B、信息技术包含微电子技术、通信技术、计算机技术和传感技术等 C、没有数字化的信息也能被计算机处理 D、用GoldWave处理音频，本质上是通过计算完成的

查看解析

17、气象学上将日平均气温连续5天等于或低于10℃算作入冬。编写VB程序，读取某月每日最高气温与最低气温数据（该月为30天，且本月气温最高不超过30℃，最低不低于0℃），温度以“最高温度～最低温度”的格式显示在列表框List1中；单击“统计”按钮Command1判断该月是否已经入冬，并统计得到该月最低日均气温，结果在Text1中呈现。程序运行界面如第图所示。

(1)、某月1号～10号每日最高气温与最低气温数据如下表所示：

日期	1号	2号	3号	4号	5号	6号	7号	8号	9号	10号
最高气温℃～最低气温℃	22～14	17～12	10～4	10～2	8～1	11～8	17～5	15～4	19～7	19～7

若程序运行后，数组元素f(7)的值为。

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

Dim a(1 To 30) As String

Private Sub Form_Load( )

‘读取本月每日气温数据，存储于数组a中并在列表框List1中显示，过程略。

EndSub

PrivateSubCommand1_Click()

Dim temp(1 To 60) As Integer

Dim length As Integer, t As Integer, j As Integer

Dim ave As Single

Dim f(30) As Integer

Dim flag As Boolean

For i=1 To 30

length=Len(a(i))

j=1: t=1

Do While j<=length

If Not(Mid(a(i), j, 1)<="9" And Mid(a(i), j, 1)>="0") Then

temp(2*i-1)=Val(Mid(a(i), t, j-t))

End If

j=j+1

Loop

temp(2*i)=Val(Mid (a(i), t, j-t))

Next i

f(0)=0: low=30: flag=False

For i=1 To 30

ave=(temp(i*2-1)+temp(i*2))/2

If ave<low Then low=ave

If Not flag Then

If ave<=10 Then

Else

f(i)=0

End If

If f(i)=5 Then

Text1.Text="本月已入冬"

flag=True

End If

Next i

If Then Text1.Text="本月尚未入冬"

Text1.Text=Text1.Text+""+"本月日均气温最低为："+Str(low)

End Sub

查看解析

18、某学校为增强学生体质，督促学生进行必要的体育锻炼，每学年都会举行一次新生体能测试，在高一年级每班随机抽取2位学生参加体测并要求全部达标。高一年级学生基本信息存储于相应的数据库文件中，班级总数为n，每班45名学生。抽选时以学生学号信息为依据（学号为8位数，前4位数字表示年级，5、6两位数表示班级，7、8两位数表示学号），并将抽选结果按照班级和学号升序排列输出。
根据上述要求编写VB程序，功能如下：读取高一年级n个班级学生学号信息，显示在列表框List1中。程序运行时，单击“抽取”按钮Command1，在列表框List2中显示每班被抽取中的两名学生学号。程序运行界面如图所示。

(1)、在VB表达式List2.AddItems(i)中，List2、AddItem依次表示（单选，填字母：A .对象名、属性名/B .对象名、事件名/C .对象名、方法名）

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

Dim a(1 To 500) As String

Private Sub Form_Load()

‘读取数据库中学生学号信息并存储于数组a中，过程略。

EndSub

Private Sub Command1_Click( )

Dim s(1 To 8) As String

Dim flag(1 To 500) As Integer

Dim b(1 To n) As Integer

Dim w As Integer, t As Integer, i As Integer, j As Integer

Dim x As String

For i=1 To 45*n

    flag(i)=0

Next i

For i=1 To n

    b(i)=0

Next i

w=0

For i=1 To n

    t=

    If flag(t)=1 Then

      i=i-1

    ElseIf b(i)<2 Then w=w+1



    b(i)=b(i)+1

      flag(t)=1

      If w Mod 2=1 Then i=i-1

    End If

Next i

For i=1 To 2*n-1     '排序并输出被抽中学生学号

    If  Then x=s(i+1): s(i+1)=s(i):s(i)=x

    End If

    For j=i To i+1

      List2.AddItem s(j)

    Next j

Next i

End Sub

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

查看解析
19、使用Flash软件创作“国际青年日”多媒体作品，部分编辑界面如图1所示。

图1

请回答下列问题：

(1)、以下对多媒体作品设计的一般过程，说法不正确的是（）（多选，填字母）。

A、将作品划分为“片头”、“叙事”、“高潮”、“结尾”四个主要界面，属于系统结构设计 B、确定选用Flash软件来制作合成作品，属于应用需求分析 C、描述作品每个场景的展示内容及呈现方式，属于文字脚本 D、在进行模块设计前，应考虑作品所需的媒体元素及其获取、处理方式

(2)、“纸飞机”图层由“纸飞机”实例制作生成，且呈现纸飞机盘旋飞动的动画效果，则“纸飞机”元件类型为。“纸飞机”动画在场景动画开始2秒后出现在画面中，要实现该效果，则在“纸飞机”图层中应进行的操作是。

(3)、“青年人”图层的第1帧至20帧的补间动画实现了青年人图像从无到有慢慢浮现在画面中，则该补间类型为（单选，填字母：A .动画补间/B .形状补间）。若修改帧频为18fps，“青年人”图层动画持续时间将（选填：变长/变短/不变）。

(4)、配乐图层中声音文件部分属性如图2所示。测试当前场景时，动画播放至第60帧时自动停止，单击“播放”按钮后场景音乐停止播放，画面进入“叙事”场景继续播放，则“播放”按钮的动作脚本为on(prss){}。

图2

查看解析
20、收集某品牌部分商品电商销售数据，并对部分数据利用Excel软件进行数据处理，如图a所示。

图a

请回答下列问题：

(1)、区域G3:G82的数据是通过公式计算得到的，在G3单元格中输入公式，再使用自动填充功能完成区域G4:G82的计算。（提示：退款比=退款额/毛销售额*100，其中毛销售额=订单量*单价）

(2)、对区域A2:G82进行相关数据分析，下列说法正确的是（）（多选，填字母）。

A、更新E列退款额数据，G列退款比的值会随之改变 B、为了将“编码”首字母相同的商品以“退款比”升序显示，可选择“编码”为主要关键字、 “退款比”为次要关键字均升序排序 C、删除“序号”列，“退款比”列的数值会发生变化 D、为了显示订单量超过100的商品中退款比最高的商品，可先对“订单量”进行筛选，设定条件“>=100”，再对“退款比”进行筛选，设定条件“10个最大的值”并显示最大的一项

(3)、对图a中数据进行相关统计后，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示，创建该图表的数据区域是。

图b

图c

查看解析

上一页 243 244 245 246 247 下一页跳转