相关试卷
-
1、某算法的部分流程图如图所示,执行这部分流程后,变量x和Flag的值分别是( )
A、2,True B、3,True C、2,False D、3,False -
2、有一Access数据表,表的结构如左图所示,在数据录入时截图如右图所示,下列说法正确的是( )
A、“ID”字段值一定是连续的 B、“生日”字段可以输入“1998-8-25” C、“入学成绩”字段中可以输入“Pass” D、删除第2条记录后,可以在该位置插入一条记录 -
3、用户进入QQ邮箱后,“写信”时的部分界面如图所示,以下说法错误的是( )
A、该邮件带有附件 B、邮件发送的协议是SMTP C、点击发送共有3人可接收该邮件 D、收件人可以看到该邮件发给了Apple -
4、老师对小张的文档进行修订后,部分截图如图所示,对小张审阅的说法正确的是( )
A、拒绝修订结果为:My name are Mike, I come from USA. B、拒绝修订结果为:My name is Mike, I come from. C、同意修订结果为:My name are Mike, I come from USA. D、同意修订结果为:My name is Mike, I come from USA. -
5、银行为用户提供了动态口令卡,动态口令使用一次后就自动失效,下次需要时可产生新的动态口令,“动态口令只能使用一次”这符合的信息特征是( )A、传递性 B、共享性 C、安全性 D、载体依附性
-
6、 某移数字游戏的规则如下:有一个如图a所示的包含9个圆圈的数阵。将1~8这8个数字随机地填写到该数阵的外层圆圈中,只剩下中间的一个空圆圈。规定每个数字只能按照数阵中的直线从一个圆圈移动到另一个空的圆圈中。通过若干步的移动,要求将该数阵中的数字移动成为如图b所示的状态。
小张编写了一个VB程序来解这个游戏,功能如下:点击“初始化”按钮Command1初始化游戏,程序随机地将1~8这8个整数填入到数阵的外层圆圈中,同时将该状态下的数阵显示在列表框List1中。点击“开始”按钮Command2,程序开始移数字,并将移动过程中的每一步输出在列表框List2中,最后统计总移动步数到标签Label1中。为了清楚地描述输出数字在数阵中的每一步移动步骤,小张给数阵中的每一个圆圈都进行了编号,具体编号方法如图c所示,因此1号圈中的数字移动到2号圈可以表示为“1#-->2#”。程序运行界面如图d所示。



实现上述功能的VB代码如下。(1)、请在划线处填入合适代码Dim a(1 To 8) As String
Private Sub Command1_Click()
Dim temp As Integer, i As Integer, j As Integer
Dim flag(1 To 8) As Boolean
For i = 1 To 8
①
Next i
Randomize
For i = 1 To 8
temp = Int(Rnd() * 8 + 1) '生成1~8之间的随机整数
Do While flag(temp)
temp = Int(Rnd() * 8 + 1) '生成1~8之间的随机整数
Loop
a(i) = temp
flag(temp) = True
Next i
List1.Clear
List1.AddItem "初始状态:"
PrintCircle
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, temp As String, n As Integer, moveStep As String
moveStep = ""
List2.Clear
n = 0
For i = 1 To 7 '使用冒泡排序对圆圈中的数字进行移动
For j = 1 To ②
If a(j) >= a(j + 1) Then
temp = a(j): a(j) = a(j + 1): a(j + 1) = temp
moveStep = Str(j) & "#--> 0#"
moveStep = moveStep & " " & Str(j + 1) & "#-->" & Str(j) & "#"
moveStep = moveStep & " " & "0#-->" & Str(j + 1) & "#"
List2.AddItem moveStep
n = n + 1
End If
Next j
Next i
List1.AddItem "移动数字后:"
PrintCircle
Label1.Caption = "总移动步数:" & ③
End Sub
'在列表框List1中输出当前的数阵状态
Function PrintCircle()
List1.AddItem "-------------------------"
List1.AddItem "[" & a(1) & "]-[" & a(2) & "]-[" & a(3) & "]"
List1.AddItem " | \ | / |"
List1.AddItem "[" & a(8) & "]-[" & " " & "]-[" & a(4) & "]"
List1.AddItem " | / | \ |"
List1.AddItem "[" & a(7) & "]-[" & a(6) & "]-[" & a(5) & "]"
List1.AddItem "-------------------------"
End Function
① ② ③
(2)、分析代码和游戏规则,事件处理过程“Command2_Click”中的冒泡排序(填 :能 / 不能)改为使用选择排序。 -
7、编写VB程序,实现如下功能:在文本框Text1中输入一个整数,单击“查找”按钮,找出该整数的全部的连续整数固定和,并将它们显示在列表框List1中。所谓一个数n的连续整数固定和,就是指存在a1 , a2 , …,an , 其中ai+1比ai大1,使得a1+a2+…+an=n。这样a1 , a2 , …,an称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组,运行界面如图所示,实现上述功能的VB代码如下,但加框处代码有错,请改正。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim n As Integer
n = Val(Text1.Text)
sum = 0
List1.Clear
For i = 1 To n ' ①
j = i - 1
Do While sum <= n ' ②
j = j + 1
sum = sum + j
Loop
If sum = n Then
List1.AddItem Str(i) & " + ... +" & Str(j) & "=" & Str(n)
End If
sum = 0
Next i
End Sub

