相关试卷

1、Python 标准库 math 中用来计算平方根的函数是，取大于等于x的最小的整数值函数是，求绝对值的函数是。

查看解析
2、有n个小组（编号1至n），每个小组有m个成员，每个成员都有一个大于等于0的得分。现要求按下列规则计算每个小组的成绩，并找出成绩最高的小组。
小组成绩的计算规则是：若小组成员中得分最高的前k人得分都不低于k，且其他成员得分都不超过k，则该小组成绩为k。例如，第1小组共有8个成员，得分依次为“5，2，7，11，8，6，5，1”，由此可知最高的前5人得分为“11，8，7，6，5”，其他3人得分为“5，2，1”，因此该小组成绩为5。

按上述要求，编写VB程序，功能如下：在列表框List1中显示各小组每个成员的得分，单击“计算”按钮Command1，在列表框List2中显示成绩最高的小组编号及成绩（如果有多个小组并列最高，则全部显示）。

(1)、若第2小组各成员得分依次为“0，4，12，1，5，9，3，9”，则该小组的成绩是。

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

Const m = 8

Dim a（n * m）As Integer

Dim c（m）As Integer，ans（n）As Integer

Private Sub Form_Load( )

    ‘读取n个小组每个成员的得分，按组别从小到大依次存入数组a，并显示在List1中

    ‘n（1）到a（m）存储第1小组m个成员的得分

    ‘a（m+1）到a（2*m）存储第2小组m个成员的得分

    ‘以此类推，代码略

End Sub

Private Sub Cummand1_Click( )

    Dim i As Integer，p As Integer，g As Integer，maxg As Integer

    maxg = -1

    For i = 1 To n

        g = GroupScore（i）

        If g > maxg Then

            maxg = g: p=1



        ElseIf g = maxg Then

            p=p+1

            ans（p）=i

        End If

    Next i

    For i = 1 To p

        List2. AddItcm“第”+Str（ans（i））+“组，成绩：”+Str（maxg）

    Next i

End Sulb

‘函数返回第w小组的成绩

Function GroupScone（w As Integer）As Integer

    Dim i As Integer，k As Inteser

    For i = 0 To m

        c（i）=0

    Next i

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

        k=a（i）

        If k > m Then

        c（k）=c（k）+1

    Next i

    k=m

    Do White c（k）< k And k>0

        k=k-1



    Loop

    GroupScore=k

End Function

查看解析
3、根据某场馆一天中每位参观者的进馆和出馆时间，可统计该场馆当天人流量的分布情况。每个人进、出馆的时间用一个长度为11的字符串表示，例如“08：05-08：45”表示进馆时间为8点5分，出馆时间为8点45分。现要求统计当天馆内人数超过指定人数的总时长。
根据上述要求编写VB程序，功能如下：读取n个人进，出馆的时间，显示在列表框List1中。程序运行时，在文本框Text1中输入指定人数，单击“统计”按钮Command1，在标签Label1中显示馆内人数超过指定人数的总时长。程序运行界面如图所示.

(1)、在VB表达式Val（Text1.Text）中，Val、Text1、Text依次表示（单选，填字母：A .方法名、属性名、事件名/B .函数名、对象名、方法名/C .函数名、对象名、属性名）。

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

Dim d（1 To n）As String，a（1 To 2 * n）As String

Private Sub Form_Load( )

    ‘读取n个人进、出馆的时间，存入数组d并显示在列表框List1中，代码略

End Sub

Private Sub Command 1_ Click( )

    Dim i As Integer，j As Integer，k As Integer，sp As Integer

    Dim t As Integer，cnt As Integer，mts As Integer，sum As Integer

    Dim s As String

    ‘提取每个人的进、出馆时间，分别加上IN、OUT标记后存入数组a

    For i = 1 To n

        a（i）=Mid（d（i），1，5）+“IN”

        = Mid（d（i），7，5）+“OUT”

    Next i

    For i = 1 To 2 * n-1   ‘对数组元素a（1）到a（2*n）从小到大排序



        For j = i To 2 * n-1

            If a（j） < a（k） Then k = j

        Next j

        s = a（i）：a（i） = a（k）：a（k）=s

    Next i

    sp =Val（Text1.Text）

    t=-1：cnt=0：sum=0

    For i = 1 To 2 * n

        mts=Val（Mid（a（i），1，2））*60+Val（Mid（a（i），4，2））

        If Mid（a（i），6，2）=“IN” Then cnt = cnt + 1 Else

        If cnt > sp Then

            If t = -1 Then t = mts

        ElseIf t > -1 Then



            t=-1

        End If

    Next i

    Label1.Caption = “超过指定人数的总时长：”+Sir（sum）+“分钟”

