相关试卷
-
1、用word软件编辑某文档后，部分界面如图a所示，选择最后一句话中带波浪线的“一阁被”后单击右键出现如图b所示菜单。
下列说法正确的是（ ）
A、如果拒绝第一行中的所有修订后，有关天一阁修建朝代的句子变为“建于清明朝中期” B、如果修订后的数据是正确的，天一阁的占地面积为“2.6万平方米” C、“一阁被”带波浪线是因为存在拼写错误 D、用户“M1”对“天一阁”进行了批注 -
2、下列说法中，不正确的是（ ）A、淘宝造物节上首次亮相的有“大脑”的无人零售店“淘咖啡”，这使用了人工智能技术 B、扫描二维码这个过程应用了基于内容检索的技术 C、在网上浏览故宫博物院，如同身临其境般感知其内部的方位和物品，这应用了虚拟现实技术 D、某同学要去西藏自助游，利用搜索引擎查找资料，这一过程应用了多媒体技术
-
3、领礼物。圣诞节到了，教室里放满了礼物，大家站在同一位置即原点（0，0）处，根据自己拿礼物的序号轮流去拿礼物，每个人只能拿离自己最近的礼物，每件礼物的位置用坐标（x，y）表示。如果有多个礼物离你的距离相等（精确到小数后二位）且最近，则这些礼物都归你所有。
程序运行时，在文本框Text1中输入共有礼物数n，单击“读取数据”按钮Command1，将从数据库gift. accdb中读取n个礼物的信息存储在相应的数组中，并显示在列表框List1中；在文本框Text2中输入轮到你拿礼物的序号（即第几个拿），单击“计算”按钮 Command2，则在列表框List2显示你获得的礼物信息，并在列表框list2最后一行显示获得的礼物总数。程序运行界面如图所示。
实现上述功能的VB程序代码如下，请回答下列问题：
Dim conn as New ADODB.Connection
Dim rs as New ADODB.Recordset
Dim bh（1 To 100） As string '数组bh存储礼物的编号
Dim x（1 To 100） As Single,y（1 To 100） As single '数组x、y分别存储礼物的横坐标和纵坐标
Dim dist（1 To 100） As single '数组dist存储礼物到原点的距离
Dim n As Integer '变量n表示礼物数
Private Sub Command1_Click()
Dim i As Integer
'从数据库中读取n件礼物的编号、横坐标、纵坐标，并存储在相应的数组中＇代码略，下面代码的功能是计算各礼物到原点的距离
For i=1 To n
dist(i)= ①
List1. AddItem bh(i)+""+Str(x(i))+""+Str(y (i))+""+Str(dist(i))
Next i
End Sub
Private Sub Command2_Click()
Dim xh As Integer, i As Integer, j As Integer, k As Integer
Dim templ As String, temp2 As Single, p As Single, s As Single
xh=Val(Text2. Text)
'将礼物按到原点的距离从小到大排序，代码略
i=0: j=1: s=0
Do While (i< xh) And (j<=n)
If dist(j)<>s Then
②
i=i+1
End if
j=j+1
Loop
u=0
j=j-1
Do While ③
List2. AddItem bh(j)+Str(x(j))+Str(y(j))+Str(dist(j))
u=u+1
j=j+1
Loop
List2. AddItem"total:"+Str(u)
End sub
(1)、请在程序画线处填入合适的语句① ② ③
(2)、假设现共有14件礼物，礼物的信息如图所示，你轮到第10个拿礼物，则你获得的礼物数为。 -
4、编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：
1)将n乘以3后加1产生一个新的数
2)对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1
譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示，回答下列问题:
(1)、若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的属性。(2)、完成上述功能的程序代码如下，请在划线处填入合适的代码Private Sub Command1_Click()
Dim n As Integer, t as Integer ,m as Integer ,s as String
t = n * 3 + 1
m = 1
s = ""
Do While
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现！"
End If
End Sub
(3)、按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数。（选填：能/否） -
5、创作一个题为“乡愁”的多媒体作品，使用Flash软件制作一个动画，设计界面如图所示。请回答下列问题：
(1)、测试影片时，下列操作不影响作品呈现效果的是（多选，填字母: A .隐藏“画板”图层/B .“按钮”图层第1帧清除关键帧/C .“小鸟”图层第30帧插入关键帧/D .“小鸟”图层第1帧删除帧）。(2)、如图所示，“小鸟”图层补间动画设置了缓动，若将缓动值变更为-100，则补间动画时长（选填：变短 / 变长 / 不变）。测试影片，指针经过按钮时，按钮文字图层（选填：有 / 无）内容显示。
(3)、测试影片时，“观赏”按钮一开始就呈现，若要实现“按钮”图层中“观赏”按钮最后一帧才出现，则实现的操作是。(4)、单击“观赏”按钮，实现在浏览器打开网页“http://www.wzta.gov.cn”，并停止播放背景音乐，则“观赏”按钮的动作脚本为。 -
6、某大学院校研究男女学生学习成绩的差异性，相关数据在Excel表中，如下图表格所示。
请回答下列问题：
(1)、在L4单元格中使用 SUMPRODUCT函数计算男生在所有科目考试中获得80~100分的总人数，则L4单元格中的公式是。（提示：SUMPRODUCT函数返回相应的数组或区域乘积的和。例如：= SUMPRODUCT((C4:C11="高等数学")*(D4:D11))表示在数据区域D4:D11中统计科目是高等数学的数值总和）
(2)、根据上图表格所示，区域A3:I11数据已进行了排序，则排序的次要关键字是。(3)、根据上图表格中数据制作的图表如下图所示，创建该图表的数据区域是。
(4)、变更D4单元格数值为4，图表（选填：会/不会）发生变化。 -
7、某VB程序段如下：
n=6:Text2. Text=" "
m=Val(Text1. Text)
For i=1 To 3
k=i
j=i+1
Do While j<=m
If a(k)> a(j) then k=j
j=j+1
Loop
If i<>k Then
Text2. Text= Str(a(k))+Text2. Text
t=a(i):a(i)=a(k):a(k)=t
End If
Next i
数组元素d(1)到d(6)的值依次为“39，25，18，20，73，70”，现运行程序在文本框Text1里输入5，点击按钮Command1后文本框Text2中显示的内容是（ ）
A、18 20 70 B、70 20 18 C、18 20 25 D、25 20 18 -
8、（加试题）有如下程序段：
Dim i As Integer, Sum As Integer
Dim a(1 To 11) As Integer
Sum = 6
a(11) = 49
For i = 10 To 1 Step -1
a(i) = a(i + 1) - 1
If a(i) Mod 3 = 0 Then Sum = Sum + a(i)
Next i
Text1.Text = Str(Sum)
该程序段运行后，文本框text1中显示的内容是（ ）
A、174 B、180 C、36 D、42 -
9、某VB程序段如下：
For i=1 To 6
j=7
Do While i>i
If a(j)>a(j-1) Then
a(j)= a(j)+a(-1):a(j-1)=a(j)-a(j-1):a(j)=a(j)-a(j-1)
End If
j=j-1
Loop
Next i
For i=3 To 6
s=s+a(i)
Next i
Labell. Caption=Str(s)
已知数组元素a(1)到a(7)的值依次为“8，2，3，7，10，6，5”，则执行该程序段后，标签 Label1中显示的是（ ）
A、21 B、26 C、41 D、18 -
10、有一个数组，使用如下VB程序段进行排序，第一遍排序后的结果为2，12，7，34，8，9，11，19，26，那么该数组的原始顺序不可能的是（ ）
For i=1 To n-1
For j=n To i+l Step-1
If a(j)< a(j-1)Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j
Next i
A、12，7，34，8，9，11，19，26，2 B、12，7，34，8，9，11，2，19，26 C、12，7，34，2，8，9，11，1，26 D、2，12，7，34，8，9，11，19，26 -
11、使用 Gold Wave软件打开某音频文件，选中其中一段音频后的部分界面如图所示，下列说法不正确的是（ ）
A、声音开始部分有淡入效果 B、进行“保存选定部分为”操作，保存后得到的声音文件时长为2秒 C、在当前选中情况下插入2秒“静音”后直接保存，文件大小会变化 D、进行调整音量大小操作后，则该音频里所有声音音量发生改变 -
12、波波同学一直梦想买彩票中500万大奖，他收集了最近100期“双色球”开奖信息，存储于data. accdb文件中，并使用VB软件编写了“双色球投注建议”程序，程序根据最近100期开奖信息，统计出现概率最低的6个红色球号码和1个蓝色球号码，给出投注建议。如果蓝色球有多个概率最低的号码，则输出多个，红色球不考虑并列概率量低情况。
注：福彩“双色球”玩法；在1-33个红色球影申随机生成6个号码，在1~16个蓝色球号码中随机生成个号码，共计6+1个号码开奖。
程序运行界面如图所示。
(1)、实现上述功能的VB程序如下，请完善画线处的代码。Dim red(1 To 600) As Integer '用于存储100*6红色球信息
Dim blue(1 To 100) As Integer '用于存储100*1蓝色球信息
Private Sub Form_Load()
'本过程用于从数据库data. accdb中读取最近100期双色球开奖信息
'将100*6个红色球开奖信息依次存储在数组red()中
'将100*1个蓝色球开奖信息依次存储在数组blue()中
'将最近100期开奖信息格式化后显示在列表框List1中
'本过程代码略
End Sub
Private Sub Command1_Click()
Dim min As Integer
Dim s As string
Dim f(1 To 33)As Integer
'——以下开始处理蓝色球部分——
For b= 1 To 100
f(blue(b))= f(blue(b))+1
Next b
min= 100
For i= 1 To 16
If f(i)< min Then min f(i)
Next i
For i=1 To 16
If f(i)= min then s=
f(i)=0
Next i
List2. Additem"蓝色球重点买人:"十s
'——以下开始处理红色球部分——
For r=1 To 600
Next r
(2)、在某次红球部分处理时，若数组f中的，f(1)至f(33)的值依次为：f(1)-f(11):
6
8
20
25
16
21
14
20
24
28
26
f(12)-f(22):
1
30
8
1
10
10
33
28
32
20
6
f(23)-f(33):
4
34
29
18
25
30
4
13
30
20
6
结合加虚线框处代码的算法，输出的内容是：
红色球重点买入：（按输出顺序写出6个红球号码)。
-
13、趣味数学题：n的阶乘n！=1*2*3*4*5*…*n，当n≥5时，其结果末尾必然包含多个0，求n！（5≤n≤32 726）末尾包含0的个数。
算法思路：n较大时，n！的值将超出long类型范围，求出n！的结果再数0的个数不现实。那么末尾的0到底是从哪里来的？每一个因子5与任一偶数相乘就会产生一个0。所以末尾有多少0是由因子5的个数决定的，求出因子5的个数即是末尾0的个数。程序运行界面和代码如图所示。
(1)、为使窗体加载时，窗体标题栏自动显示为“第14题程序”，则可以在过程（填写过程名）中添加代码：Form1. Caption="第14题程序"。(2)、实现上述算法的VB程序如下，请补充程序中画线处的代码。Private Sub Command1_Click()
Dim n As Integer
n=Val(Text1. Text)
i=1
Do While
s=s+n\5^i
i=i+1
Loop
List1. AddItem Str(n)+"!末尾包含0的个数:"+
End sub
(3)、根据上述算法，2018！末尾包含0的个数是个个。 -
14、小明制作主题为“父亲节”的多媒体作品，首先使用 Photoshop软件处理图片，然后使用 Flash软件制作动画。请回答下列问题：(1)、如图a所示，当前状态下，下列操作可行的是（多选，填字母：A .拷贝“感”图层的图层样式粘贴到“恩”图层/B .选中“背景”图层后，调整其不透明度/C .对“感”图层直接添加滤镜效果/D .选中“父亲节”图层后，对其内容进行填充）。
图a
(2)、如图b所示，“文字”图层第20帧到第35帧的动画实现了由“成长有你关怀”字样变为“生活有你呵护”字样的动画效果，该动画类型为（填：动画补间/形状补间/逐帧动画）。
图b
(3)、测试“主界面”场景时，“小鸟1”和“小鸟2”动画同时出现并向舞台左侧飞去，为了使“小鸟2”比“小鸟1”晚1秒出现，应做的调整是。(4)、“退出”按钮元件的部分编辑界面如图c所示。测试影片时发现该按钮无响应区域，为使按钮有效，下列操作不正确的是（单选，填字母：A .选中“按下”帧，执行“插入关键帧”命令/B .复制“弹起”帧，粘贴至“点击”帧/C .选中“点击”帧执行“清除关键帧”命令/D .选中“点击”帧，执行“删除帧”命令）。
图c
(5)、测试影片时，单击“主界面”场景中“退出”按钮，影片跳转到“片尾”场景的第1帧并开始播放，则“退出”按钮的动作脚本为。 -
15、小张收集了2016年浙江省各地级市GDP的数据，并使用 Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
(1)、区域E3：E14的数据是通过公式计算得到的，并用自动填充功能完成区域E4：E14的计算，则E3单元格中的公式是。(2)、小张操作时不小心删除了D3单元格的内容，则E3显示的内容是（填A . #DIV/0！/B . #VALUE！/C . #REF！）。(3)、根据图a中数据，小张制作了一张图表，如图b所示，创建该图表的数据区域是。
图b
(4)、将区域A2：G14的数据复制到新工作表，在新工作表中相关数据进行筛选操作，筛选设置如图c所示，则按此设置筛选出的城市有个。
图c
-
16、已知一无序数组a中的元素为“90，15，40，72，65，32，81，6”，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为“8，2，4，6，5，3，7，1”，使得a(b(1)≤a(b(2))≤a(b(3))≤......≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
i=1: j=8: c=0
key= Val(Textl. Text)
Do While i<=j
m=Int((i+j)/2)
t=b(m)
c=c+1
If a(t)=key Then p=t:Exit Do
If a(t)<key Then
i=m+1
Else
j=m-1
End If
Loop
当文本框 Text1中输入的值为32时，程序运行结束后变量c的值为（ ）
A、1 B、2 C、3 D、4 -
17、有如下VB程序段：
a(1)=91: a(2)=5: a(3)=65: a(4)=8: a(5)=78: a(6)=13: a(7)=29: a(8)=18
For i=2 To 5
tmp= a(i)
L=1
R=i-1
Do While l<= R
M= Fix(L+ R)/2)
If tmp <=a(M) Then R= M-1 Else L= M+1
Loop
j=i-1
Do While j＞=L
a(j+1)=a(j)
j=j-1
Loop
a (L)= tmp
Next i
执行上述代码后，数组a中的元素分别是（ ）
A、5 8 13 18 29 65 78 91 B、5 8 65 78 91 13 29 18 C、91 78 65 29 18 13 8 5 D、91 78 65 8 5 13 29 18 -
18、有如下VB程序段：
a=1: b=1: n=12
f(1)=a: f(2)=b
For i=3 To n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
执行该 段程序后,数组元素f(12)的值为（ ）
A、0 B、1 C、2 D、3 -
19、有如下ⅤB程序段：
For i=1 To 10
b(a(i) Mod 10)= b(a(i) Mod 10)+1
b(a(i)\10)=b(a(i)\10)+1
Next i
num=0
For i=0 To 9
If b(i>num Then num b(i)
Next i
数组b各元素初始值为0，数组元素a(1)到a(10)的值依次为“68，17，24，30，36，40，55，58，61，66”，执行该程序段，num的值为（ ）
A、2 B、3 C、4 D、5 -
20、使用 Photoshop软件对“明信片.psd”进行编辑，界面如图所示。
下列说法正确的是（ ）
A、可将“背景”图层的不透明度设置为“0%”，使该图层内容不可见 B、当前状态下使用“向下合并”命令，可得到一个名为“边框2”的图层 C、可以用橡皮擦工具擦去“鱼跃龙门”图层里的“鱼”字 D、将文件保存为“明信片.jpg"，“金鸡”图层的“投影”效果不显示