相关试卷
-
1、小明收集了他心仪的浙江高校选考科目范围数据，并使用Excel软件进行数据处理，如图a所示。请回答下列问题
图a
(1)、区域L5：L15中的数据是从L4单元格利用自动填充功能得到的，则L15单元格中的公式是。(2)、如图a所示，数据区域B3:L15已进行了降序排序，则排序的主要关键字是。(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
图b
(4)、将区域B3：L15的数据复制到新工作表并进行筛选，设置“物理”和“技术”的筛选方式均如图c所示，则按此设置筛选出的学校有个。
图c
-
2、某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) -
3、有一组数据23、12、56、34、10分别存放在一组变量数组a(1)—a(5)中，以下程序执行后，i的值是（ ）
Dim a(1 To 5) As Integer
Dim f As Boolean
a(1) = 23: a(2) = 12: a(3) = 56: a(4) = 34: a(5) = 10
i = 1: f = True
Do While i <= 5 And f = True
If a(i) = 56 Then f = False
i = i + 1
Loop
Label1.Caption = i
A、6 B、3 C、4 D、5 -
4、利用Photoshop制作作品，编辑界面如下图所示。
以下说法正确的是（ ）
A、“标题”图层应用了2种图层样式 B、若要使“鸟语花香”标题变小，可以使用文字工具 C、交换“图层0”和“花”图层的次序，花会正常显示出来 D、对“小鸟”图层顺时针旋转180度，可以让小鸟面朝左侧站立 -
5、未经压缩的BMP格式的图像文件IMG_08.bmp的属性如图所示，将其转化为JPEG格式(压缩比为15∶1)，则转化后的JPG格式的图像文件的存储空间约为( )
A、3.8MB B、30.5MB C、57.1MB D、855MB -
6、根据雨水的pH值判断酸雨情况的规则为：当pH值小于4.7时为“重度酸雨”，当pH值介于4.7～5.6时为“轻度酸雨”，当pH值大于5.6时为“非酸雨”。其算法流程图如下图所示，则图中①、②所在判断框中的内容是( )
A、①pH＜4.7？ ②pH≤5.6? B、①pH＜4.7？ ②pH＜5.6? C、①pH＜4.7？ ②pH＞5.6? D、①pH≥4.7？ ②pH≤5.6? -
7、凯撒密码是一种古老加密方法，其基本思想是：把明文中的所有字母在字母表中向后（或者向前）按照一个固定位数进行偏移再替换成密文。如偏移量取3，所有字母A被替换成D，B替换成E，以此类推，X替换成A，Y替换成B。采用该算法加密，偏移量取4，然后把替换后字符的ASCII码用十六进制表示即为加密结果，则字符“A”（“A”的十进制ASCII码值是65）对应的加密结果是（ ）A、D B、E C、69 D、45
-
8、小明用示波器测得的某次电压曲线如下图所示：
对其进行二进制编码，若第一段曲线编码为10，则第二段曲线编码为（ ）
A、011010 B、100101 C、101001 D、101010 -
9、使用UltraEdit软件观察某段字符的内码，部分界面如图所示
下列说法正确的是（ ）
A、该段字符至少包含4个汉字 B、字符“中”的内码为“B9 FA” C、字符“V”的二进制编码为01010110 D、字符“j”的内码为70H -
10、某Access数据表编辑界面如下图所示，以下说法错误的是（ ）
A、该数据表的名称为“普通用户”，共有11条记录 B、该数据表有5个字段，字段的数据类型可以在“设计视图”中修改 C、在数据表视图中，不能在已有记录之前插入新的记录 D、在数据表视图中，可以把第8条记录“ID”字段的值改为“8” -
11、某用户使用Word软件编辑文档，部分界面如图所示，下列说法正确的是（ ）
A、有2个用户添加了批注 B、“1”处图片的文字环绕方式是“浮于文字上方”型 C、在锁定纵横比的情况下，将文档中的图片高度设定为“50%”，宽度不会随着改变 D、“1”处图片中的文字无法直接编辑 -
12、下列应用中，体现了人工智能技术的有（ ）
①使用百度的“识图”功能对上传的图片进行相似图片查找
②使用扫描笔内置的朗读功能对扫描到的中英文进行实时朗读
③使用指纹解锁功能打开手机
④Word软件将输入的“以身做则”自动更正为“以身作则”
⑤使用在线二维码生成器制作二维码
A、①②④ B、③④⑤ C、①②③ D、②③⑤ -
13、下列关于信息和信息技术的说法不正确的是（ ）A、计算机对各类信息进行加工处理，本质上都是通过计算完成的 B、电子邮箱通过SMTP协议将邮件发送至收件人的服务器中 C、勒索病毒的大规模爆发提醒我们平时要养成及时安装系统补丁的习惯 D、网购商品时的“综合评分”是根据用户评价而生成的，属于个人推荐
-
14、【加试题】对于数组（形如a数组：4、5、6、1、2、3或b数组：1、2、3、4、5、6），我们称元素1为此二数组的拐点。为寻找此类递增或循环递增数组的拐点，可以用顺序查找和对分查找的方法，通常相比之下对分查找算法较优，以下为使用对分法查找拐点的算法。
做法是比较中点与当前查找范围第1个数大小关系，用对分法使查找范围逼近拐点；当余下数组只有二个元素时，可根据此二元素大小关系得到拐点的位置。
依据上述描述设计了VB程序，界面如图所示。请回答下列问题：
(1)、对于循环递增数组“9、10、11、12、13、14、15、16、17、18、19、20、1、2、3、4、5、6、7、8”，代码中加框处执行的次数为次。(2)、请在划线处填入合适的代码。Dim a(1 To 20) As Integer
Private Sub Command1_Click()
Dim Low As Integer, High As Integer
Low = 1
High = 20
Do While High > Low
If ① Then '当只余下两个元素时
If ② Then
Label1.Caption = "拐点元素为" + Str(a(1)) + ",下标为" + Str(1)
Else
Label1.Caption = "拐点元素为" + Str(a(High)) + ",下标为" + Str(High)
End If
Exit Do
End If
If a(m) >= a(Low) Then
Low = m
Else
③
End If
Loop
End Sub
Private Sub Form_Load()
'生成循环递增的数组a，代码略
End Sub
① ② ③
-
15、【加试题】德国数学家哥德巴赫曾猜测：任何大于6的偶数都可以分解成两个素数（素数对）的和。但有些偶数可以分解成多种素数对的和，如： 10=3+7，10=5+5，即10可以分解成两种不同的素数对。
小敏编写了一个VB程序，用来求一个偶数(6到100之间)可能存在多少这样的素数对（注： A+B与B+A认为是相同素数对，不重复统计），并把这些结果输出到一个列表框中，通过逻辑推理，小敏发现这些素数对都是奇数，所以她只需要验证奇数的素数对即可。运行界面如图所示，程序代码如下。但加框处代码有错，请改正。
Dim IsPrime(100) As Boolean '用来存储是否素数，True为素数，False为非素数
Private Sub Command1_Click()
Dim x As Integer, y As Integer, i As Integer, num As Integer
Call Init '调用Init函数
x = Val(Text1.Text)
y = x \ 2
num = 0
For i = 3 To y Step 2
'①num = num + 1
List1.AddItem Str(x) + "=" + Str(i) + "+" + Str(x - i)
End If
Next i
Label2.Caption = "偶数" + Str(x) + "共有" + Str(num) + "个素数对。"
End Sub
Sub Init() '初始化IsPrime数组的值
Dim i As Integer, j As Integer, x As Integer
For i = 3 To 100 Step 2
x = Int(Sqr(i))
'②If i Mod j = 0 Then Exit For
Next j
If j > x Then IsPrime(i) = True Else IsPrime(i) = False
Next i
End Sub
① ②
-
16、欣欣要制作一个关于梁祝故事的多媒体作品，她先用PhotoShop软件处理图像，然后用Flash软件制作动画。请回答以下各题：
图1(1)、如图1所示，当前界面下，欣欣选择“梁山伯”图层进行下列操作，不会影响“祝英台”图层的是（多选，填字母：A 调整图像大小/B 移动位置/C 复制图层/D 调整图层不透明度/E 删除图层）。欣欣用Flash软件制作动画，其中“story”场景的界面如图2所示，“story”场景的制作脚本如下:
场景名：story 类别序号：2
进入方式：
由“Load”场景单击“Play”按钮进入
呈现方式：
①直接出现背景图片，音乐自动播放;
②梁山伯实例从舞台外左侧移动到舞台中间(从小到大，移动速度越来越快)；祝英台实例从舞台外右侧移动到舞台中间(从小到大，移动速度越来越快)；
③舞台下方先后出现文字“小弟姓祝名英台，乃上虞祝家村人氏，敢问仁兄……”“会稽梁山伯”（从无到有）；
④“退出”按钮位于舞台右下角，点击后退出动画的播放。
呈现顺序说明：
①一开始就显示背景图片，播放音乐；
②同时，梁山伯和祝英台分别从舞台左侧和右侧移动到舞台中间；
③梁山伯和祝英台会话；
④文字“小弟姓祝名英台，乃上虞祝家村人氏，敢问仁兄……”和“会稽梁山伯”淡入；
⑤最后动画停止播放，并出现“退出”按钮。
图2
图3
(2)、结合制作脚本及图2、图3，“梁山伯进入”图层中的补间类型为 ， 要实现梁山伯移动速度越来越快，可以在属性面板中设置缓动值为（选填：-100 / 100）。(3)、本场景播放结束后画面停止，用户可以单击“退出”按钮退出播放，欣欣应在“退出”按钮上添加动作脚本。
图4
(4)、欣欣给“退出”按钮添加正确的动作命令并导出swf文件后，发现鼠标指针经过“退出”按钮实例时没有声音。“退出”按钮元件部分编辑界面如图4所示，其中“音效”图层中声音的同步方式为事件，为了使按钮上的声音能正常播放，可进行的操作是。 -
17、“字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中间的第3个到第5字母抽出并保持原来的顺序放到最前面，则一次洗牌操作后字符串变成“34A12BCD”），也可以把扑克牌分成上下两部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3个字符到最后一个字符移到前面，变成“34ABCD12”），多次重复做这个动作，就能达到洗牌的目的，效果如图所示。
(1)、若要把窗体的标题名称由“Form1”改为“字符洗牌”，应改变窗体的属性。(2)、完成上述功能的程序代码如下，请在划线处填入合适的代码Private Sub Command1_Click()
Dim r As Integer, k1 As Integer, k2 As Integer
Dim s As String, n As Integer
'从文本框TxtIn中获取字符串
Randomize
r = Int(Rnd() * 10) + 1 '随机生成洗牌次数
n = Len(s)
Do While r >= 1 '洗牌操作
k1 = Int(Rnd() * (n - 2)) + 2
k2 = Int(Rnd() * (n - k1 + 1)) + k1
s = + Mid(s, 1, k1 - 1) + Mid(s, k2 + 1, n - k2)
r = r - 1
Loop
TxtOut.Text = s ' 在文本框TxtOut中输出结果
End Sub
(3)、若加框处的语句改为TxtOut.Text = Str(s)，则运行程序时会发生的错误消息为_________（单选，填字母）A、
B、
C、
D、
-
18、王老师从国家统计局网站收集了2017年9、10、11三个月中国主要工业产品（部分）产量的数据，并用Excel软件进行处理，如图1所示。
图1
请回答下列问题：
(1)、为了计算9、10、11三个月工业主要产品的累计产量，可以先在F3单元格输入公式，计算“铁矿石原矿”的累计产量，然后自动填充到F列其它对应的单元格，完成所有工业主要产品的累计计算，请问下面哪个计算公式不能达到目的（单选，填字母：A =SUM(C3:E3) B =$C3+$D3+$E3 C =C3+D3+E3 D =C$3+D$3+E$3）。
(2)、若要对“食品类”工业主要产品按“累计”进行降序排序，则需要选择的数据区域为。(3)、根据图1中的数据制作的图表如图2所示，请指出该图表的类型（单选，填字母：A 柱形图 / B 面积图 / C 条形图 / D 折线图）。
图2
(4)、将A2：E17的数据复制到新工作表，在新工作表中对“指标”列数据进行筛选，筛选设置如图3。请问最终能筛选出种产品。
图3
-
19、【加试题】有如下VB程序段：
Dim a(5) As Integer
Dim i As Integer, j As Integer, t As Integer
a(1) = 52: a(2) = 15: a(3) = 37: a(4) = 22: a(5) = 35
i = 1
Do While i < 5
t = i: j = i + 1
Do While j <= 5
If a(j) > a(t) Then t = j
j = j + 1
Loop
x = a(t): a(t) = a(i): a(i) = x
i = i + 1
Loop
Text1.Text = Str(a(2))
运行该段代码后，文本框Text1中显示的内容为（ ）
A、15 B、22 C、37 D、35 -
20、【加试题】如图所示，a 、b 、c 三个数比较大小，单击“求最大值”按钮，在文本框Text4中输出三者之间最大的数，选出不能实现该功能的程序段（ ）
A、If a >= b And a >= c Then Text4.Text = Str(a)If b >= a And b >= c Then Text4.Text = Str(b)If c >= a And c >= b Then Text4.Text = Str(c) B、Max = aIf b > Max Then Max = bIf c > Max Then Max = cText4.Text = Str(Max) C、If a > b And a > c Then Text4.Text = Str(a)ElseIf b > a And b > c Then Text4.Text = Str(b)Else Text4.Text = Str(c)End If D、If a > b Then If a > c Then Text4.Text = Str(a) Else Text4.Text = Str(c)Else If b > c Then Text4.Text = Str(b) Else Text4.Text = Str(c)End If