End Sub

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

查看解析
4、使用Flash软件创作“绿水青山”多媒体作品，部分编辑界面如下图所示。

请回答下列问题：

(1)、在创作之前进行了作品设计，下列说法正确的是（多选，填字母）。

A、考虑作品创作及运行需要的硬件和软件，属于作品的应用需求分析 B、考虑作品的用户情况和作品效益，属于作品的创作需求分析 C、将作品划分为片头，主交互界面、片尾等组成部分，属于系统结构设计 D、描述作品每个场景的展示内容及呈现方式，属于制订脚本大纲 E、制订处理各种多媒体素材的方案，属于媒体元素分解

(2)、测试影片时，动画播放到当前场景第60帧自动停止，则“按钮”图层第60帧的动作脚本是（单选，填字母：A .stop（60）；/B .stop（）；），单击第60帧中的“重播”按钮实现从该帧跳转到当前场景第1帧并播放，则该按钮实例上添加的动作脚本是on（release）||（单选，填字母：A .play（）；/B .gotoAndPlay（1）；）。

(3)、“文字”图层第15帧中仅有的对象云朵为形状，该帧已设置形状补间。测试场景时，第15帧到第30帧没有实现从云朵渐变为“绿水青山”的形状补间效果，原因是。

(4)、“小船”图层中小船都是“船”元件的实例。为了使小船在测试场景时从第41帧到第60帧在舞台上消失，其他动画效果保持不变，下列操作方法可行的是（多选，填字母）。

A、将该图层移动到“背景”图层下方 B、选中该图层第41帧到第60帧执行“删除帧”操作 C、选中该图层第41帧执行“清除帧”操作 D、选中该图层第41帧执行“插入空白关键帧”操作 E、选中该图层第41帧执行“插入关键帧”操作，并将该帧中小船实例的Alpha值设为0%

查看解析
5、收集某中学两个班级体质健康测试数据，并对部分项目用Excel软件进行数据处理，如图a所示。

请回答下列问题：

(1)、区域G3：G82的数据是通过公式计算得到的，在G3单元格中输入公式，再使用自动填充功能完成区域G4：G82的计算。（提示：体重指数=体重/身高² ，单位：千克/米²）

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

A、更新C列身高数据，G列体重指数的值会随之改变 B、为了将女生身高最高的数据显示在当前工作表第3行，可选择身高为主要关键字、性别为次要关键字均按降序排序 C、为了显示男生1000/800米得分大于85的数据，可先对“性别”进行筛选，选择的值为“男”，再对“1000/800米得分”进行筛选，条件为大于85 D、为了显示女生肺活量得分最高的3位学生数据，可先对“性别”进行筛选，选择的值为“女”，再对“肺活量得分”进行筛选，选择“10个最大的值”并显示最大的3项

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

查看解析
6、如下VB程序段实现对数组元素a（1）到a（10）从小到大排序。
i=1

Do While i<10

k=i：i=10

For j=10 To k + 1 Step -1

If a（j）<a（j-1） Then

t=a（j）：a（j）=a（j-1）：a（j-1）=1

①

End If

Next j

Loop

则代码中①处的语句可为（）

A、i=i+1 B、i=j+1 C、i=k-1 D、i=j

查看解析
7、有如下VB程序段：
a（1）=“ABC”：a（2）=“DEF”：a（3）=“GHI”

s1=“31，12，23，33”：s2=“”

For i = 1 To Len（s1）

ch = Mid（s1，i，1）

If ch < > “，” Then

i=i+1

p=Val（Mid（s1，i，1））

s2=s2+Mid（a（p），Val（ch），1）

End If

Next i

执行该程序段后，变量s2的值是（）

A、“CDHI” B、“GBFI” C、“CDH” D、“GBF”

查看解析
8、某对分查找算法的VB程序段如下：
i=1：j=30

m=（i+j）\2

Do While i < = j And key < > a（m）

If key >a（m） Then i = m+1 Else j = m-1

m=（i+j）\2 ①

Loop

数组元素a（1）到a（30）各不相同且按升序排列，若查找键key与a（9）相等，执行该程序段，①处语句的执行次数是（）

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

查看解析
9、有百位和十位未知的5位整数“22**6，能被37或67整除。以下VB程序段的功能是：在满足条件的所有数中，将最大一个5位数的百位和十位依次显示在文本框Text1中。
i=100：flag=False

Do While i>0 And Not flag



Loop

Text1. Text = Str（i\10）+Str（i Mod 10）

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

①j=22006+i*10    ②i=i-1 ③If（j Mod 37）*（j Mod 67）=0 Then flag = True

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

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

