相关试卷
-
1、查找峰值问题：随机生成n个正整数(假设n= 20，取值范围为0~ 100)，存储于数组a中，将这些数按顺序映射在坐标轴上，相邻的数用直线相连，构建了类似于“心电图”的折线：
编写VB程序统计所有的峰值(peak)、峰值数量(count)和最高点(high)。
实现上述功能的VB程序如下，请回答下列问题：
(1)、代码“List. AddItem Str( count)”中的AddItem是 (单选，填字母：A .对象名/B .属性/C .事件/D .方法)；(2)、加框处的代码有错误，请改正。Const n = 20
Dim a(1 To n) As Integer
Private Sub Form_ Load( )
'随机生成n个数，存储于数组a中，并输出在List1中。代码略。
End Sub
Private Sub Command1_ Click( )
Dim count As Integer
Dim high As Integer
Dim peak As Integer
Dim i As Integer, j As Integer
count= 0
if a(1)> a(2) then
count = 1
high=-1
i=1
Do While i< n-1
j=i+1
If a(j)>a (j-1) Then
Do While a(j)>a(j-1)
j=j+1
Loop
count =count+1
'①List2. AddItem“第”+Str(count) +“个峰值：”+ Str( peak)
If peak > high Then high = peak
'②Else
i =i+1
End If
Loop
List2. AddItem“共有：”+Str(count) +“个峰值”
List2. AddItem“最高点是：”+Str( high)
End if
End Sub
-
2、小闻创作“幸福一家”的多媒体作品。她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：(1)、使用Photoshop编辑图片时，如图a所示，若将作品存储为BMP格式文件时，不想在图像中显示文字“一家人”，下列操作可行的是： (多选，填字母：A .执行“拼合图像”命令/B .删除“一家人”图层/C .隐藏“一家人”图层/D .调整“人物”图层和“一一家人”图层顺序/E .将“一家人”图层的不透明度调整为0%)，再存储为BMP格式文件。
(2)、使用Flash软件编辑“幸福一家.fla”。“场景1’场景的部分制作界面如图b所示。
回答下列问题：
①如图b所示，库中不包含类型的元件
②如图b所示，“文字1”图层利用库中元件制作文字“过去的每一天里”淡入的动画，该动画类型是(选填，填字母：A .逐帧动画/ B .形状补间动画/C .动画补间动画)。
③已知“控制”图层中添加了“Replay”按钮实例，测试影片时该按钮最后才出现，若要按钮在动画播放过程中一直可见，下列操作可行的是(多选，填字母：A .将“控制”图层的第30帧移至第1帧/ B .删除“控制”图层的第1帧至第29帧/ C .选择“控制”图层的第1帧并执行“清除帧”/ D .选择“控制"图层的第1帧并执行“清除关键帧"/ E .将“控制”图层的第30帧执行“复制帧”，再选择第1帧执行“粘贴帧”)。
④测试影片时，单击“Replay”按钮，动画跳转到Load场景的第1帧并暂停播放，则该按钮上的动作脚本是
⑤小易通过操作得到一个名为“幸福一家.swf”的文件，则该文件是通过(填字母：A .文件另存为/B .测试影片/C .测试场景)操作得到的。
-
3、小明收集了2019年5月部分外国入境旅游人数相关数据，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：
(1)、表中“所占比例(%)”数据是用公式计算每个国家的合计人数占总计人数的比例，并使用函数ROUND得到的。选择I4单元格输入公式，然后用自动填充功能完成其他单元格的计算。则I4单元格中的公式为(单选，填字母：A .=ROUND(H4/ $ H $22，2)/B .= ROUND(H4/ $ H$22 * 100，2)/C .= ROUND(H4/H22 * 100，2)/D .ROUND( H4/G22 * 100，2))。(提示：函数ROUND (number， digits)对数值number按指定的位数digits进行保留小数位数)。(2)、小明要利用图中所给数据，制作一张各个地区的会议/商务”和“ 观光休闲”合计人数的对比柱形图表，他应选择的数据区域是(3)、小明想要找出亚洲地区观光休闲人数最多的国家，可以采取的方法是 -
4、有一个都是正整数的数组，分别计算相邻两个数的乘积并放在这两个数中间作为新的数组元素，然后按顺序输出，如原始数组为2、3、6,处理后按序输出为2、6、3、18、6。下列VB代码实现上述算法。
Dim a(1 To 19) As Integer
'生成a数组10个元素，代码略
Dim i As Integer, j As Integer
For i=1 To 9
For j= ①
a(j)=a(j-1)
Next j
a(j)= ②
Next i
For i=1 To 19
List2. AddItem Str(a(i))
Next i
上述程序中2处下划线应填入的程序代码是( )
①10+I To i*2+ 1 Step-1②10+i to 19③19 to 10+I step-1④a (2￥i)*a(2*i-1)⑤a(i)*a(i+1)
A、③④ B、②⑤ C、①④ D、①⑤ -
5、输入一个字母，生产一个回文字符串，如输入大写字母“E”，则产生从“A”开始的回文字母“ABCDED-CBA"；如输入“e”，则产生“abcdedcba”；实现该功能的VB程序段如下：
m= Text1. Text： s=" "
If m>= "a" And m<= "z" Then init= Asc("a")
If m>= "A" And m<= "Z" Then init= Asc("A")
n= Asc(m) - init +1
For i=1 To
If i <= n Then
s=s+
Else
s=s+
End If
Next i
Label2. Caption=s
上述程序中方框处可选语句为：
①12*n-1 ②2*n ③Chr(Asc(m)+i-n) ④Chr(init+2 * n- i- 1)
则(1)(2)(3)处语句依次是( )
A、①③④ B、①④③ C、②③④ D、②③④ -
6、有如下VB程序段：
For i=1 To 9 step 2
b(a(i) Mod 10) = b(a(i) Mod 10)+1
Next i
s =0
For i=0 To 9 step 3
s =s+ b(i)
Next i
数组b各元素初始值为0，数组元素a(1)到a(9)的值依次为“29，74，12，38，16，45，21，57，33”，则执行该程序段后，s的值为( )
A、5 B、4 C、3 D、2 -
7、有如下VB程序：
Dim c As Integer
Private Sub Form_ Load( )
c=0：Text1.Text=" "
End Sub
Private Sub Text1_ Change( )
If Val(Text1. Text) > 0 Then
Text1. Text = Str(Val(Text1. Text) \ 2)
c=c+1
End If
Text2. Text = Str(c)
End Sub
运行该程序，在文本框Text1中输入5，则Text1和Text2中显示的内容分别是( )
A、0 3 B、12 C、51 D、-13 -
8、某算法的部分流程图如图所示。执行这部分流程，则输出n的值为( )
A、28 B、29 C、35 D、36 -
9、下列有关多媒体技术相关概念的说法，正确的是( )A、位图是用一组指令集合或数学公式来描述的 B、媒体元素分解涉及的内容有描述素材类型和获取方式等 C、导航软件播报前方路况信息，主要体现了多媒体技术的交互性 D、MPEG视频文件压缩部分冗余和非冗余信息，解压后能准确地恢复到原信息
-
10、一段未经压缩的视频(不含声音)参数为：每帧画面为640X480像素、16位色，PAL制式(25fps) ，该视频的大小为73MB，则视频的时间约为( )A、1秒 B、5秒 C、10秒 D、15秒
-
11、使用Access软件统计某班高三毕业生高考成绩，如下图所示（ ）
A、对当前记录“语文”字段值进行修改，“总分”字段值会自动更新 B、“学号”字段肯定是“自动编号”类型 C、“上线”字段肯定是“是/否”类型 D、当前状态下插入新记录，将会出现在第24行 -
12、使用UltraEdit软件查看字符的内码，部分界面如图所示：
则下列说法正确的是（ ）
A、图中最大内码的十进制表示为150 B、这段字符内码的所有字节之和为偶数 C、字符“1+2”的内码可能是“31 2C 32” D、内码“36 30 2B 3A A3 A4”中，包含4个数字 -
13、汉字可以使用N* N的黑白点阵图案来表示，例如汉字“上”和“二”使用8 * 8的点阵图案表示，如图所示。转化为0和1的点阵，其中0表示白色，1表示黑色，则“上”字可以表示为：
使用以下规则对01点阵进行编码(以“上”为例)：
①编码的第一个数为点阵的行列数N，如示例中“上”对应的行列数N为8；
②按行列顺序从上到下，由左到右依次进行编码；
③第一个数表示连续有几个0，第二个数表示接下来连续有几个1，第三个数表示再接下来连续有几个0，依此类推……
根据以上规则，“上”的编码为8，3，1，7，1，7，1，7，3，5，1，7，1，7，1，4，8。依据上述描述的编码规则，设计一个解码程序，根据输入的压缩编码，输出01点阵和黑白点阵。程序运行界面如图b所示，其VB代码如下。请回答下列问题：
Private Sub Command1_ Click( )
Dim n As Integer, m As Integer, flag As Integer
Dim a(1 To 100) As Integer, sum As Integer, num As Integer
Dim s As String,tmp As String
'读取一组数据，并对数据处理后存入相应变量
s= Text1. Text ： s=s+","
num=0： i=1
Do While Mid(s, i, 1) <> ","
i=i+ 1
Loop
n= ①
p=i+1
num=0 : m= 0
For i=p To Len(s)
ch= Mid(s, i, 1)
If ch="," Then
m=m+1
②
num= 0
Else
num=num * 10+Val(ch)
End If
Next i
'下列代码为按规则对编码进行解码，输出01点阵
sum=n￥n
i=1 : flag=0 : tmp=" "
Do While sum>0
For j=1 To a(i)
If flag=0 Then
tmp=tmp+"O"
Else
tmp=tmp+"1"
End If
If ③ Then
List1. AddItem tmp
tmp=" "
End If
Next j
④
i=i+1
flag=1-flag
Loop
'按规则对编码进行解码，输出黑白汉字点阵，
代码略
End Sub
(1)、依据图a中“二”字点阵图案以及上述压缩编码的规则，“二”字的编码为(填数字，中间用逗号分隔)。(2)、请在划线处填入合适的代码。① ② ③ ④
-
14、编写VB程序，实现如下功能：在文本框Text1中输入关键词，例如关键词“ok”，单击“查找”按钮Com-mannd1，在左边的列表框List1所列单词中查找包含“ok”的字符串，如果查找成功，将在右边的列表框List2中输出该单词。若该单词多次符合条件，则只显示一次。如果查找失败，则在列表框List2 中显示“查找无结果“。
实现上述功能的VB代码如下，运行效果如图所示。请回答下列问题：
Const n= 5
Dim a(1 To n) As String
Private Sub Form_ Load( )
'将n个字符串分别赋值给数组元素a(1)、a(2)、……、a(n)，并在列表list1中显示
'代码略：
End Sub
Private Sub Command1_ Click( )
Dim s As String, i As Integer, j As Integer
Dim m As Integer, k As Integer
Dim flag As Boolean
s = Text1. Text
m = Len(s)
List2. Clear
flag = False
For i=1 To n
k = Len(a(i))
For j=1 To k- m + 1
If
= s Then '①改错List2. AddItem a(i)
flag = True
Exit For '退出for 循环
End If
Next j
Next i
If
Then '②填空List2. AddItem“查找无结果”
End If
End Sub
(1)、观察运行界面，窗体中一共有个对象。(2)、程序代码中，加框处①有错，请改正。(3)、为实现上述功能，请在加框处②填入合适的代码。(4)、如果删除程序代码中Exit For语句，对程序最终运行结果(选项：有/无)影响。 -
15、小明制作了主题为“鼠年大吉”的多媒体作品，他首先使用Photoshop 软件制作了一张背景图片，然后使用Flash软件制作动画。请回答下列问题：(1)、Photoshop部分界面如图a所示，当前状态下，下列说法正确的是(多选，填字母：A .选中“背景”图层，可以直接修改“背景”图层的不透明度/B .“鼠年大吉”图层的内容没有显示在画布中/C .不能把“灯笼”图层的图层样式复制到“舞龙”图层/D .把当前PSD文档保存为JPEG格式，该文件大小约为366.2KB)
(2)、制作的Flash动画如图b所示，“鼠1”图层呈现动画可能是(单选，填字母：A .由3只老鼠逐渐变成2只老鼠再变成如图所示的1只老鼠/B .“鼠1”由小变大的同时，由舞台外面运动到舞台的左上角，再运动到如图所示位置/C .由“老鼠”文字逐渐变成“鼠”文字再变为如图所示的一只老鼠)
(3)、“礼花”图层从第1帧至25帧实现礼花从空中飘落到云上，并消失在云的后面。但测试影片时发现，礼花最终停留云的外面，要修正错误，下列对“礼花”图层操作可行的有 (多选，填字母)A、选择第26帧至48帧执行“删除帧"操作 B、将第48帧移动到第26帧 C、选择第25帧执行“清除关键帧”操作 D、选择第26帧执行“插入空白关键帧"操作 E、选择第26帧执行“清除帧"操作(4)、按下组合键“Ctr1+Enter”测试动画，在当前文件夹中会产生一个名为(填写完整文件名)的文件。(5)、测试影片时，弹出如图c所示提示信息，应进行的修改是
-
16、小王收集了某地农产品价格数据，用Excel对其进行分析，整理后的数据如图a所示，
(1)、表中第J列数据是通过公式计算得到。小王首先在J5单元格中输入公式 ， 然后利用自动填充功能向下填充到J23单元格。(2)、小王想对蔬菜类的数据以“农产品品种”为主要关键字按升序进行排序，则他应该选择的数据区域是。(3)、小王要对数据进行筛选，筛选条件如图b所示，则他共筛选出行数据
(4)、小王根据图a中数据制作了一个图表，如图c所示：则制作此图表的数据区域为
-
17、有一数组a(1 to 6) ，其数值分别为“45，39，78，37，93，64”，想要从小到大排序，编写如下程序代码：
Dim flag As Boolean
i =1：n=6
flag = True
Do While i <= n-1 And flag = True
flag = False
For j=n To i+ 1 Step-1
If a(j)<a(j-1) Then
k = a(j)： a(j) = a(j- 1)： a(j-1)= k
flag = True
End If
Next j
i=i+1
Loop
以上代码在整个排序过程中，数据总比较次数和总交换次数分别是( )
A、9次和4次 B、9次和6次 C、12次和6次 D、15次和12次 -
18、有如下VB程序段：
Dim p As Integer, q As Integer, s As Integer, t As Integer
p = Vai(Text1. Text)
t=0
For q=p+1 To2*p
s=(p*q)Mod(q-p)
If s = 0 Then
t=t+1
End If
Next q
Label1. Caption = Str(t)
该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是( )
A、3 B、4 C、5 D、6 -
19、某对分查找算法的VB程序段如下：
i=1： j=6： n=0： f= False
key= Val(Text1. Text)
Do While i<=j and Not f
n=n+1
m= Fix((i+j)/2)
If key=a(m) then f= True
If key<a(m) then j=m-1 Else i=m+1
Loop
数组元素a(1)到a(6)的值依次为“12， 19，27，31，46，55”。若在文本框Text1中输入“31”，则以上程序段运行结束后，下列说法不正确的是( )
A、变量i的值为4 B、变量j的值为4 C、变量m的值为4 D、变量n的值为3 -
20、有n盏灯，一开始全部处于关闭状态，现有n个人对这些灯进行操作：第1个入将所有灯打开，第2个人将所有编号为2的倍数的灯全部关闭，第3个人对所有编号为3的倍数的灯进行反向操作……直到第n个人操作完成为止，该过程用如下VB程序段进行模拟。
Dim a(1 To n) As Integer
For i=1 To n
For j=i To n
If ① Then
②
End If
Next j
Next i
已知数组a初始值全部为0，模拟灯的状态，0为关，1为开。则划线处正确的是( )
A、①i Mod j=0②a(j)=1-a(j) B、①j Mod i=0②a(j)=1-a(j) C、①j Mod i=0 ②a(i)=1-a(i) D、①i Mod j=0 ②a(i)=1-a(i)