① ②
-
8、使用Flash软件创作有关“秋”的多媒体作品,部分界面如图所示。请回答下列问题:
场景:main
类别序号:2
进入方式:由“load”场景单击“播放”按钮进入
呈现方式:
⒈“文字1”和“文字2”均由小变大,出现在舞台中间偏上位置。
⒉其他动画略。
呈现顺序说明:
⒉一开始出现背景图片、“太阳”、“云”、“文字1”、“枫叶1”和“枫叶2”的动画,再出现“文字2”和“蜻蜓”的动画。
⒉该场景播放结束后,跳转到第1帧继续播放。
(1)、在制作作品之前,小李要先确定作品主要面向哪些用户,用户的计算机应用水平如何,作品一般在什么场合使用,该分析过程属于多媒体创作中的 (单选,填字母)A、应用需求分析 B、创作需求分析(2)、根据小李的设计,“文字1”由小变大,出现在舞台中间偏上位置。已知该动画舞台大小为600×400像素,则“文字1”实例在第11帧时的坐标可能是。(单选,填字母:A/B/C/D)
A
B
C
D(3)、根据小李的设计,“main”场景开始播放后,经过约(填:整数)秒,舞台中开始出现“文字2”动画。(4)、要实现该场景播放结束后,跳转到第1帧继续播放,应在“云”图层的第85帧添加的动作脚本是。(5)、小李在测试影片时发现动画在播放到最后,“背景”图案总是会突然消失。要解决这一问题,可在“背景”图层的第85帧上右击,然后在快捷菜单中选择 (单选,填字母)A、删除帧 B、清除帧 C、清除关键帧 D、转换为关键帧 -
9、编写VB程序,实现如下功能:在文本框Text1中输入整数n(1≤n≤10),单击“生成矩阵”按钮Command1,生成n2个10到99之间(包含10和99)的随机整数,并以n行、n列矩阵的形式显示在列表框List1中,再单击“对角线”按钮Command2,则在标签Label1中输出该矩阵对角线(左上角到右下角)上的数值,运行界面如图所示,程序代码如下。(1)、要使文本框Text1上显示的默认文本由“8”改为“10”,可在其属性窗口中将属性的属性值改为“10”。
(2)、为了实现上述功能,请在划线处填入合适的代码。Const MAXNUM = 100
Dim i As Integer, n As Integer
Dim a(1 To MAXNUM ^ 2) As Integer
Private Sub Command1_Click()
Dim line As String
n = Val(Text1.Text)
line = ""
List1.Clear
Randomize
For i = 1 To n ^ 2
a(i) = ①
If i > 1 And i Mod n = 1 Then
List1.AddItem line
line = Str(a(i))
Else
line = ②
End If
Next i
List1.AddItem line
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
For i = 1 to ③
Label1.Caption = Label1.Caption & Str(a(i + (i - 1) * n))
Next i
End Sub
① ② ③
-
10、小王收集了2016年第三季度浙江省各地区工业增加值数据,并用Excel软件进行数据处理,如图a所示。请回答下列问题:
(1)、区域B14:G14的数据是通过公式计算得到的,在B14单元格输入公式时应用了AVERAGE函数,并用自动填充功能完成区域C14:G14的计算,则F14单元格中的公式。(2)、若要对各地区数据以“8月”为关键字按降序进行排序,则排序时选择的数据区域是。(3)、根据图a中数据制作的图表如图b所示,创建该图表的数据区域是 。
(4)、将区域A2: G13的数倨复制到新工作表并进行筛选操作,设置“9月”和“9月同比±%”的筛选方式如图c和图d所示,则按此设置筛选出的地区有个。
-
11、某VB程序功能如下:输入正整数n,单击命令按钮Command1后,则会生成一串有规律的数字序列,形式为“n n-1 n-2 … 3 2 1 2 3 … n-2 n-1 n”。例如n=8时,生成的数字序列如图所示。代码如下:

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i <= n Then ① Else ②
Next i
Label1.Caption = s
End Sub
为实现以上功能,划线①②处应分别填写( )
A、①s = s & Str(n - i + 1) ②s = s & Str(i - n + 1) B、①s = Str(n - i + 1) ②s = Str(i - n + 1) C、①s = s & Str(i - n + 1) ②s = s & Str(n - i + 1) D、①s = Str(i - n + 1) ②s = Str(n - i + 1) -
12、某对分査找算法的VB程序段如下:
i= 1 : j =9 : n =0
key=Val( Textl.Text)
Do While i <= j
m=(i + j) \ 2
If key = d(m) Then
Exit Do
j= m - 1
Else
i=m+1
End If
Loop
方框中的正确代码应为( )
A、End If B、If key < d(m) Then C、ElseIf key < d(m) Then D、If key > d(m) Then -
13、一幅未经压缩的1920×1080像素的256级灰度的BMP图像,其存储容量约为( )A、63.3MB B、1.98MB C、1.48MB D、15.8MB
-
14、使用Photoshop软件对“中国印象.psd”进行处理,编辑界面如下图所示。