查看解析
10、某算法的部分流程图如图所示。执行这部分流程，若输入n的值为20，则输出a，b的值分别是（）

A、12，10 B、10，9 C、9，15 D、9，10

查看解析
11、VB表达式-3^2+14\4*3的值是（）

A、-8 B、0 C、10 D、18

查看解析
12、一幅未经压缩的2048×1536像素、24位色BMP图像，要将其存储容量减少到约1.5MB，在不改变其他参数的前提下，可调整图像大小、颜色分别为（）

A、1024×768像素、16色 B、1024×768像素、16位色 C、512×384像素、256色 D、512×384像素、24位色

查看解析
13、用Photoshop软件制作“春来了”作品，部分编辑界面如图所示。下列说法错误的是（）

A、“背景”图层的不透明度不可以更改为50% B、“花朵”图层的名称可更改为“郁金香” C、“来了”图层中的文字可用橡皮擦工具直接擦除 D、对“蝴蝶”图层执行“复制图层”操作，可产生一个“蝴蝶副本”图层

查看解析
14、下列有关信息编码的说法，正确的是（）

A、十六进制数82H与十进制数82的值相等 B、根据GB2312-80标准，“信息”两字的内码共占2个字节 C、已知大写字母“X”的ASCII码值为58H，则大写字母“Z”的ASCII码值是60H D、某7位二进制数的最高位为1，将其转换为十进制数后的值大于等于64

查看解析
15、使用Access软件编辑某班级图书管理数据库，该数据库当前仅包含“班级藏书”一个数据表，部分界面如图所示。

下列说法正确的是（）

A、该数据库中不可以创建一个表名为“借阅人”的数据表 B、“收藏日期”字段的数据类型是“日期/时间” C、可以将“班级藏书”数据表导出为Excel文件 D、若添加一条新记录，则该记录中“书籍编号”字段的值为2

查看解析
16、下列有关网页与浏览器的说法，正确的是（）

A、HTTP协议用于浏览器与Web服务器之间的信息传输 B、收藏夹中的网址可以重命名，但不能被删除 C、在IE浏览器中，保存一个网页不可能得到多个文件 D、使用不同的搜索引擎搜索同一关键词，搜索的结果是相同的

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

A、5G技术的出现使信息可以脱离载体传播 B、计算机处理信息是通过执行程序完成的 C、智能处理得到的信息都是真实、可信的 D、当今社会信息时时处处都有，因而不再是人类的重要资源

查看解析
18、某物品柜有5层，每层有10个格子，每个格子只能放一个物品。第1层格子编号依次为1到10，第2层格子编号依次为11到20，依此类推。有9组物品（组号1~9），每组有2到8个物品，物品总数不超过50个。将9组物品按组号由小到大依次放入柜中，放置方式有两种：
1）整体放置。按格子编号由小到大的次序查找第一个可放置该组全部物品的空区域（空区域是指从某个空格子开始的同层连续的所有空格子），若找到，则在该空区域居中、连续放置该组全部物品，如图a所示。

2）零散放置。若所有空区域格子数都小于该组物品数，则将该组每个物品依次放置在当前编号最小的空格子中，如图b所示。

编写VB程序，模拟物品放置。运行程序，在列表框List1中显示每组物品的组号和数量，单击“放置”按钮Command1，在列表框List2中显示每组物品放置结果。程序运行界面如图c所示。

图c

(1)、若第1、第2组的物品数分别为6和2，则放置第2组物品的格子编号依次为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Constm ＝ 50     'm表示物品柜的格子数

Const w ＝ 10    'w表示物品柜每层的格子数

Const n ＝ 9    'n表示物品的组数

'f（i）存储第i个格子开始的同层连续的所有空格子数。f（i）为0表示第i个格子不是空格子

Dim f（m）As Integer

Dim a（n）As Integer

Private Sub Form_Load( )

'读取各组物品的个数依次存入数组a，并在List1中显示

'代码略

End Sub

Function getpos（r As Integer As Integer

'按格子编号从小到大的次序，查找空格子数≥r的第一个空区域

'若找到，返回该空区域的起始编号，否则返回 -1

'代码略

End Function

Private Sub Command1_Click( )

    Dim i As Integer，j As Integer， k As Integer，p As Integer，v As Integer

    Dim s As String

    For i ＝ 1 To m

        f（i）＝ w -（i -1）Mod w     'w为10，表示每层的格子数

    Next i

    v ＝ 1

    For i ＝ 1 To n

    s ＝ ""

    p ＝

    If p ＝ - 1 Then

        j ＝ 1

        Do While j ＜＝ a（i）

            If f（v）＜＞ 0 Then

                s ＝ s ＋ Str（v）

                f（v）＝

                j ＝ j ＋ 1

            End If



        Loop

    Else

        k ＝（f（p）- a（i）） \ 2

        For j ＝ k To 1 Step - 1

            f（p）＝ j

            p ＝ p ＋ 1

        Next j

        For j ＝

            f（j）＝ 0

            s ＝ s ＋ Str（j）

        Next j

    End If

    List2. AddItem "第" ＋ Str（i）＋ "组：" ＋ s

    Next i

