相关试卷
-
1、下列有关信息和信息技术说法正确的是（ ）A、信息越早获取其价值就越大 B、信息可以脱离载体在网络世界里自由传播 C、经过加工、处理，信息往往可以从一种形态转换为另一种形态 D、某GPS导航规划的路线经常出错，更新数据后很少出错，主要体现信息的真伪性
-
2、展开字符串。如果在输入的字符串中，含有类似于“c-g”或者“3-7”的字符子串，就把它当作一种简写，字符串展开输出时有如下规则：
1）如果“-”号右边的字符按照ASCI码的顺序大于左边字符，输出时，用连续递增的字母或数字串替代其中的“-”号，例如：“c-g”输出为“cdefg”，“3-7”输出为“34567”。
2）如果“-”号右边的字符按照ASCII码的顺序小于或等于左边字符，输出时，保留中间的“-”号，例如：“a-a”输出为“a-a”，“4-1”输出为“4-1”。
3）如果“-”号右边的字符恰好是左边字符的后继，则删除中间的“-”号，例如“d-e”应输出为“de”，“3-4”应输出为“34”。
某同学按照上述算法，编写了VB程序，功能如下：在文本框Text 1中输入简写字符串，单击“展开”按钮Command 1，程序进行字符串展开处理并显示在文本框Text 2中。程序运行界面如图所示。
(1)、如果输入的简写字符串为“abs-w-Y1234-5S-4z”，则展开后的字符串为。(2)、实现上述功能的VB程序如下，请在画线处填入合适代码。Private Sub Command1_Click()
Dim st1 As String, st2 As String, i As Integer
st1=Text1. Text
n=Len(st1)
st2=""
For i=1 To n
If pos(st1, i)Then<> "-" Then
st2=st2+pos(st1, i)
Else
If pos(st1, i-1)<pos(st1, i+1) Then
For j=Asc(pos(st1, i-1))+1 To Asc(pos(st1, i+1))-1
Next j
Else
st2=st2+"-"
End If
End If
Next i
Text2. Text=st2
End Sub
Function pos(s As String, x As Integer) As String '返回字符串s中x位置的字符
End Function
-
3、数学上把2，4，8，16等数称为2的幂次方。编写程序，实现如下功能： 在文本框Text1中输入一个正整数n，单击“查找”按钮，找到一个2的幂次方，使其与n之差的绝对值最小，并在标签框 Label1中输出。如果找到两个同时满足条件的幂次方，则输出较小的。程序运行界面如图所示。
(1)、要使程序运行时，标签框Labell的ForeColor属性值为vbRed，可在Form_Load事件处理过程中添加语句（单选，填字母： A . Label1. ForeColor= vbRed/ B . Label1. vbRed= ForeColor/C . Fore Color. Label1=vbRed）。(2)、实现上述功能的VB程序如下，请在画线处填入合适的代码。Private Sub Command 1_ Click()
Dim n As Long, sum As Long, ans As Long
n= Val(Text1. Text)
sum=1
Do While sum <n
Loop
If n =sum Then
ans=sum
ElseIf Then
ans=sum/2
Else
ans =sum
End If
Label 1. Caption = Str(ans)
End Sub
(3)、若文本框Text1中输入的内容为“24”，单击“查找”按钮，标签框 Label1中显示的内容是。 -
4、小轩制作主题为“端午节”的多媒体作品。他用 Photoshop软件处理了背景图片，然后使用 Flash软件制作动画。请回答下列问题：(1)、如图a所示，可以对“农历五月初五”图层直接进行操作的是（多选，填字母： A .设置滤镜/B .使用文字工具修改字体/C .设置图层样式/D .用油漆桶填充颜色）
(2)、如图b所示，诗句1和诗句2（所用元件均不是影片剪辑）实现了从透明到完全显示的动画效果，该动画类型为（选填： 动画补间/形状补间/逐帧动画）(3)、如图b和图c所示，为了实现动画播放到本场景最后一帧能停止，小轩选中了“包粽子按钮”图层最后一帧，设置了stop脚本命令。测试影片时，发现动画停止在了第20帧，出现此问题的原因是。
(4)、为实现单击“赛龙舟”按钮，能跳转到“赛龙舟”场景第1帧并继续播放动画的效果，可为“赛龙舟”按钮添加动作脚本。(5)、测试影片时，发现鼠标移动到“包粽子”按钮上时，没有出现小手形状。编辑按钮元件“包粽子”的部分界面如图c所示。为按钮可正常使用，可做的调整是。
-
5、小李收集了2015-2017年各市城乡居民人均可支配收入情况数据，并使用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、区域I5:I16的数据是通过公式计算得到的：在I5单元格输入公式后，用自动填充功能完成16:I16的计算，则I5单元格中的公式是（增长率%=（当年可支配收入-上一年可支配收入）÷上一年可支配收入×100）。(2)、通过排序使得表格数据按“2017年增长率%”为关键字进行了降序排序，则选择的数据区域为。(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
(4)、将区域A4:I15的数据复制到新工作表后，对“2016年增长率%”和“2017年增长率%”进行筛选操作，筛选设置如图c所示，则筛选出的城市有（填数字）个。
-
6、小明最近学习了一种新的排序方法，其基本思想是： 经过i-1遍加工后，a(1)到a(i-1)已经有序，第i遍加工时将a(i)插入到位置1到位置i之间的适当位置p（包含位置1和位置i），原来位置p及p后的元素一一向右移动一个位置（若插入在位置i，则不需要移动其他元素），使得a(1)到a(i)依然有序，依此重复下去，直到n个数全部排序完成，VB程序段如下：
For i=2 To n
k=a(i):j=j-1
Do While k<a(i)
a(j+1)=a(j)
j=j-1
If j=0 Then Exit Do
Loop
Next i
要实现上述排序算法，方框内VB语句应为（ ）
A、a(j)=k B、a(j+1)=k C、a(i)=k D、a(j-1)=k -
7、编写VB程序，实现把数据key插入到升序序列中，得到一个新的升序序列，原升序序列各元素已依次存放在数组元素a(1)，a(2)，a(3)，……，a(10)中，VB程序段如下：
i=1: j=10
Do While i<=j
m=(i+j)\2
If key <= a(m)Then
①
Else
②
End If
Loop
For k=10 To i Step-1
③
Next k
a(i)=key
要使程序实现上述功能，则划线处①②③中的语句分别是（ ）
A、j=m-1 i=m+1 a(k+1)=a(k) B、j=m-1 i=m+1 a(k)=a(k-1) C、i=m+1 j=m-1 a(k+1)=a(k) D、i=m+1 j=m-1 a(k)=a(k-1) -
8、数组a为一组正整数，其奇数下标的数组元素是升序排序的奇数，偶数下标的数组元素是升序排序的偶数依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序段如下：
key=Val(Text1. Text):i=1:j=10
Do While i <=J
m=Int(i+j)/2+0.5)
If key Mod 2+ a(m) Mod 2= 1 Then m=m-1
If a(m)= key Then
List 1. AddIton"找到了!": Exit Do
ElseIf a(m)> key Then
j=m-2
Else
i=m+2
End If
Loop
If i>j Then List1. AddItem "未找到此数"
如果数组元素a(1)到a(10)的数据依次是“1，4，5，6，11，10，23，16，25，20”，key的值为1，则执行上述程序段，变量m依次被赋值为（ ）
A、5 3 2 1 B、6 3 2 1 C、5 2 1 D、6 5 2 1 -
9、使用 Photoshop软件制作“鸟语花香.psd”作品，部分界面如图所示，下列说法正确的是（ ）
A、“太阳”图层中的太阳可以移动 B、不能在“图层1”上直接添加文字 C、将此psd文件另存为bmp图片，则“鸟”图层中的鸟可见 D、不能在“背景”图层上使用仿制图章工具 -
10、某数据的加密方法如下：
1）将字符的 ASCII码值以字节为单位进行加密处理
2）将1个字节的8位二进制数左移2位，最低位用左移除的2个最高位补充；
3）将二进制数转化为十六进制数，即为该字符的密文
用 UltraEdit软件观察“选考，Fighting！”这几个字的内码如图所示。
则字符“j”加密后的密文是（ ）
A、C1 B、A9 C、2B D、83 -
11、利用 Access软件创建了关于某时刻电影实时票房的数据表，下列说法正确的是 ( )
A、该数据库文件名称为“电影实时票房.accdb” B、当前数据表中共有6个字段，4条记录 C、设计数据表时，“票房占比”字段数据类型可以设置为数字 D、“排名”字段内容前面的“0”手工删除以后就可以将该字段类型改为自动编号 -
12、用word软件编辑某文档后，部分界面如图a所示，选择最后一句话中带波浪线的“一阁被”后单击右键出现如图b所示菜单。
下列说法正确的是（ ）
A、如果拒绝第一行中的所有修订后，有关天一阁修建朝代的句子变为“建于清明朝中期” B、如果修订后的数据是正确的，天一阁的占地面积为“2.6万平方米” C、“一阁被”带波浪线是因为存在拼写错误 D、用户“M1”对“天一阁”进行了批注 -
13、下列说法中，不正确的是（ ）A、淘宝造物节上首次亮相的有“大脑”的无人零售店“淘咖啡”，这使用了人工智能技术 B、扫描二维码这个过程应用了基于内容检索的技术 C、在网上浏览故宫博物院，如同身临其境般感知其内部的方位和物品，这应用了虚拟现实技术 D、某同学要去西藏自助游，利用搜索引擎查找资料，这一过程应用了多媒体技术
-
14、领礼物。圣诞节到了，教室里放满了礼物，大家站在同一位置即原点（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个拿礼物，则你获得的礼物数为。 -
15、编写一个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步之内回到初始数。（选填：能/否） -
16、创作一个题为“乡愁”的多媒体作品，使用Flash软件制作一个动画，设计界面如图所示。请回答下列问题：
(1)、测试影片时，下列操作不影响作品呈现效果的是（多选，填字母: A .隐藏“画板”图层/B .“按钮”图层第1帧清除关键帧/C .“小鸟”图层第30帧插入关键帧/D .“小鸟”图层第1帧删除帧）。(2)、如图所示，“小鸟”图层补间动画设置了缓动，若将缓动值变更为-100，则补间动画时长（选填：变短 / 变长 / 不变）。测试影片，指针经过按钮时，按钮文字图层（选填：有 / 无）内容显示。
(3)、测试影片时，“观赏”按钮一开始就呈现，若要实现“按钮”图层中“观赏”按钮最后一帧才出现，则实现的操作是。(4)、单击“观赏”按钮，实现在浏览器打开网页“http://www.wzta.gov.cn”，并停止播放背景音乐，则“观赏”按钮的动作脚本为。 -
17、某大学院校研究男女学生学习成绩的差异性，相关数据在Excel表中，如下图表格所示。
请回答下列问题：
(1)、在L4单元格中使用 SUMPRODUCT函数计算男生在所有科目考试中获得80~100分的总人数，则L4单元格中的公式是。（提示：SUMPRODUCT函数返回相应的数组或区域乘积的和。例如：= SUMPRODUCT((C4:C11="高等数学")*(D4:D11))表示在数据区域D4:D11中统计科目是高等数学的数值总和）
(2)、根据上图表格所示，区域A3:I11数据已进行了排序，则排序的次要关键字是。(3)、根据上图表格中数据制作的图表如下图所示，创建该图表的数据区域是。
(4)、变更D4单元格数值为4，图表（选填：会/不会）发生变化。 -
18、某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 -
19、（加试题）有如下程序段：
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 -
20、某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