下列说法中正确的是( )
A、“茶”图层没有设置图层样式,因而可以使用“文字工具”对其中的文字进行修改 B、“茶壶”图层的图层样式不可以拷贝并粘贴到“茶”图层 C、交换“茶”图层和“墨迹”图层的位置,不影响作品的呈现效果 D、对“茶壶”图层设置了名为“效果”和“投影”的图层样式 -
15、字母“a”的ASCII码值是97D,则字母“h”的十六进制ASCII码值是( )A、68H B、104H C、9EH D、66H
-
16、图像序列中的两幅相邻的图像,后一幅图像与前一幅图像之间有较大的相关性,这在数字化图像中表现为( )A、空间冗余 B、结构冗余 C、视觉冗余 D、时间冗余
-
17、某算法的部分流程图如右图所示,执行这部分流程后,变量a的值是( )
A、4 B、2 C、1 D、46 -
18、关于Access数据表的操作,下列说法中正确的是( )A、任何时候都不可以将“自动编号”类型的字段修改为“数字”类型 B、一旦在数据表中输入数据后,就不能再修改数据表的名称 C、删除数据表中的某一条记录,该数据表的字段数也会减少 D、不可以在“是/否”类型的字段中输入字符“是”
-
19、下列应用中使用了光学字符识别(OCR)技术的是( )A、使用手机的手写输入功能编辑短信内容 B、某手机App能够根据用户的语音指令自动执行相应的操作 C、某停车场管理系统在车辆进入时可以自动识别并记录车牌号 D、用手机摄像头拍下某旅游景点的名家题字照片,并发布到朋友圈
-
20、下列软件中,属于以页为基础的多媒体创作工具的是( )A、会场会影 B、PowerPoint C、Flash D、Visual Basic