相关试卷
-
1、成语“半斤八两”反映的是以下哪种进制（ ）。A、十进制 B、八进制 C、十六进制 D、二进制
-
2、三国演义中的“空城计”反映了信息的（ ）。A、共享性 B、价格性 C、真伪性 D、载体依附性
-
3、结果与（30）16 -（1）16 相等的是（ ）。A、（29）16 B、（29）10 C、（2F）16 D、（2F）10
-
4、现有n项先后出现的任务，每项任务需要一定的时间完成，且每个时刻只能执行某一项任务。任务的执行规则如下：
每项任务有一个紧急程度，用数字表示，数字越大紧急程度越高。紧急程度最高的任务优先执行，紧急程度相同先出现先执行。若某项任务在执行过程中出现了一个紧急程度更高的任务，则正在执行的任务将被暂停，执行该紧急程度更高的任务。
编写VB程序，功能如下：程序运行时，各项任务数据按出现时刻升序显示在列表框List1中，单击“开始”按钮Command1，按照任务完成的先后顺序，在列表框List2显示每项任务的编号以及完成时刻。程序运行界面如图所示：请回答下列问题：
(1)、若有3个任务需要完成，数据如下：1号任务：时刻1出现，完成所需时长4，紧急程度1
2号任务：时刻2出现，完成所需时长2，紧急程度2
3号任务：时刻7出现，完成所需时长1，紧急程度3
则这3个任务的完成的顺序为（单选，填字母：A . 1号、2号、3号 /B . 2号、3号、1号 / C . 2号、1号、3号）。
(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim id(0 To 100) As Integer '任务编号
Dim t(0 To 100) As Integer '出现时刻
Dim L(0 To 100) As Integer '完成所需时长
Dim v(0 To 100) As Integer '紧急程度
Dim n As Integer '总任务数
Private Sub Form_Load()
'本过程读取任务编号、出现时刻、完成所需时长和紧急程度的数据分别存储在数组 id，t，L和v中，并在List1中显示，代码略
End Sub
Private Sub Command1_Click()
Dim q(0 To 100) As Integer 'q 数组按优先顺序存储已出现的任务编号
Dim k As Integer, i As Integer, j As Integer, cur As Integer
cur = 0: k = 0 'cur 记录当前时刻
For i = 1 To n
Do While k > 0 And t(i) >= cur + L(q(k)) '新的任务出现时，计算并输出已经完成的任务编号
List2.AddItem adj(2, (id(q(k)))) + adj(6, cur + L(q(k)))
cur = cur + L(q(k))
k = k - 1
Loop
If k > 0 Then L(q(k)) = '更新正在执行的任务的完成所需时长
k = k + 1
j = k
Do While v(q(j - 1)) >= v(i)
q(j) = q(j - 1)
j = j - 1
Loop
q(j) = i
Next i
Do While
List2.AddItem adj(2, id(q(k))) + adj(6, cur + L(q(k)))
cur = cur + L(q(k))
k = k - 1
Loop
End Sub
Function adj(x As Integer, v As Integer) As String
'adj可以通过添加前置空格将v转化为x位长度的字符串，便于输出对齐，代码略
End Function
-
5、现有n*n大小的网格（n≤10），每个格子从左到右、从上到下编号依次编号为1、2、3„„n*n，当n为3时，网格如图a所示。网格中每个格子都有一面沿对角线方向放置的挡板，且朝向随机。现将一个小球从左上角1号格子自上而下射入网格，则小球将在网格中不断反弹（不考虑实际的能量损失与重力影响等因素），最终从某个格子离开网格，根据挡板的朝向与小球的运动方向，将有几种不同的反弹情况。如图b所示，小球进入网格后，先后经过1、2、5、6、3号格子，之后离开网格。
编写VB程序，功能如下：在文本框Text1中输入n的值，单击“生成”按钮Command1，
生成网格和随机的挡板，并输出。然后单击“开始”按钮Command2，在文本框Text2中显示小球进入网格后的运动路径。程序中利用数组a存储网格的状态，其中“/”与“\”两种字符表示两种朝向的挡板。程序运行界面如图c所示。
图 c请回答下列问题：
(1)、要使程序运行时，窗体标题显示“网格弹球”，可在Form_Load 事件过程中添加语句（单选，填字母:A . Form1 = "网格弹球" / B . Forml.Text="网格弹球"/ C . Form1.Caption="网格弹球"）。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim n As Integer
Dim a(0 To 100) As String
Private Sub Command1_Click() '生成网格和挡板
n = Val(Text1.Text)
'生成 n*n 的网格和随机的挡板，并通过图形控件输出，代码略
End Sub
Private Sub Command2_Click()
Dim ans As String, pre As String
Dim cur As Integer
cur = 1: : ans = ""
Do While cur >= 1 And cur <= n * n
ans = ans + Str(cur) + "→"
If pre = "左" And a(cur) = "\" Or pre = "右" And a(cur) = "/" Then
cur = cur + n: pre = "上"
ElseIf Then
cur = cur - n: pre = "下"
ElseIf pre = "上" And a(cur) = "\" Or pre = "下" And a(cur) = "/" Then
If cur Mod n = 0 Then
Exit Do
Else
cur = cur + 1: pre = "左"
End If
ElseIf pre = "上" And a(cur) = "/" Or pre = "下" And a(cur) = "\" Then
If
ThenExit Do
Else
cur = cur - 1: pre = "右"
End If
End If
Loop
Text2.Text = ans + "离开"
End Sub
(3)、程序中加框处代码有错，请改正。 -
6、小李使用Flash软件创作“世界读书日”多媒体作品。请回答下列问题：(1)、对作品进行前期的规划设计和素材收集，下列说法正确的是 (多选，填字母:A . 确定作品的结构类型属于创作需求分析/ B . 查阅系统结构设计报告可以了解整个作品的组成部分、主要界面等/ C . Flash 软件属于以页为基础的多媒体创作工具/ D . 从网上下载背景图片并加工处理，属于媒体元素分解)。(2)、“片头”场景的编辑界面及“觅求真知”图层第30帧实例大小和位置属性如图所示。“觅求真知”图层第30帧到第50帧实现了“觅求真知”文字逐渐消失的动画效果，下列说法正确的是 （多选，填字母）。
A、文字动画效果也可以使用影片剪辑类型的元件制作 B、由于第50帧实例的Alpha值被设置为0%，在元件的编辑界面下无法显示元件的内容 C、第50帧实例的宽和高分别为(56,21)，位置x和y分别为(370,290)，实现的动画效果是从四周向中心不断缩小 D、若将文字动画的缓动值调整为100，测试场景时，文字实现加速消失的动画效果(3)、现要修改“觅求真知”图层动画：文字从第30帧到第40帧逐渐消失后，又从第40帧到第50帧逐渐显示，则操作步骤为 （按操作顺序选填4个序号）①将第30帧内容复制到第50帧
②将第50帧移动到第40帧
③在第50帧执行“插入空白关键帧”操作
④选择第40帧，创建补间动画
⑤选择第50帧，创建补间动画
(4)、测试影片时，为了使该场景动画播放到最后一帧能自动跳转到本场景第1帧并继续播放，应进行的操作是 。 -
7、小王收集了某商品的年度销售数据，并使用Excel软件进行数据处理，如图a所示。
图 a
请回答下列问题：
(1)、区域N5:P5的数据是在N5单元格中输入公式，然后利用自动填充功能得到的，则N5 单元格中的公式可以是 (多选，填字母)。A、=N4/SUM(J4:J15) B、=N4/SUM($J4:$J15)*100 C、=N4/SUM(J$4:J$15)*100 D、=N4/($N$4+$O$4+$P$4)*100 E、=N4/(N4+O4+P4)(2)、根据图a中的数据直接制作的图表如图b所示，创建该图表的数据区域是。
图 b
(3)、将区域A1:K15的数据复制到新工作表并进行筛选，设置渠道1、渠道2、渠道3销售额的筛选方式均如图c所示，则筛选出的月份是（填具体月份）。
图 c
-
8、有如下 VB 程序段：
For i = 1 To 5
k = i
For j = i + 1 To 6
If a(j) Mod 3 <= a(k) Mod 3 Then k = j
Next j
tmp = a(i): a(i) = a(k): a(k) = tmp
Next i
数组元素 a(1)～a(6)的值依次为“62，54，35，67，15，34”。执行该程序段后，a(1)～a(6)的值依次为（ ）
A、15 54 34 67 35 62 B、54 15 67 34 62 35 C、15 34 35 54 62 67 D、15 34 67 62 54 35 -
9、现有一个整数型数组a（下标1到n），其值的规律是先升序，中间相等，之后降序。现要找到降序的拐点，如数列2、4、11、15、15、15、14、11、10、8，其降序的拐点为最后一个15所在的位置，即6号位置。部分程序如下：
L = 1: R = n
Do While L <= R
m = (L + R) \ 2
If
ThenR = m - 1
Else
L = m + 1
End If
Loop
Text1.Text =
为实现上述功能，则程序中方框处填写的代码是（ ）
A、a(m) > a(m + 1) 和Str(R) B、a(m) > a(m + 1) 和Str(L) C、a(m) >= a(m + 1) 和Str(R) D、a(m) >= a(m + 1) 和Str(L) -
10、有如下 VB 程序段：
s = Text1.Text
If Mid(s, 1, 1) = "(" Then flag = True Else flag = False
cnt = 0: sum = 0
For i = 2 To Len(s)
c = Mid(s, i, 1)
If flag = True Then
If c >= "a" And c <= "z" Then
sum = sum + 1
Else
If sum <> 0 Then cnt = cnt + 1: sum = 0
End If
End If
If c = "(" Then flag = True
If c = ")" Then flag = False
Next i
文本框Text1的内容为一串只包含小写字母、左右括号和空格的字符串“(we can) do (better) we (should (be )better)”，执行程序段后，变量cnt的值为（ ）
A、3 B、4 C、5 D、6 -
11、有如下VB程序段：
a(1) = 1: s = 0
For i = 2 To 6
s = 0
For j = 1 To i – 1
s = s + a(j)
Next j
a(i) = s + 1
Next i
执行该程序段后，a(6)的值为（ ）
A、15 B、16 C、32 D、64 -
12、某算法的流程图如图所示，执行这部分流程，则输出 c 的值为（ ）
A、3 B、4 C、5 D、6 -
13、现要计算出a、b之间（包含a、b）3的倍数的个数，下列VB表达式正确的是（ ）A、b\3-(a-1)\3 B、(b-a+1)\3+1 C、(b-a)\3+1 D、(b-a-1)\3
-
14、下列关于声音的数字化说法，错误的是（ ）A、增大声音的音量，并不会影响该声音的量化位数 B、声音数字化的结果是将声音信息转换成二进制编码 C、声音文件能被压缩的原因之一是声音信息中存在时间冗余 D、对同一个声音信息采样点分别采用8位和24位量化，量化等级之比为1:3
-
15、用Photoshop软件制作“二十四节气”作品，在“小雪”图层中已选择矩形区域，如图所示。
下列说法正确的是（ ）
A、不能将“鹤”图层的“鹤”图像复制到新的图层中 B、删除“背景”图层，文档①处指向的值不会发生改变 C、可以使用仿制图章工具，将“图章”图层中的图像仿制到“文字”图层 D、复制“树”图层的图层样式到“小雪”图层，外发光效果只出现在“小”图像上 -
16、将下列数转换为十进制数，除以4后余数为3的是（ ）A、A90H B、100110B C、FFFH D、101101B
-
17、用 Access 软件设计“图书”数据表，在数据表中已录入如图a所示的原始数据，其设计视图如图b所示。
图 a
图 b下列描述正确的是（ ）
A、Access软件属于数据库应用系统 B、可以增加数据类型为自动编号的“序号”字段 C、设计视图中字段顺序必须要和原始数据的列顺序保持一致 D、向数据表中添加新的记录时，“图书编号”字段的有效输入值可以为“20182002” -
18、下列有关网页与浏览器的说法，正确的是（ ）A、使用搜索引擎检索的结果中，排在第一条的内容必定准确度最高 B、使用浏览器收发电子邮件的过程中涉及的协议只有POP3和SMTP C、使用HTML协议在浏览器与Web服务器之间传输的信息内容是用HTTP描述 D、在IE浏览器中以“文本文件(*.txt)”类型保存网页，无法保存网页中的超链接地址
-
19、下列关于信息与信息处理的说法，错误的是（ ）A、使用计算机处理信息，其本质都是通过计算来完成的 B、信息的加工必须使用智能手机、计算机等终端才能完成 C、拍图识字、汽车自动驾驶等信息处理应用了人工智能技术 D、计算机进行信息处理时不仅与硬件密切相关，还需软件支持
-
20、某单位拟进行人事招聘，根据“笔试”和“面试”成绩计算最后名次。规则如下：
记录各个考生的笔试和面试得分，根据得分分别计算笔试和面试的名次（得分越高排名越前，得分相同，名次也相同）；再根据笔试和面试的名次计算总分（总分=笔试名次+面试名次）；最后计算总分的名次（总分越低排名越前，得分相同，名次相同）。程序设计过程中，为节省内存，尽可能少使用数组，编程实现上述功能：窗体加载时，自动从数据库读取考生的笔试和面试得分，显示在列表框 List1 中；在文本框 Text1 中输入录取人数 n，单击“统计”按钮 Command1，在标签 Label1、Label2 和 Label3 中分别输出笔试、面试、总分前 n 名的考生编号。程序运行界面如图所示。
(1)、根据评比规则和图中数据，1号考生的两项竞赛的总分是(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Const n = 9
'数组 xh、df 和 mc 分别存储选手编号、得分和名次；df 数组的 1～n 元素存储笔试相关数据；n+1～2n 元素存储对应选手的面试相关数据；2n+1～3n 元素存放两项考试总分相关数据
Dim xh(1 To n * 3) As Integer, df(1 To n * 3) As Integer, mc(1 To n * 3) As Integer
Dim i As Integer, j As Integer, t As Integer
'本过程从数据库读取各选手的选手编号、得分数据，分别存储在数组 xh、df 中
Private Sub Form_Load( )
List1.Clear
List1.AddItem "选手" + " " + "笔试" + " " + "面试"
For i = 1 To n
xh(i) = i: xh(n + i) = i
Next i
For i = 1 To n
List1.AddItem Str(xh(i)) + " " + Str(df(i)) + " " + Str(df(n + i))
Next i
End Sub
Private Sub Command1_Click()
Dim c As Integer
c = Val(Text1.Text)
Label1.Caption = "笔试前" & Str(c) & "名：" & pm(1, n, c, False)
Label2.Caption = "面试前" & Str(c) & "名：" & pm(n + 1, 2 * n, c, False)
For i = 1 To n
xh(2 * n + i) = i: df(2 * n + i) = 0: mc(2 * n + i) = 0
Next i
For i = 1 To 2 * n
df(2 * n + xh(i)) = df(2 * n + xh(i)) + mc(i)
Next i
Label3.Caption = "总分前" & Str(c) & "名：" & pm
End Sub
Function pm(ks As Integer, js As Integer, num As Integer, fx As Boolean) As String
For i = ks To js - 1
For j = js To ks + 1 Step -1
If (fx And df(j) < df(j - 1)) OrThen
t = df(j): df(j) = df(j - 1): df(j - 1) = t
t = xh(j): xh(j) = xh(j - 1): xh(j - 1) = t
End If
Next j
Next i
mc(ks) = 1: pm = Str(xh(ks))
For i = ks + 1 To js
If df(i) = df(i - 1) Then
Else
mc(i) = i - ks + 1
End If
If mc(i) <= num Then pm = pm & "," & Str(xh(i))
Next i
End Function