相关试卷
-
1、有如下程序段：
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、180 B、174 C、42 D、36 -
2、某算法部分流程图如图所示，则输出的值s为( )
A、4 B、8 C、16 D、22 -
3、小宋用UltraEdit软件观察“他很happy”字符的内码，如图所示：
下列说法中，正确的是( )
A、全部字符共占8个字节 B、汉字“很”的十六进制内码为“FB BA" C、小写字母“o”的十六进制内码为“69” D、字母“B”的二进制内码为“1000010” -
4、将一幅未经压缩的1024×576像素、24位色BMP图片，转换成JPG格式后，存储容量为350KB，则压缩比约为( )A、40：1 B、8：1 C、5：1 D、1：1
-
5、用GoldWave软件打开某音频文件，选中一段音频后的部分界面如图所示。
下列说法错误的是( )
A、该音频每个数据点的存储容量为2字节 B、执行“更改音量”操作后，只有当前选中的声音音量发生改变 C、当前状态下执行“剪裁”操作后，再按原参数保存，则该音频存储容量变小 D、当前状态下插入5s静音，再按原参数保存，则该音频存储容量变大 -
6、使用Access软件设计一个数据表，直接存储如图所示的学生饭卡数据
序号
学号
姓名
性别
存钱日期
金额
1
20190234
金子鑫
男
2020-5-14
500元
2
20181203
吴浩
女
2020年6月12日
800元
……
……
……
……
……
……
下列表结构设计合理的是( )
A、
B、
C、
D、
-
7、下列关于网站和网页的说法，正确的是( )A、网页文件是用HTTP语言来描述的 B、HTML是超文本传输协议，用于浏览器与Web服务器之间的信息传输 C、IE浏览器可以用于编辑网页文件 D、收藏网站其实就是保存网页的URL
-
8、下列有关信息安全的说法，正确的是( )A、任何一款杀毒软件都不能查杀所有的计算机病毒，因此不必安装反病毒软件 B、有的计算机病毒能帮助查杀其他的病毒，因此计算机病毒的危害不大 C、计算机黑客能轻松破解密码，因此经常更换计算机系统的密码没有必要 D、计算机病毒和黑客都能给用户带来损失，因此我们必须高度关注计算机安全
-
9、有一个加密/解密程序，其加密的算法是：将原文中每个字符的ASCII码加上该字符在原文中的位置数(设字符在原文中是第n个字符，则其位置数是n被10除的余数，当余数为0时，其位置数为10.例如，原文字符串为“meet me at sunset”，第一个字符“m”，其位置数为1，而“s”为第12个字符，其位置数是被10除的余数2，其余依次类推)作为密文字符的代码，再将密码字符逆序排列(例如ABCD，逆序排列为DCBA)即为密文。解密算法是加密算法的逆运算，运行效果如下图所示。
(1)、如图所示，如果原文中字母“g”后面添加字母“h”，按“加密”按钮后，字母“h”对应的密文为：(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Private Sub Command1_ Click( ) '加密
Dim enc As String, dec As String, i As Integer
Dim s As String,n As Integer
dec = Text1. Text
For i=1 To Len(dec)
s=
n=i Mod 10
If n=0 Then n=10
enc =Chr(Asc(s)+n) & en
Next i
Text2. Text =enc
End Sub
Private Sub Command2_Click( ) '解密
Dim enc As String, dec As String, i As Integer
Dim n As Integer, s As String, p As Integer
enc = Text2. Text
n = Len( enc)
For i =1To n
s = Mid(enc， i， 1)
P=
If p =0 Then
dec = Chr(Asc(s) -p) & dec .
Next i
Text1. Text = dec
End sub
-
10、小王编写VB程序实现Excel筛选最大的n项数据功能。其功能如下：在列表框list1中显示m个原始数据(存储在数组a中)，在文本框Text1中输入整数n(n≤m)，单击“筛选”按钮Command1后，在列表框List2 中按降序输出最大的n项数据(包括第n项的重复数据)。
程序运行界面如图所示，实现上述功能的VB程序如下。请回答下列问题：
Const m= 10
Dim n As Integer
Dim a(1 To m) As Integer
Private Sub Form_ Load( )
'获取原始数据依次存数组a中，并在列表框List1中显示，数据个数存变量m，代码略
End Sub
Private Sub Command1_ Click( )
Dim i As Integer, j As Integer, k As Integer
n= Val(Text1. Text)
i= 1
Do While i<=n
k=i
For j=i+1 To m
If a(j) > a(k) Then k=j
Next j
If i<>k Then
a(i)=a(i)+a(k)： a(k)=a(i) - a(k) ： ①
End If
i=i+ 1
Loop
For i=1 To n
List2. AddItem Str(a(i))
Next i
c==n
For i=n+1 To m
If
Then c=c+1： List2. AddItemStr(a(i)) '改错
Next i
List2. AddItem "筛选出" + ② + "个成绩"
End Sub
(1)、代码“Private Sub Command1_ Click( )”中的Command1_ Click( )属于 (单选，填字母：A .对象名/B .属性名/C .事件名/D .事件过程名)。(2)、请在划线处填入合适的代码。① ②
(3)、加框处代码有错误，请改正。 -
11、使用Flash软件创作“走进山东”多媒体作品。请回答下列问题：(1)、作品的“农业”场景制作脚本如图a所示，下列说法正确的是 (多选，填字母)。
图a场景：农业
类别序号：2
进放方式：单击“主交互场景的“农业”按钮进入
呈现方式：
⒈“收割机”从舞台右下方移动到左侧中间位置。
⒉“返回”按钮位于舞台右下角，单击该按钮，动画返回到“主交互”场景
呈现顺序说明：
⒈一开始出现背景图片，同时出现“收割机”动画，持续到本场景结束。
⒉最后出现“返回”按钮，动画停止。
A、本场景的制作脚本可以作为多媒体作品制作的直接依据 B、场景中文字、声音、动画等多种媒体体现了多媒体技术的集成性 C、本场景最后一帧上可添加帧动作脚本fscommand.(“quit")； D、“返回”按钮上可添加动作脚本on(release){ gotoandplay(1)；}(2)、如图b所示，文档大小为1024 * 768，收割机由库中影片剪辑元件(收割机左边的拔禾轮转动)创建，“收割机”图层中各关键帧坐标依次为(744，522)、(10，306)。若对第13帧执行“转换为关键帧”操作，测试场景，下列说法正确的是 (多选，填字母)。
A、收割机行进路线不变 B、若将收割机终点坐标改为(313，355)，测试场景时，收割机位置移动将变慢 C、收割机动画的补间类型为“动画”，移动时间约为2秒 D、第3秒的运动方向为自左向右 E、若将收割机动画的缓动值调整为20，测试场景时，移动速度由慢变快(3)、测试影片时发现“返回”按钮无法响应鼠标单击，如图c所示，下列操作可以使按钮有效并且不改变按钮效果的是 (多选，填字母)。
图cA、选择“文字”图层“指针经过”帧，执行“删除帧”操作 B、选择“文字”图层的“按下”帧，执行“清除帧”操作 C、选择“底色”图层的“弹起”帧，执行“插入帧”操作 D、选择“底色”图层的“点击”帧，执行“插入关键帧”操作(4)、测试场景时发现按钮没有按制作脚本的要求最后出现在第36帧，应进行的修改是 -
12、以下是2016年部分省市专用设备制造业产值统计表，小王用Excel表格对数据进行处理和分析，如图a所示，请回答以下问题：
(1)、企业数占全国比重=各省市企业个数/全国企业总个数* 100，为了计算“企业数占全国比重%”，小王在C5单元格输入了公式，利用填充柄向下填充，却发现计算出的数据有错误。更正以上错误的方法是：将C5单元格的公式改为 ， 然后重新向下填充。(2)、小王制作了2016 年部分省市专用设备制造业产值统计图，如图b所示。从图中可以看出，当前图表的类型是 ， 图表数据源区域为：
(3)、小王要对图a数据进行筛选，找出企业个数排名前三的省市，如图c所示，可以对“企业数”字段选择进行筛选。(A .高于平均值；B .10个最大的值；C .自定义筛选)
-
13、有如下VB程序段，其功能是生成n个位于[1，10]之间的不重复随机整数：
Dim a(1 To n) As Integer
i= 1
Do While i<=
a(i)=
For j=1 To i-1
If a(i)=a(j) Then
Exit For
End If
Next j
i=i+1
Loop
上述程序段3个方框处的语句分别为( )
A、①n ②Int(Rnd * 10+1) ③i=i -1 B、①n ②Int(Rnd*9+1) ③i=i+1 C、①n-1 ②Int(Rnd*10+1) ③i=i-1 D、①n-1 ②Int(Rnd * 9+1) ③i=i+ 1 -
14、有VB程序段如下：
Dim a(1 To 26) As Integer
s= "2020 Artificial Intelligence！” ： n=0
For i=1 To Len(s)
ch= Mid(s, I, 1)
If ch>= "a" And ch <= "z" Then
m = Asc(ch) - Asc("a") + 1
a(m)=a(m)+1
End If
Next i
For i=1 To 10
If a(i)>1 Then n=n+1
Next i
已知数组a各元素的初始值都为0，执行该程序段后，变量n的值为( )
A、2 B、3 C、6 D、10 -
15、有如下程序段：
For i=1 To 3
For j=i+1 To 5
If a(j) > a(i) And a(j)>60 Then
t=a(j)：a(j)=a(i)：a(i)=t
End If
Next j
Next i
数组元素a(1)到a(5)的值依次为“33，16，68，45，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次是( )
A、77，68，16，45，33 B、77，68，45，33，16 C、77，68，33，45，16 D、77，68，45，16，33 -
16、循环升序数组指的是将一个升序数组循环右移动若干距离之后变成的数组。如[1，2，3，4，5]循环右移1位，就成为[5，1，2，3，4]，再右移1位，就成为[4，5，1，2，3] ……中[5，1，2，3，4]和[4，5，1，2，3]都是循环升序数组。该数组的特点是：将循环升序数组从中间分开，肯定有一边是有序数组，另外一边是循环有序数组。小杜研究发现对分查找算法适当优化后也适用于循环升序数组。在文本框输入被查找数据key，查找循环升序数组a中是否有相同的元素存在。编写的VB程序段如下：
i= 1：j= n '数组a下标从1到n为止
Key = Val(Text1. Text)
Do While i<=j
m=(i+j)\2
If a(m) = Key Then Exit Do
If a(i) < a(m) Then
If
Then j=m-1 Else i=m+1Else
If Key> a(m) And Key< = a(j) Then i=m+1 Else j=m-1
End If
Loop
If i <= j Then Text2. Text =“查找成功”
Else Text2. Text =“查找失败”
要使程序实现对分查找过程，则方框中的语句是（ ）
A、Key>= a(i) And Key < a(m) B、Key <= a(i) And Key >a(m) C、Key >= a(i) And Key <= a(j) D、Key >a(i) And Key <= a(m) -
17、能够产生[a，b](a，b都是整数且a<b)范围内某一随机整数的VB表达式是（ ）A、Int(Rnd * a)+ b B、Int(Rnd* b)+a C、Int(Rnd* (b-a+1))+a D、Int((Rnd * (b-a))+a
-
18、某算法部分流程图如图所示，则输出的值依次为( )
A、16，1，0，5 B、16，5 C、16，6 D、16，1，5 -
19、用Photoshop软件制作“中秋节”作品，在“嫦娥”图层中已选择椭圆区域，如图所示，下列说法正确的是( )
A、选中“背景”图层，添加“镜头光晕”滤镜，滤镜效果将呈现在椭圆选区内 B、由于“嫦娥”图层锁定，不能执行“拷贝”、“粘贴”命令 C、选中“中秋节”图层，添加“投影”图层样式，投影效果将呈现在椭圆选区边缘 D、当前文档保存为BMP图像后容量约为6.50MB -
20、使用GoldWave软件编辑文件，部分界面如图所示，下列说法中，正确的是( )
A、执行“剪切”操作后，左声道1至2秒位置出现静音 B、将该文件另存为单声道，其他参数保持不变，保存后的文件存储量为原来的一半 C、当前的音频是wave格式，采样频率为11025kHz D、选择“静音”操作后，左声道将没有任何声音