编辑: 苹果的酸 | 2019-10-08 |
一、选择题(本题包括12小题,每小题2分,共24分) 1.
某日收到如图所示的微信短信,收到此条短信后正确的做法是 A.马上登陆微信,一直保持登录状态,防止他人登录成功 B.马上修改微信密码,提高安全等级 C.马上将手机换成samsung-GT-I9000 D.马上将手机关机 2.用Word软件编辑某文档的部分界面如下图所示. 第2题图 对于图中所示部分的文档,下列说法正确的是 A.用户s1添加批注的对象为 闻 B.文档中,图片的环绕方式是 嵌入型 C.图中共有3处修订 D.若接收修订,最后一句话的显示为 是故无贵无贱,无长无少,道之所存,师之所存也. 3.某软件运行部分界面如第3题图所示.该软件能连续记录并及时反馈了用户在步行过程中的步数、距离和消耗的热量.这主要体现了多媒体技术的 A.安全性 B.集成性 C.实时性 D.交互性 4.使用Access软件创建的 图书 数据表,其设计视图和数据表视图的部分界面如图所示. 下列说法正确的是() A.该数据表共有15条记录,在当前状态下若要快速浏览第12条记录,可在 搜索 处输入
12 ,然后按回车键 B.在当前记录上选择右键菜单中的 新记录 命令,则新记录是第16条记录 C.可在当前数据表中添加一条如
5 高中三年我的奋斗我的梦 和云峰 2018/3/27
28 的新记录 D.当前数据表中 书名 字段最多可以输入63999个字符 5.某算法流程图如第5题图所示,最后输出s的值是( ) 第5题图 A. 0.25 B.
1 C.
2 D.
8 6.现在用手机扫描二维码,可以获得各种商品信息、下载各类应用程序等.已知该二维码点阵图如图所示,它的规模为32*32,通过黑、白像素进行逐行编码,每个点用1个二进制位表示,如果用
0 表示白点,用
1 表示黑点,则以下描述正确的是 A.该编码的第1个字节的二进制编码是1111B B.存储该编码需要32*32个字节 C.该编码第一行编码需要2个字节 D.该编码的第一行的第2个字节的十六进制编码是25H 7.使用PhotoShop软件对 旅行.psd 进行处理,编辑界面如下图所示. 下列说法正确的是 A. 旅行 图层添加了波纹滤镜效果 B.当前状态下,可直接删除 背景 图层 C.该图像采用RGB模式,每个像素用8位保存 D.按当前设置保存为jpg格式文件, 女孩 图层中的投影效果不会消失 8.用会声会影软件编辑影片,时间轴如下图所示 分析图中信息,下列说法错误的是 A.该影片中有3个视频素材、2个图片素材、2个音频素材 B.视频播放时, I14.jpg 会遮挡 Ski_1.bmp 的部分图像 C.可在 Ski-V01.mpg 和 End.avi 之间添加转场效果 D. The End 文字显示结束时,影片也正好结束 9. 小李使用Flash软件制作蝴蝶飞舞的动画,其部分界面如第9题图所示. 第9题图 分析图9中的信息,下列描述不正确的是( ) A. 图层1 中的动画是一个逐帧动画 B. 图层2 最后一帧没有延续该图层第1帧的画面内容 C.从第一帧播放到最后一帧的时间约为2秒D.当前正在编辑 Main 场景中的 图层2 10.小王用GoldWave软件编辑 背景音乐.wav ,界面如下图所示,在当前状态下.若执行 删除 与 插入10秒静音 两步操作后以原参数保存文件,则保存后的文件存储容量约为 A. 3.36MB B. 5.05MB C.6.73MB D.53.83MB 11.【加试题】有如下VB程序段: Dim a(1 To 10) As Integer, i As Integer, j As Integer a(1) = 1: a(2) =
1 For i =
3 To
5 a(i) =
1 For j = i -
1 To
2 Step -1 a(j) = a(j) + a(j - 1) Next j Next i Text1.Text = Str(a(3)) 该程序段运行后,在文本框Text1中显示的内容是 A.1 B.3 C.4 D.6 12.【加试题】有如下VB程序段: Dim a(1 To 10) As Integer s =
7218634594 : n = Len(s) t =
0 For i =
1 To n -
1 a(i) = Val(Mid(s, i, 2)) Next i For i =
1 To n -
2 Step
2 k = i For j = i +
2 To n -
1 Step
2 If a(j) <
a(k) Then k = j Next j If k i Then temp = a(i): a(i) = a(k): a(k) = temp: t = t +
1 End If Next i Text1.Text = Str(t) 该程序段运行后,文本框Text1中显示的内容是 A.
1 B.
2 C.
3 D.
4
二、非选择题(第16小题8分,第17小题5分,第18小题7分共20分) 13..浙江省统计局对主要市场进出口情况做了数据分析,界面如第13题图a所示,请回答相关问题. 第13题图a (1)在C5单元格输入公式,然后采用自动填充的方式得到浙江出口额2013年占总比.复制C5:C12单元格数据后右击E5单元格,出现第13题图b选择①或③可得到对应占总比,则E7单元格的公式为 =D7/D$13*100 . 第13题图b (2)为直观显示浙江省2013年、2014年对外出口情况,制作相应
图表如第13题图c所示,其数据区域是 A4:B12,D4:D12 . 第13题图c 第13题图d 若要显示出口增长最快的3个市场,则可根据第13题图d所示,选择 10个最大值 达到目的.若完成筛选,第13题图c所示
图表 会 (填:会/不会)发生变化. 编写 二进制加法 程序.程序运行时,在文本框 Text1 和文本框 Text2 分别输入两个二进制数,单击按钮 Command1 后在文本框 Text3 上输出两个二进制相加后的结果.程序运行如图所示. (1)观察代码,触发代码执行的事件名是__Click_ (2)为实现上述功能,请在划线处填入合适的代码. Private Sub Command1_Click() Dim b1 As String, b2 As String, ans As String, t As String Dim dist As Integer, jw As Integer b1 = Text1.Text: b2 = Text2.Text : ans= dist=len(b1)-len(b2) If dist <
0 Then t = b1: b1 = b2: b2 = t: dist = -dist End If For i =
1 To dist b2 =
0 + b2 Next i jw =
0 For i = Len(b1) To
1 Step -1 x = Val(Mid(b1, i, 1)) + Val(Mid(b2, i, 1)) + jw jw=x2 ans = Str(x Mod 2) + ans Next i If jw=1 Then ans =
1 + ans Text3.Text = ans End Sub 15.小明创作多媒体作品.使用 Photoshop 软件制作一张背景图片,然后使用 Flash 软件制作动画. 第15题图a 第15题图b 请回答下列问题: (1)在如第
15 题图a所示的图层面板中,可直接添加滤镜的图层有_____(多选,填字母:A. 文字 图层/ B. 大雁 图层/ C. 花 图层/ D. 荷叶 图层/ E. 背景 图层).(注:选对且选全得 满分,不选或选错不得分,少选且选对得部分分.) C D E (2)在图a所示的状态下,小明用选框工具选中了其中的一只大雁,选择 编辑 菜单中的 粘贴 命令,则图层数量会 (填:增加/减少/不变).增加 (3)在15题图b所示状态下,利用库中 文字 元件,在舞台中的 文字 图层制作补间动画,实现文字由远到近,淡入出现在舞台,这种动画属于_动画.(选填:逐帧/形状补间/动画补间). 动画补间 (4) 蜻蜓 图层中的 蜻蜓 元件实例具有蜻蜓翅膀拍动效果,元件编辑的部分界面如图c所示.在测试影片时,发现蜻蜓翅膀拍动太慢.在不改变场景中其他对象动画播放速度的前提下,仅编辑 蜻蜓 元件,使蜻蜓翅膀拍动速度提高1倍的操作方法是_ 将第5帧移动到第8帧,然后删除第5帧到第8帧. 或删除原第2帧到第4帧之间的任意两帧及原第6帧到第8帧之间的任意两帧. 第15题图c 测试影片,当前动画停在最后1帧(第50 帧),并出现 播放 按钮,若要单击该按钮,能使影片跳转到 main 场景第1帧继续播放,则按钮需添加的动作是_ on(release){gotoandplay( main ,1);
} 或on(press){gotoandplay( main ,1);
} 16.【加试题】查找并删除重复数据的算法是基于顺序查找的优化,主要思路是把待查数据的起点元素设置成查找关键字,然后从后往前查找,通过结束时停留的数据位置来判断查找结果(即结束时若停留在数据序列的起点,表示数据序列中无重复数据;
否则,存在重复数据,删除该数据后继续查找). 编写VB程序,实现上述算法.程序功能如下:运行程序时,在列表框List1中显示数组a中的原始数据;
单击 去重 按钮(Command1),查找数组a中的重复数据并删除,即相同的数据仅保留一个,并在列表框List2中输出去重后的数组a中的数据,同时在标签Label1中显示删除的数据总个数,运行效果如第16题图所示. 实现上述功能的VB代码如下,但加框处代码有错,请改正. Const maxn =
10 Dim a(1 To maxn) As Integer Private Sub Form_Load() '
maxn个数据存储在数组a中,并在列表框List1中显示 '
代码略 End Sub Private Sub Command1_Click() Dim i As Integer, n As Integer '
n用于存储当前查找的数组长度 Dim j As Integer, key As Integer '
key用于存储本次查找关键字的数据位置 key = 1: n = maxn Do While ke........