End Sub

查看解析
19、根据申请人的QA和QB值，从m个申请人中挑选2人组队参加某挑战赛。条件一是2人的QA值都必须大于指定参数h；条件二是2人的QA值之差（较大值减较小值）小于h。在满足上述两个条件的所有2人组合中，挑选QB值之和最大的一个组合。（QA、QB和h的值均为正整数）
编写VB程序，实现上述挑选功能。运行程序，在文本框Text1中输入参数h后，单击“挑选”按钮Command1，在列表框List1中按QA值降序显示满足条件一的申请人信息，最后在标签Label1中显示组队结果。程序运行界面如图所示。

请回答下列问题：

(1)、若要清空列表框List1，能实现该功能的语句是（单选，填字母：A .List1. Caption ＝ "" / B .List1.Text ＝ "" / C .List1. Clear）。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const m ＝ 20          'm表示申请人个数

Dim id（m）As Integer, qa（m）As Integer, qb（m）As Integer

Private Sub Command1_Click( )

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

    Dim h As Integer, n As Integer       '变量n存储满足条件一的申请人个数

    Dim s As String

    '读取全部申请人的编号、QA和QB值，分别存入数组id、qa和qb，代码略

    h ＝ Val（Text1. Text）：n ＝ m

    For i ＝ 1 To m — 1

        k ＝ i

        For j ＝ i ＋ 1 To m

            If qa（j）＞ qa（k）Then k ＝ j

        Next j

        If Then

            If k ＜＞ i Then

                t ＝ qa（i）：qa（i）＝ qa（k）：qa（k）＝ t

                t ＝ qb（i）：qb（i）＝ qb（k）：qb（k）＝ t

                t ＝ id（i）：id（i）＝ id（k）：id（k）＝ t

            End If

        Else

            n ＝

            Exit For      'Exit For表示退出循环

        End If

    Next i

    '满足条件一的申请人信息显示在列表框Listl中，代码略

    max ＝ 0：s ＝ “没有满足条件的组合”

    '在满足条件的组合中，寻找QB值之和最大的组合，若有并列，只保留第一个

    For i ＝ n To 2 Step - 1

        j ＝ i - 1

            Do While

                If qb（i）＋ qb（j）＞ max Then

                    s ＝ "组队结果：" ＋ Str（id（i））＋ "号，" ＋ Str（id（j））＋ "号"



            End If

            j ＝ j - 1

        Loop

    Next i

    Label1. Caption ＝ s

End Sub

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

查看解析
20、小明制作主题为“自然风光”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：

(1)、处理图像的部分界面如图a所示。下列说法正确的有（多选，填字母）。

图a

A、将“背景.psd”文件存储为BMP格式后，BMP文件包含“山脉副本”图层的内容 B、能将“天空”图层移动到“背景”图层的下方 C、将“白云”图层的不透明度改为40%，会影响图像的呈现效果 D、可复制“山脉”图层的图层样式并粘贴到“树林”图层 E、将“图像大小”改为550×400像素后，所有图层中内容的大小均发生变化

(2)、制作动画作品的部分界面如图b所示。在“控制”图层的第帧插入关键帧后，测试场景，该图层的声音在场景动画播放两秒后停止播放。由此可见，“控制”图层中声音的同步属性为（选填：事件/开始/数据流）。

图b

(3)、在“控制”图层的第60帧上添加了动作脚本“stop( )”，该帧中的“海洋”按钮实例上添加的动作脚本是“on（release）{gotoAndStop（“海洋”，1）；play( )；}”。将该按钮实例上的动作脚本：替换为（多选，填字母）后，按钮实现的交互效果不变。

A、on（release）{play( )；} B、on（release）{play（“海洋”，1）；} C、on（release）﹛gotoAndPlay（1）；） D、on（release）﹛gotoAndPlay（“海洋”，1）；}

(4)、“蝴蝶”图层中的蝴蝶是由“蝴蝶飞舞”元件所生成的实例，该元件部分编辑界面如图c所示，各关键帧中内容均为形状，实现了蝴蝶翅膀扇动一次的动画效果。测试场景时，动画中蝴蝶的翅膀仅扇动了一次，可能的原因是。

图c

查看解析

上一页 820 821 822 823 824 下一页跳转