相关试卷
-
1、有如下VB程序段：
For i= 1 To 3
For j= 1 To 5-i
If a(j) >a(j+1) Then
t=a(j)：a(j)=a(j+1)：a(j+1)=t
End If
Next j
Text 1．Text=Text 1．Text+str(a(i) )
Next i
数组元素a(1)到a(5)的值依次为“3，9，6，8，4”。该程序段执行后，文本框Text 1显示的内容是（ ）
A、346 B、689 C、364 D、366 -
2、下列VB表达式中，随机产生10到100之间奇数的是（ ）A、Int(Rnd*45) *2+ 10 B、Int(Rnd*45) *2+11 C、Int(Rnd*90+10) D、Int(Rnd*90+11)
-
3、小王制作主题为“中国象棋”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：(1)、图a所示，当前状态下，下列操作可行的是(多选，填字母：A .修改图中左下角的数值缩放图像/B .选中“背景”图层后，调整其不透明度/C .对“右”图层的内容进行自由变换/D .选中“中国象”图层后，对其内容进行填充)。
(2)、如图b所示，“录”图层第25帧到第36帧实现了由象棋子“帅”变化为汉字“录”的动画效果，该动画类型为(填字：动画补间/形状补间/逐帧动画)。
(3)、要实现“象棋简介”、“象棋起源”、“行棋规则”和“主要赛事”4个补间动画依次出现的效果，应做的调整是。(4)、为实现该场景动画播放完后自动停止，小王选中“三叠子按钮”图层最后1帧添加停止动画的动作脚本，但脚本出现在该图层第1帧，其原因是。(5)、测试影片时，单击“象棋简介”按钮，实现在浏览器中显示位于同一目录下“intro．txt”文件的内容，则“象棋简介”按钮的动作脚本为。 -
4、小李收集了2015年浙江省交通运输客运量统计数据，并用Excel软件进行数据处理，如图a所示。请回答下列问题：
(1)、区域C17：E17中的数据时从B17单元格利用自动填充功能得到的。则B17单元格输入的公式是。(2)、若F16单元格数据被误删，则E17单元格将显示为(单选，填字母：A .1．87%/B .0/C .#DIV/0！/D .E 16/$F$16)(3)、若要对1-12月份的数据以“客运总量”为关键字按降序进行排序，则排序时选择的数据区域是。(4)、将区域A1：F15的数据复制到新工作表并进行筛选，设置“铁路”和“公路”的筛选方式均如图b所示，则筛选出的是月份的数据(填具体月份)。
-
5、有如下程序段：
For i= 1 To 2
For j=5 To i+1 Step-1
If a(j) >a(i) Then
t=a(j)：a(j)=a(i)：a(i)=t
End If
Next j
Next i
数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（ ）
A、77，45，33，16，24 B、77，33，45，16，24 C、77，24，45，16，33 D、77，45，33，24，16 -
6、【加试题】有如下VB程序段：
n=0
For i=1 To Len(Text 1.Text)
c=Mid(Text 1.Text, i, 1)
If c>=“0”And c<=“9”Then m=1 Else m= 2
a(m)=a(m)+1
If a(m) =1Then n=n+ 1
Next i
数组a各元素的初始值都为0，文本框Text 1的内容为“Happy 2017”。执行程序后，变量n的值为（ ）
A、1 B、2 C、4 D、9 -
7、在Flash中用补间动画实现树叶飘落的效果，动画起始关键帧的属性面板如图所示。
下列说法正确的是（ ）
A、树叶匀速飘落 B、树叶是库中某个元件的实例 C、当前帧不能直接添加动作脚本 D、声音“渔舟唱晚．mp3”播放时音量由大到小 -
8、关于Access数据表的操作，下列说法正确的是（ ）A、重命名数据表，数据表名不能与表中的字段名相同 B、删除字段，数据表中该字段的值随之被删除 C、删除记录，剩余记录中数据类型为自动编号的字段值会自动更新 D、Access数据表不能导出到Excel电子表格
-
9、图a是一个“挖地雷”游戏的界面，9×9个格子里都有一个数字，红旗代表地雷可以用“-1”表示，图中共有10个地雷，“0”表示空白，所有数字的含义是以该数字格子为中心的3×3区域中地雷的个数。
小陈根据上述的描述设计了以下的程序，界面如图b所示，单击“初始化”按钮Command 1，按要求生成相关数据存储在数组a中并在列表框List 1中显示，该程序中最外圈不能有地雷，单击“计算”按钮Command 2，对数组a中的数据进行计算并在列表框List 2中输出，输出数据元素的宽度为固定值。
请回答问题：
(1)、单击“初始化”按钮Command 1后，数据a中的数据在List 1中显示，效果如图c所示，单击“计算”按钮Command 2后数组a中数值为3的元素个数有个。(2)、请在划线处填入合适的代码。Const n=9：Const m= 10 'n存储地雷区域大小，m存储地雷数目
Dim a(1 To n*n) As Integer
Private Sub Command 1_Click()
'按要求生成数组a中的数据并在List 1中显示，代码略
End Sub
Private Sub Command 2_Click()
Dim i As Integer, j As Integer, row As Integer
Dim col As Integer, start As Integer, temp As String
For i=1 To n *n
IfThen
row=(i-1)＼n+ 1
col=(i-1)Mod n+ 1
For j= 1 To 3
If a(start+col-1) >-1Then a(start+col-1) =a(start+col-1)+1
If a(start+col) >-1Then a(start+col) =a(start+col)+1
If a(start+col+1)>-1Then a(start+col+1) =a(start+col+1)+1
Next j
End If
Next i
List 2．Clear
For i=1To n
temp=“”
For j=1To n
temp=temp+adj(a((i-1) *n+j)，3)
Next j
List 2.Add Item temp
Next i
End Sub
Function adj(x As Integer, y As Integer) As String
Dim s As String
s=Str(x)
For i= 1 To
s=“”+s
Next i
adj=s
End Function
-
10、小周尝试一种新的数据排序方法，先将数据按照增量分成若干组，再分别对这几组数据进行排序并通过缩小增量直到增量为1的方法实现最终排序。如若要将数据“71，54，58，29，31，78，2”升序排序，增量的初值为3，则数据分为3组，为“71，29，2”“54，31”“58，78”，分别对各组数据排序后变为“2，31，58，29，54，78，71”，更新增量为1，最终通过后续处理实现排序。
待排序数据存储在数组a中(a(1)…a(n))，共有n个数据，要求升序排序
Dim a(0 To 100) As Integer
Dim n As Integer
Private Sub Command 1_Click()
Dim i As Integer，m As Integer
m=n＼2
Do While
'改错For i=1To m
Call jpsort(i，m) '调用过程jpsort()
Next
m=m＼2
Loop
'显示输出结果
End Sub
Private Sub jpsort(start As Integer，w As Integer)
For i=start To n Step w
For j= ② To i+w Step-w '填空
If a(j-w) >a(j) Then
t=a(j-w)： ③ ：a(j)=t '填空
End If
Next
Next
End Sub
请回答以下问题：
(1)、若要修改窗体上显示的内容为“跳跃排序”，应修改的属性名是(单选，填字母：A .Text/B .Caption/C .Load) 。(2)、划线部分的代码应填①；②；③。(3)、若将虚线框中的程序段删除并要求使排序的结果不变，则应将Do While语句加框处的代码修改为。 -
11、小林使用Flash软件制作了“毕业”题材的多媒体作品，他先用Photoshop软件制作相关素材，然后使用Flash制作动画。请回答以下问题：(1)、关于多媒体作品设计，下列说法正确的是 (单选，填字母)。A、确定作品主题思想属于应用需求分析 B、文字脚本是多媒体作品制作的直接依据 C、作品的功能模块设计描述了整个作品的组成部分、工作流程、主要界面 D、多媒体作品设计的一般过程：需求分析→规划设计→脚本编写(2)、如图a所示，在当前状态下，以下说法正确的是(多选，填字母：A .存储为BMP格式的图片后，图中每个像素点需要8位二进制存储/B .使用“橡皮擦”工具可以将“背景”图层修改为白色/C .设置“背景”图层不可见，可以存储为透明背景的PNG格式图片/D .不能改变“背景”图层和“图层4”之间的顺序/E .直接将“背景”图层设置为完全锁定，则“背景”图层将不能删除)。
(3)、如图b所示，“纸飞机3”图层中实现了“纸飞机”从右下角飞向左上角并逐渐变小的动画，则该动画的动画类型为。
(4)、测试影片时发现“load”场景中的按钮在动画过程中一直出现，若要使按钮只出现在“load”场景动画的最后，按钮出现的同时动画停止并等待按钮响应，在不改变其他动画的效果的前提下，可进行的操作是。(5)、测试影片时，单击“load”场景的按钮，音乐停止并跳转至“main”场景的第1帧继续播放，已知“load”场景“声音”图层中音频的同步方式为“事件”，则该按钮的动作脚本为。 -
12、小范同学对2018年浙江省各地市的户籍人口年龄构成进行调查，并用Excel软件对调查数据进行处理，如图a所示。
(1)、将C4单元格中的公式复制至I15单元格，再向上自动填充至区域I4：I15，则单元格I4中的公式为。(2)、60岁以上人口的占比越高说明该地区人口老龄化越严重，若要将图中数据按照人口老龄化程度排序，则排序区域应设置为(单选，A .A4：J15/B .A2：J15/C .B3：I15/D .A5：J15)。(3)、根据图a中的数据直接建立了如图b所示的柱形图，则创建该柱形图的数据区域为。
(4)、若选中区域B3：I15，分别对C列和E列设置筛选，筛选条件如图c和图d所示，则筛选结果有项。
-
13、有如下VB程序段：
i=1：j=10
Key=Val(Text 1.Text)
If Key Mod 2=1 Then t=1 Else t=-1
Do While i<=j
m=(i+j)＼2
c=c+1
If t= 1 And a(m) Mod 2= 0 Then
j=m-1
ElseIf t=- 1 And a(m) Mod 2= 1 Then
i=m+1
ElseIf Key*t<a(m) *t Then
j=m-1
Else
i=m+1
End If
Loop
若数组a(1)到a(10)的值依次为1，3，5，7，9，18，18，16，4，0，若Text 1中输入2，执行该程序段后，下列说法正确的是（ ）
A、c=4 B、m的值依次为5，8，9 C、i=2 D、m的值依次为5，2，1 -
14、有如下VB程序段：
Dim a( 1 To 4) As Integer，m As Integer，n As Integer
m=100：n=4
Randomize
For i=1 To n-1
x=Int(Rnd *n) + 2
a(i)=m＼x
m=m-a(i)
Next i
a(i)=m
该程序段运行后，数组a中各元素的值不可能的是（ ）
A、20，16，12，52 B、25，18，14，43 C、33，22，9，36 D、50，25，4，21 -
15、有如下VB程序段：
For i= 1 To 18
a(i) =True
Next i
For i= 2 To 18
For j= 1 To 18＼i
a(i*j) =Not a(i*j)
Next j
Next i
For i= 1 To 18
If a(i) Then c=c+1
Next i
Text 1.Text=Str(c)
该程序段运行后，文本框Text 1中显示的内容是 （ ）
A、2 B、3 C、4 D、5 -
16、有如下VB程序段：
s=Text 1.Text
ans=0
Text 2.ext=Str(ans)
若Text 1中输入的内容为“10”则Text 2中输出的内容为“2”，加框处代码，不正确的是（ ）
A、
B、
C、
D、
-
17、某算法部分流程图如图所示。执行这部分流程，则输出c的值是（ ）
A、6 B、7 C、8 D、9 -
18、a，b都是正整数，若a*b Mod 2=0为真，则下列说法错误的是 （ ）A、(a+b)\2-(a+b) \2Mod 2可能是奇数 B、a与b至少有一个是偶数 C、(a+b)\2-((a+b)\2+1) Mod 2一定是奇数 D、Int(Rnd*a) +b可能是偶数
-
19、新建某声音文件如图所示，直接保存为wave格式，文件大小约为10Ｍ，则该声音文件的量化位数是（ ）
A、8 B、16 C、24 D、32 -
20、小明进行音频文件创作时遇到以下问题：
①选中区域的音量和其它部分不一致，如图a；
②选中区域的部分为不需要的信号，需要去除，如图b。
解决以上问题选择命令较合理的是（ ）
A、①淡入 ②剪裁 B、①更改音量 ②删除 C、①淡出 ②静音 D、①更改音量 ②剪裁