相关试卷
-
1、现有一个整数型数组a (下标1到n)，其值的规律是先升序中间相等，之后降序。现要找到降序的拐点，如数列2、4、8、12、18、 18、 18、18、5、3，其降序的拐点为最后一个18所在的位置，即8号位置。部分程序如下：
L=1：R=n
Do While L<=R
m=(L+R)\2
If ① Then
R=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) -
2、有以下VB程序段
Dim c(-10 To 10) As Integer， a(1 To 10) As Integer， b(1 To 10) As Integer
a(1)=58：a(2)=88：a(3)=66：a(4)=60：a(5)=78
a(6)=32：a(7)=54：a(8)=75：a(9)=99：a(10)=69
Label1． Caption =
For i=1 To 9
b(i)=a(i+1)-a(i)
c(b(i)\10)=c(b(i)\10)+1
Next i
For i=0 To 10
If c(i) > 0 Then Label1.Caption = Label1.Caption + Str(c(i))
Next i
已知数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（ ）
A、131 B、1421 C、1131 D、11421 -
3、有如下的VB程序：
Private Sub Command1_Click( )
Dim a(10) As Integer, n As Integer
a(1) = 1
For i =2 To 10
a(i)=a(i-1)*i
Next i
List1.AddItem Str(a(i))
End Sub
运行该程序，单击命令按钮Command1，弹出的错误信息提示是（ ）
A、溢出 B、下标越界 C、子程序未定义 D、要求对象 -
4、程序运行时分别在文本框Text1与Text2中输入12与20，点击按钮Command1后，文本框Text3中显示的内容是（ ）
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = Val (Text1. Text)
j = Val (Text2.Text)
Text3. Text = Str(i * j / f(i，j))
End Sub
Function f(a As Integer, b As Integer) As Integer
Dim k As Integer
k=a Mod b
If k=0 Then
f=b
Else
f=f(b，k)
End If
End Function
A、4 B、12 C、20 D、60 -
5、在VB中下列关于对象的描述错误的是（ ）A、对象的属性用于描述对象的状态 B、对象的属性与方法可以有多个 C、对象的属性值只能在属性窗口中设置 D、对象事件的发生会驱动该对象相应事件处理过程的执行
-
6、某算法的部分流程图如图所示。执行这部分流程，分别输入4、13、5、17、51、17则输出值依次为（ ）
A、112，120 B、112，110 C、112，120，8 D、112，120，7 -
7、使用会声会影软件进行作品制作，部分操作界面如下图所示。
下列说法正确的是（ ）
A、素材“码头.avi”和素材“中国.jpg”之间可以添加转场效果 B、该作品使用了2个视频素材 C、“bg.mp3”开始播放时“背景.wav”停止播放 D、该作品添加的标题内容是“丝绸之路” -
8、用GoldWave软件编辑某音频文件，部分界面如下图所示，在当前状态下执行“剪裁”命令，保持其他参数不变，保存后的文件大小约为（ ）
A、172KB B、344KB C、177MB D、344MB -
9、雷雷制作了一个关于动漫的作品，部分信息存储在“动漫作品”数据表中，数据表结构及记录分别如图所示，选择右键菜单中的“新记录”并输入相应数据，下列说法正确的是( )
A、数据库的文件名为“动漫作品” B、添加新记录之后，编号3的记录将移到第3条 C、在设计视图中可以将“编号”字段设置为主键 D、在数据表视图中，如果删除了某个字段值，则不能再进行“撤销”操作 -
10、小茗同学将刊登在杂志上的一篇文章扫描后，通过OCR软件识别出文字，并用word软件编辑处理。下列说法不正确的是( )A、若扫描的分辨率太低，会影响OCR软件的识别率 B、王老师可以使用word的批注功能给文章精彩处添加点评 C、软件对导入的扫描文件进行版面分析，这个过程属于人工智能 D、Word软件中完成编辑后，关闭“修订”功能，之前显示的所有修改记录依旧存在
-
11、关于信息和信息技术的说法不正确的是( )A、在支付宝支付时添加了指纹验证，提高了信息的安全性 B、现代信息技术包含通信技术、计算机技术、传感器和机器人等方面 C、随着时间的流逝，很多历史事件会变的无从考证，说明信息具有载体依附性 D、对朋友圈里的信息进行点赞属于信息的个人评价
-
12、某卡牌共有52张牌，分黑桃，红桃，梅花，方块4种花色，每种花色13张(编号为1~13)，花色分别用1，2，3，4表示。将这卡牌打乱后，从中每次摸1张牌，同种花色的牌放起，在每种花色均有3张牌时结束摸牌，然后按花色编号从小到大展示摸到的卡牌。
摸牌规则：
A.当某花色牌不足3张，则记录摸到的牌，继续摸下一张牌
B.当某花色的牌超过3张时，若摸到的卡牌点数大于本花色中已有卡牌点数的最小值，则替换本花色中点数最小的卡牌，否则，弃置摸到的牌。继续下一-张摸牌
C.当所有花色的牌均为3张时结束摸牌。然后按花色编号从小到大展示摸到的卡牌
例如：在某次摸牌后的卡牌如下表所示：
花色
黑桃
红桃
梅花
方块
序号
1
2
3
4
5
6
7
8
9
10
11
12
点数
7
5
12
11
3
8
7
5
8
5
3
1)当下一次摸到“黑桃4”的牌时，4小于已摸到的[7，5，12]，弃置摸到的牌，继续摸牌
2)当摸到“红桃9”的牌时，9大于已摸到的[11，3，8]的最小值3，红桃更新为[11，9，8]，继续摸牌
3)当摸到“梅花9”的牌时，梅花点数更新为[7，5，9]，达到所有花色的牌均为3张的目标，结束摸牌。
模拟此过程编写VB程序，程序运行界面如下图，单击“展示摸到的卡牌”按钮开始摸牌，满足条件时，在列表框中展示摸到的卡牌。
(1)、在如表中所示卡牌状态下，连续2次攒牌为“方块4”，“方块7”后，方块卡牌点数更新为(填点数，逗号分隔)(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Const n = 52
Dim hs(1 To n) As Integer'存储每张卡牌的花色
Dim num(1 To n) As Integer'存储每张卡牌的点数
Din class(1 To 4) As Integer '存储每种花色卡牌的存储位置
Dim record(1 To 12) As Integer
Private Sub Form _Load()
'读取打乱的卡牌中每张卡牌的花色、点数数据，存入数组hs， num中，代码略
End Sub
Private Sub Command1_ _Click()
Dim k As Integer， i As Integer， P As Integer
Dim flag As Boolean
flag = True
For i=1 To 4
class(i) = '计算每种花色卡牌存储的起始位置
Next i
i=1
Do while i<=n And flag=True
k = hs(i)
If class(k) > k* 3 Then
p = pos(i)
If p < 0 Then
End If
Else
record(class(k)) = i
class(k) = class(k) + 1
If class() =4 And class(2) =7 And class(3)=10 And clas(4)= 13 Then
flag= False
End If
End If
i=i+1
Loop
List1.AddItem “”&“花色”&“”&“点数”
For i =1 To 12
List1. AddItem“”& hs(record(i)) &“”& num(record(i))
Next i
End Sub
Function pos(t As Integer) As Integer '返回点数最小卡牌位置
Dim min As Integer
m= (hs(t)-1)*3+1
min= m
If num(record(min)) > num(record(m+ 1)) Then min=m+ 1
If num (record(min)) > num(record(m+ 2)) Then min=m+ 2
If Then
pos= 0
Else
pos=min
End If
End Function
-
13、老张要准备一道晚宴，需要上n个菜，为了省事他在n个不同的餐厅订好了这些菜。现在他需要尽快取回这些菜，对于每一道菜，有两种取菜方式：
1)让各店的外卖员送货上门，对于第i个菜需要花费a(i)的时间。
2)自己去餐厅取回家，每次出门仅能取回一道菜，对于第i个菜，从出门到回家整个过程需要花费b(i)的时间。
每家餐厅都有各自的外卖员送菜，并且无论老张是否在家，他们都能把菜送到。为了节省时间，能由外类员送的菜尽量由外卖负各自送达，现在需要知道最少花费多少时间能集齐所有的菜。
比如n=4，a(i)=(30，70，40，50)，b(1)=(20，10，20，30}，那么花费时间少的方案是第一个菜和第三个菜让让外卖员送，第二个菜和第四个菜老张自己取，一共需要40分钟。
设计VB程序计算最少时间，界面如下图
实现上述功能的VB程序如下，回答以下问题：
(1)、根据程序语句判断对象Lab3属于类。(单选，填字母：A .Form1/B .Label /C .TextBox / D .CommandButton)
(2)、请在划线处填入合适的代码。Const n=4
Dim a(1 To n) As Integer 'n道菜由每家餐厅外卖员送达耗时
Dim b(1 To n) As Integer 'n道菜自取耗时
Private Sub Form Load)
'产生外卖送货各道菜耗时，并存储到数组a中，并显示
'产生自取各道菜耗时，并存储到数组b中，并显示
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, max As Integer, ans As Integer
Dim left As Integer, right As Integer, m As Integer
For i=1 To n
If a(i) > max Then '外卖员送菜的最长时间
Next i
left= 1: right = max: ans = max
Do While left <= right
m= (left + right) \ 2
If Then
ans = m: right=m-1
Else
left=m+1
End If
Loop
Lab3. Caption=“最快”+ Str(ans) + “分钟”
End Sub
Private Function check(t As Integer) As Boolean
Dim total As Integer
check = False
For i =1 To n
If a(i) > t Then
total ='如果外卖来不及就自己取
End If
Next i
If
Then check = TrueEnd Function
(3)、程序中加框处代码有错，请改正。 -
14、小李使用Flash软件制作“四季”多媒体作品，请回答下列问题：(1)、作品的流程设计示意图如图a所示，将“片头”、“片尾”、各功能模块和主交互界面都设计成独立场景，场景播放完成后自动停止，各场景间跳转均通过单击相应场景上相应按钮完成。下列说法正确的是 (多选，填字母)
A、该作品需设计制作9个场景 B、打开作品时直接进入“主交互界面”场景 C、“主交互界面”场景上至少有5个交互按钮 D、设计该示意图属于多媒体创作设计过程中的规划设计阶段 E、“春天”“夏天”“秋天”“冬天”4个模块间可以相互现跳转(2)、“秋天”场景编辑界面如图b所示，“标题”图层中第25帧至第60帧实现文字“秋”由小到大的动画效果，则此补间类型为 (单选， 填字母：A .逐帧动画/ B .形状补间/C .动画补间)。“火车”图层中第1帧至第60帧实现“火车”实例由右向左水平移动的动画效果，则第1帧中“火车”实例的坐标(X，Y)值可能是(单选，填字母： A .(480，-220) /B .(480，220) /C .(-480， -220) /D .(-480， 220))
(3)、“蜻蜓”图层第1帧至第60帧实现“蜻蜓”实例由A点向B点振翅飞行动画效果，现要求在“蜻蜓"实例在第1帧从A点出发，第30)帧时经过C点再飞向B点的动画效果，应进行地操作是 (多选，填字母)A、在“蜻蜒”图层第30帧插入关键帧，移动30帧上“蜻蜓”实例到C点。 B、将“蜻蜓”图层第60帧移动到30帧，在第60帧插入关键帧，移动30帧上“蜻蜓”实例到C点，设置30帧到60帧补间为动画补间。 C、将“婧蜓”图层第60帧移动到30帧，移动30帧上“蜻蜓”实例到C点，在第60帧插入关键帧，移动60帧上“蜻蜓”实例到B点 D、将“蜻蜓”图层第60帧移动到30帧，在第60帧插入关键帧，移动60帧上“蜻蜓”实例到B点。(4)、)根据作品的流程设计示意图图a推测，“按钮”图层最后1帧上的“返回”按钮的功能是单击该按钮跳转到“主交互界面”第1帧并继续播放，则该按钮上的动作脚本是。 -
15、小李同学收集了学校秋季田径运动会各班级部分项目得分的统计数据，使用EXCEL软件进行数据处理，如图a所示。
请回答下列问题：
(1)、小李同学在计算“男生合计”“女生合计”“合计”列得分数据时，先在Q6中输入了公式，然后完成其他单元格的计算，他可能采用的方法是 (多选，填字母)A、选择Q6单元格，向右填充到R6单元格，在S6单元格输入公式“=Q6+R6”，选择Q6：S6区域，向下自动填充到Q17：S17区域。 B、在R6 单元输入公式“=S6-Q6”，在S6单元格输入公式“=Q6+R6”，选择Q6：S6区域，向下自动填充到Q17：S17区域。 C、选择Q6单元格， 向右自动填充到S6单元格，然后分别选择Q6，R6，S6单元格分别向下填充到Q17，R17，S17单元格。 D、在S6单元格输入公式“=SUM(C6：P6)”在R6单元输入公式“=S6-Q6”，然后分别选择Q6，R6，S6单元格分别向下填充到Q17，R17，S17单元格。(2)、如图a所示，小李要对高三各班级按合计得分降序排序，排序范围是。(3)、小李根据图a数据制作了图b所示图表，创建该图表的数据区域是。
-
16、有如下VB程序段：
key = Val (Text1. Text)
i =0：j=9：n=0
Do While i<= j
m=(i+j)\2
n=n+1
If key <= a(m) Then
j=m-1
Else
i=m+1
End If
Loop
s=i
Do While i<9 And a(i)= a (i+1)
i=i+1
Loop
Label2.Caption = Str(n) +“：”+ Str(i + 1-s)
数组元素a(0~9)的值依次为“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中输入“8”，点击“查找”按钮后，Labe12 中输出的结果是( )
A、3：3 B、3：4 C、4：3 D、4：4 -
17、有如下VB程序段：
For i=1 To 5
a(i)=Int (Rnd*9) +1
Next i
For i= 1 To 5
If i Mod2=0 Then
a(i) = a(i)\i
Else
a(i)= a(i) Mod i
End If
Next i
执行该程序段后，在下列选项中a(1)至a(5)各元素可能是（ ）
A、0 3 2 1 4 B、1 2 3 4 5 C、0 1 4 2 3 D、0 5 2 2 4 -
18、有如下VB程序段：
s =" shenzhen"
For i=1 To Len(s)
a(i) = Mid(s，i，1)
b(i) = i
Next i
For i=Len(s) To 2 Step-1
If a(b(i)) >= a(b(i - 1)) Then
t=b(i)：b(i)=b(i-1)：b(i-1)=t
End If
Next i
Text1.Text = b(1)
文本框Text1中显示的内容是（ ）
A、1 B、4 C、5 D、8 -
19、采用冒泡排序算法对数据序列“8，7，2，3，9，6，5”完成升序排序，排序2趟后，正确的顺序是（ ）A、2，3，8，7，5，6，9 B、2，3，8，7，9，6，5 C、2，3，5，6，7，8，9 D、2，3，7，5，6，8，9
-
20、某算法流程图如图所示，执行这部分流程，输入m，n的值分别为18，12，下列说法正确的是（ ）
A、流程执行后输出结果是18 B、条件“r=0？”被执行3次 C、输入时交换m，n的值，输出结果与交换前相同 D、该流程功能是求m， n的最大公约数