-
1、某校要举行国际象棋比赛，计划组织k场对弈。每个人最多参加2场对弈，最少参加0场对弈。每个人都有一个与其他人不相同的等级(用一个正整数来表示)。在对弈中，等级高的人用黑色的棋子，等级低的人用白色的棋子。每个人最多只能用一次黑色的棋子和一次白色的棋子。为增加比赛的可观度，观众希望k场对弈中双方的等级差的总和最小。
比如有7个选手，他们的等级分别是30，17，26，41，19，38，18，要进行3场比赛。最好的安排是选手2对选手7，选手7对选手5，选手6对选手4。此时等级差的总和等于(18-17)+(19-18)+(41-38)=5达到最小。
窗体form1的运行界面如下图所示，用户在文本框Text1中输入各位选手的等级(以逗号分隔)，在文本框Text2中输人要对弈的场数k，单击计算按钮Commmand1，在文本框Text3中显示最小等级差总和。程序运行界面如图所示。
(1)、若要使得的在程序启动时文本框text1中内容自动清空，可在以下哪个事件处理过程中编写代码实现 (选填)A、form1_load() B、Text1 _Change() C、form_load() D、text1_load()(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Dim a(0 To 1000) As Integer
Dim b(0 To 1000) As Integer
Private Sub Command1_ Click()
Sum=0
k = Val(Text2. Text)
s =Text1. Text
cnt =1
For i=1 To Len(s)
c=mid(s, i, 1)
If c="," Then cnt=cnt+1 Else
Next i
For i=1 To cnt-1
For j=1 To cnt-i
If Then
t = a(j): a(j) = a(j+ 1): a(j+1)= t
End If
Next j
Next i
'计算出各等级选手之间差值
For i=1To cnt- 1
b(i)=a(i+1)-a(i)
Next i
For i=1 To k
Min=i
If b(j) < b(Min) Then Min = j
Next j
Sum = Sum + b(Min)
Next i
Text3. Text = Str(Sum)
End Sub
(3)、加框处的程序代码有错，应改为。 -
2、制作“香浓奶茶"多媒体广告，首先在Photoshop软件中制作效果图，然后在Flash软件中制作动画，相关界面如下所示，请回答以下问题。
(1)、如图a所示，在photoshop软件中制作广告效果图，其中“奶茶“的画面区域已经建立了选区，以下说法正确的是 。(多选，填字母)A、“标题”图层与“文字”图层设置了相同的图层样式 B、当前状态下，选中“背景”图层，可以直接为整个背景画面设置滤镜效果 C、当前状态下，无法使用“自由变换”命令修改“标题”图层的字体大小 D、“标题”图层与“奶茶”选区没有重叠部分，“投影”效果不可见 E、“奶茶”与“文字”图层锁定，无法使用“图像大小”命令调整图像 F、当前状态下，有4个图层可以设置滤镜效果(2)、根据制作脚本，“标题”图层要实现“标题文字从完全透明到完全显示，停留一段时间后再“淡出”的效果，则标题图层第1帧中的标题文字实例的Alpha属性值应设置为 ， 第1-20帧的补间类型为。(3)、测试影片，发现“标题”图层第48-80帧未能实现淡出效果，根据图b分析，其原因可能是。
(4)、结合图b，以下说法正确的是 (多选，填字母)A、“背景”图层第80帧执行“清除关键帧”操作可使背景画面从头到尾一直显示 B、“按钮"图层第1帧移至第80帧，按钮将在场景结束时才出现，不改变其它动画效果 C、“奶茶”图层的动画为“逐帧动画” D、“音乐”图层的声音同步属性设置为“数据流”或“事件”，播放效果无异 E、若将影片的帧频调整为10fps，声音的播放速度不会改变 F、“按钮”图层第80帧的动作脚本可能是on(press){stop()；}(5)、点击“新品上新”按钮，跳转到“new”场景第1帧播放，并停止音乐的播放，则在该按钮上设置的动作脚本为on(press){}。 -
3、某同学收集了1980-2021 年浙江省学校教师负担学生数相关信息，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
(1)、将D4单元格公式粘贴到G4单元格计算出中等学校学生总数，则G4单元格公式为。(2)、为了更加直观地比较2014-2021年高等学校“平均每个教师负担学生人数”的变化情况，建立如图b所示的图表。则生成该图表的数据区域是。
(3)、若要整理高等学校“平均每个教师负担学生人数”大于5.0的年份的信息，下列说法正确的是 (多选，填字母)。A、将表中A4：G45中数据，以列C为关键字降序排序，可自上而下选取C列中大于5.0的记录 B、对表格中C列数据进行筛选，在如图c搜索框中输入“>5.0” C、对表格中C列数据进行筛选，自定义筛选条件为“大于5.0” D、若在C列设置筛选条件“大于5.0”，图b所示的图表将发生变化 -
4、某对分查找算法的VB程序段如下：
Key = Val(Text1.Text)
c=0：i=1：j=10
Do While i<=j
m=(i+j)\2
c=c+1
If key >= a(m) Then i=m+1 Else j=m-1
Loop
Text2.Text = Str(c)
数组a(1)到a(10)的值依次为“10，15，15，25，27，28，33，35，36，56”，执行该程序段后，文本框Text2中显示的值为3，则key值可能是( )
A、10 B、15 C、28 D、36 -
5、有如下VB程序段：
i =1
Do While i<=5
If i=0 or a(i-1) >= a(i) Then
i=i+1
Else
t = a(i) : a(i) = a(i-1) : a(i-1) = t
i=i-1
End If
Loop
For i =0to5
List1.additem str(a(i))
Next i
数组元素a(0)到a(5)的值依次为“10，77，22，47，79，26”，该程序段运行后，数组元素a(4)的值为( )
A、10 B、77 C、22 D、47 -
6、有如下VB程序段：
i =1
Do While i<=5
a(i)= Int(Rnd*10)*2 + 1
If Not flag(a(i)) Then flag(a(i))=True
i= i + 1
Loop
已知数组flag各元素的初值为False，运行以上程序段程序，数组元素a(1)到a(5)的值可能为( )
A、3 9 16 15 11 B、5 7 9 7 13 C、9 3 7 1 15 D、9 17 5 21 1 -
7、有如下VB程序段：
s= "Jinhua2022": t="": i= 1
Do While i< Len(s)
c=Mid(s,i,1)：d=Mid(s,i+1,1)
If c <= d Then t=t+ c
Else t=t+d
i=i+2
Loop
Label1.Caption = t
执行该程序段后，标签Label1中显示的内容是( )
A、iha22 B、Jha02 C、Jna02 D、ihu22 -
8、某算法的部分流程图如第8题图所示。输出g的值是( )
A、-9 B、-3 C、18 D、63 -
9、若xy都是正整数且x mod y = 3，则下列表达式的值一定为True是( )A、x-y=3 B、x/y<x\y C、x>y D、xmod3=0
-
10、一段未经压缩的AVI格式无声视频参数为：每帧画面为1024*768像素、16位色，PAL制式(25fps) ，若视频文件为375MB，则该视频的时长约为( )A、2秒 B、8秒 C、10秒 D、15秒
-
11、使用GoldWave软件编辑某音频文件，部分界面如图所示。下列说法正确的是( )
A、当前声音文件采用Wave格式，是一种无损压缩音频格式 B、当前声音文件的存储容量约为6.4MB C、当前状态下，执行“删除”命令后右声道的第14~19 秒将出现静音 D、执行“插入静音”命令，当前状态下插入15秒静音，文件播放时有一段静音 -
12、用Access软件设计数据库，存储疫苗接种相关信息，其中已建好的“已接种人员信息"数据表用于存储如图所示的数据，其中“接种编号”的前4位表示年份。
接种编号
疫苗厂家
疫苗批号
接种日期
接种间隔
是否需要补种
2021 1201
北京生物
202008092
2021.11.12
10
是
2021 1202
北京生物
202008098
2021.12.21
15
否
2021 1203
北京生物
202008092
2021.12.10
20
否
……
……
……
……
……
……
下列关于“已接种人员信息”数据表的描述，正确的是( )
A、一个数据表就是一个数据库文件，该表文件名为“已接种人员信息.accdb” B、“接种编号”字段设置为“自动编号”类型最合适 C、“是否需要补种”字段的数据类型一定是“是/否” D、图中6个字段均可设置为“文本”类型 -
13、某十进制偶数n对应的二进制数据为x，下列说法正确的是( )A、n+1转换为二进制数后，位数可能比x多 B、nmod4的结果一定与x的最右侧两位等值 C、n转化为十六进制数最低位一定等于0 D、x中1的个数一定比0的个数多
-
14、下列关于网页和网络测览器的说法正确的是( )A、使用搜索引擎查询，也会搜索到一些虚假的信息，用户需要辨别真伪 B、网页文件可以使用记事本编辑，编辑后的网页必定是txt格式 C、保存网页时选择“网页，仅HTML(<*．htm； *．html)”不能保存超链接 D、浏览器与web服务器之间进行传输网页数据使用SMTP协议
-
15、很多学校开设了在线课程，老师通过网络与学生互动、直播上课。从信息和信息处理的角度分析，以下说法正确的是( )A、摄像头采集教师上课的实况，实现了“数模转换" B、老师可以同时给全班同学上网课，体现了信息可以共享的特性 C、网络直播授课可以脱离线下的“教室"，这说明了信息的传播可以脱离载体 D、网课平台会自动记录每个同学学习的时长并生成统计报表，这是一种人工智能技术
-
16、小明编写VB程序实现有限小数、纯循环小数、混循环小数转化成最简分数。三种类型的小数转化方法如下表所示：
类型
计算公式
结果
有限小数
格式
a. b
(a*x+b)/x
示例
3. 14
(3*10^ 2+14)/10 2
157/50
纯循环小数
格式
a. (b)
(a*(x-1)+b)/(x-1)
示例
3. (14)
(3*(10^ 2-1)+14)/(10^2-1)
311/99
混循环小数
格式
a.b(c)
(a*(t-1)*x+ (b*t+c-b))/((t-1)*x)
示例
3. 14(159)
(3*(10 3-1)*10 2+(14*10 3+159-14))/(10^ 3-1)*10^2)
20923/6660
说明: ()内的数字串表示循环节 x=10 Len(b) t=10' Len(c)
程序运行时，在文本框Text1中输入小数，单击“转化”按钮，输出对应的分数，界面如图所示。
(1)、在文本框中输入“0.0(6)”，转化成分数为。(2)、实现上述功能的部分VB程序如下，请在划线处填入合适代码。Private Sub Command1_ Click()
Dim s As String, xS As String, zS As String
Dim fz As Long, fm As Long
Dim i As Integer
Dim x As Integer, y As Integer
s = Text1.Text
i=1
Do While Mid(s, i, 1) <> "."
i=i+1
Loop
zs =
xs=Mid(s, i+1)
If not(f(xs)) Then
fm = power (Len(xs))
fz = val(zs) * fm + vas (xs)
Else
If Mid(xs, 1, 1) = "(" Then
xs = Mid(xs, 2, Len(xs) - 2)
fm = power(Len(xs)) - 1
fz = Val(zs) * fm + Val(xs) .
Else
x=0: y=0: i=1
Do While Mid(xs, i, 1) <> "("
i=i+1
Loop
x=i-1
y=Len(xs)-i-1
fm =
fz= Val (Mid(xs, 1, x)) * power(y)+Val (Mid(xs, i+1, y))-Val (Mid(xs, 1, x))
fz=Val(zs)*fm+fz
End If
End If
Label2. Caption = Str(fz / gcd(fz, fm)) + "/"+ Str(fm / gcd(fz, fm))
End Sub
Function gcd (ByVal m As Long, ByVal n As Long) As Long
Dim r As Long
Do While m Mod n<>0
r= m Mod n
m=n
n=r
Loop
End Function
Function f(s As String) As Boolean '循环节判断
'函数返回True代表循环小数，False 不是循环小数，代码略
End Function
Function power(x As Integer) As Long '返回10的x次方
'代码略
End Function
-
17、某玩具厂的生产流水线上有道工序，需要使用机械臂对n根长方体木块材料进行自动化排序。排序步骤为：从左起第一个木块开始向右寻找长度最短的，如果木块长度相同，则选择其中厚度较小的记录其位置R1 (不考虑长度及厚度均相同的情况)，然后对区间[1，R1]内的木块进行整体翻转。再从第二个木块向右继续寻找，并记录其位置R2，然后对区间[2，R2]的木块进行整体翻转……机械臂循环操作，直至排序完成。排序过程如图a所示，其中⑦的厚度小于⑤的厚度。
根据．上述要求设计VB程序，功能如下：在窗体加载时，读取木块长度和厚度数据，并显示在列表框List1中，单击“排序”按钮实现木块排序，结果显示在列表框List2中，程序运行界面如图b所示。
(1)、代码Private Sub Com1_ Click ()中的Com1_Click()属于 (单选，填字母)。A、对象名 B、事件名 C、类别名 D、事件处理过程名(2)、实现上述功能的VB代码如下，请在划线处填写合适的代码。Const n = 10
Dim cd(1 To n) As Single, hd(1 To n) As Single
Private Sub Form_ Load()
'通过数据库读取n根木块的长度数据存储到cd数组，厚度数据存储到hd数组，并将数据显示在列表框List1中，代码略
End Sub
Private Sub Com1_Click()
Dim L As Integer, R As Integer
Dim min As Integer
Dim i As Integer, j As Integer
Dim t1 As Single, t2 As Single
For i=1 To n-1
min=i
For j=i+1 To n
If
Then min= jNext j
R=min
'实现区间内木块的整体翻转
Do While L<R
t1 = cd(L)： cd(L) = cd(R)： cd(R) = t1
t2 = hd(L)： hd(L) = hd(R)： hd(R) = t2
L=L+1
Loop
Next i
List2. AddItem"长度(cm)"+""+"厚度(cm)"
For i =1 To n
List2. AddItem Str(cd(i)) +"" + Str(hd(i))
Next i
End Sub
(3)、程序中加框处代码有错，请改正。 -
18、小明制作主题为“快乐运动”的多媒体作品。首先使用Photoshop软件处理图像，然后使用Flash软件制作动画作品。请回答下列问题：(1)、处理图像的部分界面如图a所示。下列说法正确的有 (多选，填字母)。
A、可以复制“教学楼”图层的图层样式并粘贴至“背景”图层 B、将“绿植”图层移动到“教学楼”图层的下方，会影响图像的呈现效果 C、通过“画布大小”将图像由600×400像素改为800X400像素后，所有图层中的内容均会发生变化 D、将“背景.psd”文件存储为JPG格式后，JPG 文件不包含“纸飞机”图层的内容(2)、制作动画作品的部分界面如第图b所示，“按钮”图层中的“进入”按钮是由“进入”按钮元件创建的实例。测试影片时，当鼠标悬停在“进入”按钮上时，按钮中文字的颜色发生了改变，当单击鼠标时，发出“叮叮”的声音，由此可见，在“进入”按钮元件的(单选，填字母：A .弹起/ B .指针经过/ C .按下)帧中添加了声音，且声音的同步属性为(单选，填字母：A .事件/ B .数据流)。
(3)、要使“我运动”图层中的内容一直延续到第60帧，其他动画效果保持不变，应进行的操作是。(4)、在“人物”图层的第60帧上添加了动作脚本“stop( )；”，测试影片时，在任意时刻单击“进入”按钮，跳转到“main”场景第1帧并开始播放，则该按钮实例上的动作脚本可行的有 (多选，填字母)。A、on (release) {play( );} B、on(release) {play("main",1);} C、on(release) {gotoAndPlay("main",1);} D、on(release) {gotoAndStop(" main", 1); play();} -
19、小明收集了2020年浙江省各地市农、林、牧、渔业总产值的数据，并使用Excel软件对数据进行处理，如图所示，请回答下列问题：
(1)、表格第1行中的标题“浙江省各地市农、林、牧、渔业总产值(2020年)”可以在A1单元格中输入标题，合并区域后居中得到。(2)、在C4单元格中输入公式，使用自动填充功能完成C5：C14的计算，然后将C4中的公式复制到E4，G4和I4，并利用自动填充功能完成E5：E14，G5：G14，I5：I14的计算，则C4单元格中的公式是(提示： 农业产值占比=某市农业产值/全省农业产值之和)。(3)、对区域A3：J14进行相关数据分析，下列说法正确的是 (多选，填字母)。A、为了显示农业和林业产值均位居全省前三的地市，可分别对B列和D列进行筛选 B、已知J列数据是由J4单元格填充得到，若更改H14单元格的值，则不会影响J14单元格的值 C、对区域A3：J14数据以“牧业产值全省占比”为主要关键字降序排序，“丽水市”排在“台州市”前面 D、若要直观展示各地市农、林、牧、渔业总产值在全省所占的比例，可以选择饼图 -
20、某对分查找算法的VB程序段如下：
i =1：j= 8：n= 0：key= 83
Do While i<=j
n=n+1
m=(i+j)\2
If key > a(2 * m) Then j=m-1 Else i=m+1
Loop
Text1。Text = Str(a(2 * j - 1))
数组元素a(1)到a(16)的值依次为“6，90，3，85，5，83，2，83，4，83，8，80，7，77，1，70”，奇数位存储序号，偶数位存储成绩。执行该程序段后，下列说法正确的是( )
A、循环结束后i的值为5 B、变量m的值为4 C、变量n的值为5 D、Text1输出结果为4