相关试卷
-
1、某会场每天会收到众多举办活动的申请。现需对活动申请进行统筹安排，以确保会场在同一时间内只安排一个活动且每天安排尽可能多的活动。具体规定如下：
●对各个活动按结束时间先后进行升序排序，若结束时间相同，按开始时间先后升序排序。
●先安排结束时间最早的活动，依次考虑未安排的活动，如果和已安排的活动没有时间冲突，则予以安排；否则，不予安排。
小明为此编写了VB程序，功能如下：在列表框List1读取活动编号、活动时间（开始时间-结束时间）。按编号依次显示。单击“统筹安排”按钮Command1，对申请的活动按规定进行排序，并在列表框List2中输出当天能安排的活动编号、活动时间和数量。程序运行界面如图所示：
(1)、某天收到8个活动申请，各活动时间（开始时间-结束时间）分别为“07-12，10-13，14-20，09-12， 12-15，09-11，10-12，08-10”。根据上述规定，当天最多能安排个活动。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim a（1 To 100）As Integer， b（1 To 100）As Integer， c（1 To 100）As Integer
Dim m As Integer
Private Sub Form_Load( )
'从数据库中读取活动编号、开始时间和结束时间，分别存储在数组c、a、b中，并在列表框list1中显示；统计收到的活动申请数量，存储在变量m中
'代码略
End Sub
Private Sub Command1_ Click( )
Dim i As Integer，j As Integer，k As Integer
Dim temp As Integer，n As Integer， last As Integer
'对各个活动按时间进行排序
For i=1 To m-1
k=i
For j=i+ 1 To m
If b（c（j）） < b（c（k）） Then
k=j
ElselIf Then
k=j
End If
Next j
If k<> I Then
temp = c（k）：e（k） = c（i）： c（i）=temp
End If
Next i
last = b（c(1)）
'CStr（n）将n转换成字符串并去除字符串前空格
List2.AddItem " "+ adj（（c（1）），4）+ CStr（a（c(1)））+ "-" + CStrb（c（1）））
For i= 2 To m
If a（c（i）） >= last Then
List2.AddItem " "+ adj（（c（i）），4）+ CStr（a（c(i)））+ "-" + CStrb（c（i）））
n=n+ 1
End If
Next i
List2.AddItem “最多能安排" & CStr（n）& "个活动”
End Sub
Function adj（a A s String， b A s Integer）
'将字符串对齐输出，代码略
End Function
-
2、编写“数对查询”程序，实现如下功能：生成11个随机整数存入数组，并在标签Label1中显示。在文本框Text1中输入一个正整数，单击“搜索”按钮Command1，在数组中查找和为该正整数的两个数，并在列表框List1中输出查询结果。程序运行界面如图所示：
实现上述功能的VB程序如下：
Const n=11
Dimd（1 To n）As Iteger
Private Sub Form_ Load( )
'生成n个随机整数存入数组d，并在Label1中显示，代码略
End Sub
Private Sub Command1_Click( )
Dim sum As Integer， L As Integer， R As Integer， c As Integer
①
c=0
For L=1 To n-1
R=n
Do While L< R
If ② Then
List1.Addtcem Str（d（L））& " " & Str（d（R））
c=c+1
Exit Do 'Exit Do表示退出循环
Else
End If
Loop
Next L
List.Addtem "找到和为" "& Str（sum）& "的数对共" & Str（c）&"组"
End Sub
请回答下列问题：
(1)、在设计程序界面时，要修改文本框Textl中文字的字体大小，可修改文本框的属性（单选，填字母： A .Text/B .Width/C .Font ）。(2)、请在划线处填入合适的代码。① ②
(3)、程序中加框处代码有错，请改正。(4)、根据程序，若文本框Text1中输入内容为28，则能找到满足条件的数对组数为。 -
3、使用Flash软件创作“大暑节气”多媒体作品，如图a所示。请回答下列问题：
(1)、在制作作品前，先进行了相应的分析和规划。下列说法正确的是 （多选，填字母）。A、多媒体作品设计的一般过程包括需求分析、规划设计、脚本编写 B、将作品的主题确定为大暑节气，属于应用需求分析 C、功能模块设计包括描述“大暑节气"作品的整个组成部分、工作流程和主要界面 D、将所需的原始素材（如蜻蜓图像、背景音乐等）列成表格，确定获取素材的方式并分类登记，属于脚本编写环节(2)、如图a所示，“蜻蜓”图层创建了“蜻蜓"摆动翅膀飞行并经过不同荷叶的动画，则该动画类型为 ， （选填：动画补间/形状补间）。(3)、测试场景时，“简介”图层的内容播放到后面消失了，为了使该图层第1帧内容延续至本场景动画结束，正确的操作是。(4)、“播放”按钮的部分编辑界面如图b所示。小王制作“播放”按钮后发现该按钮不能响应鼠标事件。下列选项中可以让该按钮响应鼠标事件的操作是 （单选，填字母）。
①选中“图形”图层“点击”帧执行“删除帧”操作
②选中“图形”图层“按下”帧执行“清除关键帧”操作
③选中“文字”图层“点击” 帧执行“插入帧”操作
④选中“图形”图层“指针经过”帧执行“删除帧"操作
A、①②③ B、①③① C、②③④ D、①②④(5)、测试影片时，单击当前场景中的“播放”按钮，停止所有音乐的播放，同时影片跳转到“习俗”场景第1帧并开始播放，则“播放”按钮的动作脚本为on（release）{} 。 -
4、小明利用Excel统计某校高一学生体质健康抽测数据，如图a所示：
图a
(1)、在K2单元格中利用AVERAGEIF函数计算女生“50米”测试平均分，并利用自动填充功能完成区域L2：N2的数据计算，则K2单元格中的公式是（提示：AVERAGEIF函数用来返回某个区域内满足给定条件的所有单元格的平均值。如：*=AVERAGEIF（C2：C41，“男”，D2：D41）"表示男生50米测试成绩的平均分）。(2)、小明要找出总分最高的男生（若存在符合条件的多个学生，则全部选取），下列方法一定可行的是 （单选，填字母）。A、以“总分”为关键字进行降序排序，选取排在最前面学生 B、以“性别”为男、“总分”为最大1项进行筛选，选取筛选出的全部学生 C、以“性别”为男进行筛选，“总分”为关键字进行降序排序，选取排在最前面学生(3)、根据图a中数据制作的图表如图b所示。创建该图表的数据区域为；分析图表，高一男生整体较为薄弱的体测项目为（选填：50米/立定跳远/引体向上/长跑）。
-
5、对数组a中的n个元素进行去重（去掉数组中重复元素），实现该功能的VB程序段如下：
i= 1：length = n
Do While i < length
j=i+ 1
Do While j <= length
If a（i） = a（j） Then
For m=j+ 1 To length
Next m
length = length- 1
Else
End If
Loop
i=i+1
Loop
输出a（1）至a（lengh）的值，代码略
上述程序段两个方框处的语句分别为（ ）
A、①a（m-1）=a（m） ②j=j+ 1 B、①a（m）= a（m+ 1） ②j=j+ 1 C、①a（m-1）=a（m） ②i=i+ 1 D、①a（m）= a（m+1） ②i=i+ 1 -
6、有如下VB程序段：
m= Int（Rnd*3+1）*2
For i=1 To 6-m
For j=6 To i+ 1 Step-1
If a（j）<a（j- 1）Then t= a（j）： a（j）= a（j- 1）；a（j- 1）=t
Next j
Next i
数组元素a(1)到a(6)的值依次为"98，67，3， 81，38，21"， 执行该程序段后，a(1)~a(6)各元素值不可能是（ ）
A、3，98，67，21，81，38 B、3，21，98，67，38，81 C、3，21，38，67，98，81 D、98，67，3，81，38，21 -
7、有如下VB程序段：
s = Text1.Text
ch = Mid（s，1，1）：Max= 0
For i=2 To Len（s）
If Mid（s，i，1）>= Mid（s，i-1，1） Then
ch=ch+Mid（s，i，1）
If Len（ch）> Max Then Max = Len（ch）： ans = ch
Else
ch = Mid（s，i，1）
End If
Next i
在文本框Text1中输入“Access2010*”。执行该程序段后，变量ans的值为（ ）
A、“Access” B、“2010” C、“Acc” D、“ces” -
8、有如下VB程序段：
temp = a(1)
For i=2 To 10
Next i
数组元素a(1)到a(10)的值依次为“36，48，25，32，28，20，30，52，15，8”。程序段中加框处语句执行5次后，变量temp的值为（ ）
A、25 B、28 C、20 D、8 -
9、某算法的部分流程图如图所示，执行这部分流程后，则输出s的值为（ ）
A、50 B、55 C、100 D、101 -
10、下列Visual Basic表达式的值为True的是（ ）A、Not5>3 B、7\3*2=4 C、Len（"tz"）= Len（"台州"） D、Mid（"tzedu"，2，3)= "ed"
-
11、利用Goldwave处理音频素材，部分界面如图所示。下列说法正确的是（ ）
A、单击“剪裁”按钮后，音频文件时长变为10秒 B、单击“删除”按钮后直接保存，音频文件的大小变为原来的3/4 C、在当前状态下直接保存，该文件存储容量约为6.73MB D、在当前状态下插入5秒静音，右声道10秒位置出现时长5秒的“静音” -
12、使用Photoshop软件编辑图像，部分操作界面如图所示。下列说法正确的是（ ）
A、当前图像采用RGB模式，每个像素点的存储空间为8位 B、交换“鲜花”和“母女”图层顺序，会影响作品的呈现效果 C、可使用“自由变换”命令修改“母亲节”图层中的文字大小 D、将作品存储为JPEG格式文件，“妈妈我爱你”图层中的“投影”效果依然可见 -
13、利用Access创建数据表，部分界面如图所示。下列说法不正确的是（ ）
A、该表共有6个字段，表名为“充卡记录” B、在当前视图中可以对记录进行添加、编辑和删除 C、“400" 可以是“充卡金额”字段的有效输入值 D、存储一个“性别”字段值，需要的存储空间为1bit -
14、十进制正整数n转换为2位十六进制数，该十六进制数末位为“F”。下列说法正确的是（ ）A、无法确定n是奇数还是偶数 B、十六进制数末位“F”转换成十进制数为n\l6 C、十进制数n+1转换得到的二进制数一定不超过8位 D、十进制数n+1转换为十六进制，该十六进制数末位为“0”
-
15、下列有关信息和信息技术的说法，不正确的是（ ）A、信息是指数据、信号、消息中所包含的意义 B、信息经过加工处理后可能具备更高的使用价值 C、物联网、大数据、云计算等都是当前信息技术应用的热点 D、信息技术是指利用计算机对信息进行加工和处理的技术
-
16、某校进行模拟考，现有25名学生的语数英三门课的成绩（按百分制）存储在数据库student.accdb中的数据表cj中，现取出各学生成绩存储在cj( )数组中，成绩存放如下：
运行程序，点击“数据导入”按钮后，在列表框list1中显示所有数据。点击“排序"按钮，按总分从高到低计算名次（成绩相同的名次相同），并按排名先后在列表框list2中显示，数据要求对齐。程序运行界面如图16-1所示：
(1)、观察程序及界面，可知“排序”按钮的对象名为。(2)、实现上述程序功能的VB程序段如下，请在划线出填入合适的代码。Dim cj（1 To 100） As Integer
Dim b（1 To 301） As Integer '分数为i的人数存入b（i）
Private Sub Cmdl_ Click( )
Dim conn As New ADODB.Connection
Dim rs As New ADODB．Recordset
conn.ConnectionString = "Provider =Microsoft.ACE.OLEDB.12.0；Data Source= " &App.Path& "\studentaccdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT*FROM cj"
n =1
Do While Not rs.EOF
cj（n）= rs.Fields（"语文"）：cj（n+1） = rs.Fields（"数学"）
cj（n+2） = rs.Fields（"英语"）：cj（n+3） = cj（n）+cj（n+1）+cj（n+3）
rs.MoveNext
Loop
rs.Close：conn.Close
'此处代码略，用来实现将数据在list1中输出
End Sub
Private Sub paixu_ Click( )
Dim mc As Integer
'预处理求b数组的值
For j=4 To 100 Step 4
Next j
'以下程序用于计算名次并按要求对齐输出
mc=1：b（301)=0
List2.AddItem"语文"+"数学"+"英语"+"总分"+"名次
List2.AddItem "------------------------------------------------"
For i=300 To 1 Step -1
If b（i） <> 0 Then
For c=4 To 100 Step 4
If cj（c） = i Then
List2.AddItem
End If
Next c
End If
Next i
End Sub
'以下函数输出时数据s时，不足7位末尾补空格
Function gs（s As Integer） As String
Dim cd As String
ed = CStr（s）
For i=1 To 7 -Len（cd）
cd= cd+" "
Next i
gs = cd
End Function
-
17、出列顺序有10个人，编号分别为1，2，3……10按顺时针方向围坐成一圈，每次随机产生一个数m，m的范围为[3，7]的随机奇数，从第10个人开始逆时针报数，当报到m的人出列，圈内剩下的人，重新产生随机数m，重新开始报数，如此下去，直到所有人出列为止。如：若每次参数的随机数m都为5，从第10个开始报数，依次出列的为6-1-5-9-2-3-10-7-4-8
小李编写了如下程序求解10个人的出列顺序。程序运行界面如图15-1所示，点击求解按钮后，在Text1中输出出列顺序，在Text2中显示随机数据的值。
(1)、在划线出填写正确的代码Private Sub Command1 _Click( )
Dim ld（1 To 10） As Boolean， i As Integer， j As Integer
Dim rs As Integer， C As Integer， m As Integer
Randomize
For i=1 To 10
ld（i） = True ‘数组元素为True表示第i人当前在队列中
Next i
c=0：rs=10
m =Int（Rnd*3）*2+3
Do While rs <> 0
If ld（i） = True Then
If c=m Then
ld（i） = False
Text1.Text = Text1.Text + Str（i）
c=0
End If
End If
i =i-1
If Then i=10
Loop
End Sub
(2)、加框处两语句互换下顺序，会不会对出列顺序产生影响（选填：会/不会）。 -
18、小灰制作了有关“公筷公勺”为主题的多媒体作品，请回答下列问题：(1)、使用Photoshop处理如图14-1所示，下列说法中正确的是（多选 ，填写字母。A .可将“人物”图层的图层样式拷贝到“病毒”图层。/B .背景图层可以设置滤镜，也可以使用像皮擦。/C .“文明用餐使用公筷”图层不可以使用自由变换更改文字大小，但可以用文字工具更改文字大小。/D .“减少冠状病毒传染”图层设置滤镜必须栅格化图层，但可以用油漆简工具更改文字颜色。/E .“新冠”图层可以移动到圆点图层上方，背景图层不能移动位置。）
(2)、如图14-2所示，在“勺子”图层最后一帧（80 帧）设置了gotoandpaly(1)；的动作命令，“声音”图层的声音时长为40s，要求测试影片时（不点击按钮情况下）声音能完整的播放，且不会重复产生新的声音，则应将声音同步设为（数据流/事件/开始）
(3)、“勺子”图层实现了元件实例“勺子和筷子”的淡入动画，部分界面如图14- 2所示，则该补间类型为（选填：动画补间/形状补间/逐帧动画）。(4)、“勺子”图层的动画效果是在第31帧至60帧，若要使“勺子”图层的动画从第1帧开始，到60帧结束，则可执行的操作。(5)、测试影片时，点击“按钮”图层中的按钮时，声音停止播放并跳转到“主场景”的第6帧暂停，则此按钮的动作脚本为。 -
19、小豆制作了如图13-1所示的家居用品分类销售统计表，数据情况如图13-1所示。请回答下列问题：
(1)、图13-1中的销售占比是各类销售金额占合计的比例。E4：E10的公式是从E3单元格自动填充功能得出的，可知E3单元格公式为。(2)、要对图13-1中的数据按“销售金额”降序排序，则选择的数据区域为。(3)、根据图13-1中的数据制作了如图13-2的图表，则图表的数据区域是。
(4)、若在操作过程中对D6单元进行了如图13-3所示的操作，则E6单元格的数据（单选，填字母。A .变大 \ B .变小 \ C .#REF！ \ D .#DIV/O！ ）
-
20、某VB程序段如下图所示，执行程序段后，文本框Text2中显示的值不可能是（ ）
a(1)=0: a(2)=3: a(3)= 5: a(4)=7
a(5)= 9: a(6)= 11: a(7)= 13: a(8)= 15
a(9)= 17: a(10)= 19
key= Int(Rnd*5)*2+5
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
End If
Loop
Text1.Text= s
A、9 3 5 7 B、9 3 5 C、9 15 11 13 D、9 15 11