相关试卷
-
1、下列关于信息与信息技术的说法，正确的是（ ）A、“口说无凭”说明随口说的信息，因为没有载体，所以不能做为凭证 B、文字、声音、网页、肢体动作等都属于信息的表达方式 C、云技术是指在广域网或局域网内将硬件、软件、网络等系列资源统一起来，实现数据的计算、储存、处理和共享的一种托管技术 D、计算机是信息处理的重要工具，因此所有信息的加工处理，本质上都是要通过计算完成的
-
2、某数字字符串的加密算法如下：
①从左往右扫描，若其中存在连续上升数字字符，则进行压缩。其中，数字字符串“91”也算连续上升。连续上升的数字字符不超过9个，若超过9个则该数字字符串分成两段。例如：“12324789123456789”可以压缩成“1-3247-67-9”
②对压缩后的数字字符进行加密，其中，数字字符“1”-“9”用加密字符“A”-“I”表示，未经压缩的数字字符原样输出。例如：“1-3247-67-9”加密后是“A-C24G-FG-I”。
程序界面如图所示。
(1)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim s As String, k As Integer, i As Integer, t As Integer
Dim sjg As String, mw As String, start1 As Integer, end1 As Integer Dim a(1 To 100) As Integer
mw = "ABCDEFGHI"
t = 1
a(1) =
For i = 2 To Len(s)
a(i) = Val(Mid(s, i, 1))
If Then
t = t + 1
Else
If t > 1 Then
start1 =
end1 = a(i - 1)
sjg = sjg + Mid(mw, start1, 1) + "-" + Mid(mw, end1, 1)
Else
sjg = sjg + CStr(a(i - 1)) ‘CStr 函数将表达式转换为字符串，并去除前导空格
End If
t = 1
End If
Next i
Text2.Text = sjg
End Sub
(2)、若加框处代码改为“s = Text1.Text”，在文本框Text1中输入“45678989123456789”单击“加密”按钮后，文本框Text2中显示的内容是。 -
3、某垃圾分类VB程序功能如下：在文本框Text1中输入一串字符（数据用逗号分隔，以逗号结尾），单击“统计”按钮Cmd1后，程序实现计算干、湿垃圾的重量及总重量（单位：斤）。输入字符串中的前后两个数字字符为一组，第一个数字字符代表垃圾种类，1表示干垃圾，2表示湿垃圾，第二个数字字符代表该垃圾的重量。例如：输入字符串“2，1，1，12，”，程序统计结果为干垃圾12斤，湿垃圾1斤，总重量13斤。程序运行界面如图所示。
(1)、Cmd1对象属于类（单选，填字母：A .Form / B .Label / C .TextBox / D .CommandButton）(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Cmd1_Click()
Dim s As String, s1 As String, t As Integer, i As Integer
Dim k As Integer, bh As Integer, w As Integer
Dim w1 As Integer, w2 As Integer
s = Text1.Text: k = 1: t = 0: bh = 0 'bh存储当前垃圾的垃圾编号
w1 = 0: w2 = 0
For i = 1 To Len(s) s1 = Mid(s, i, 1)
If Then
t = t * 10 + Val(s1)
Else
If Then
bh = t
Else
If bh = 1 Then
w1 = w1 + t
Else
w2 = w2 + t
End If
End If
k = k + 1
End If
Next i
List1.AddItem "干垃圾共" + Str(w1) + "斤"
List1.AddItem "湿垃圾共" + Str(w2) + "斤"
Label3.Caption = "总重量共有" + Str(w) + "斤"
End Sub
(3)、程序中加框处代码有错，请改正。 -
4、用Flash软件制作主题为“国潮”的多媒体作品。请回答下列问题：
图 a
(1)、创作多媒体作品需要进行创作需求分析和应用需求分析，下列属于创作需求分析的是 （多选，填字母）。A、确定作品的主题思想为“国潮” B、确定作品面向中学生演示播放 C、将作品划分为“片头”、“国风音乐”、“国风服饰”、“片尾”四个主要界面 D、确定作品的结构类型为演示型 E、根据主题思想和内容，制订脚本大纲(2)、“鸟 1”图层中补间动画的类型是（单选，填字母：A .形状补间动画/B .动画补间动画/C .逐帧动画）。(3)、测试场景时，为了使“鸟 2”图层的动画从第2秒开始播放，其他动画效果保持不变，应进行的操作是。(4)、测试影片时，发现“退出”按钮无法响应鼠标事件。该按钮元件的编辑界面如图 b 所示，为解决该问题，可采取的操作有： （多选，填字母）。
图b
A、对“文字”图层的指针经过帧执行“清除关键帧”操作 B、对“文字”图层的点击帧执行“删除帧”操作 C、在“文字”图层的点击帧中绘制一个矩形 D、对“背景”图层的点击帧执行“删除帧”操作 E、对“背景”图层的按下帧执行“清除关键帧”操作(5)、测试影片时，单击“退出”按钮，动画跳转到“片尾”场景的第1帧播放，同时打开网页“www.guofeng.com”，则“退出”按钮上的动作脚本为 on(release){}。 -
5、小王收集了2020上半年某个小区某幢居民楼用电量的相关数据，并用Excel软件进行
如下处理，如图a所示
(1)、如图a所示，在E4中输入公式，使用自动填充功能完成E5:E15的计算，然后将E4中的公式粘贴到H4，使用自动填充功能完成H5:H15的计算，则在E4中输入的公是。（电费=峰电费+谷电费）(2)、根据图a中数据制作如图b的图表，图表的数据区域是。
(3)、在图a所示的工作表中对数据作进一步操作，下列说法正确的是 。（多选：填字母）A、将单元格C4中的数据更改为230，图表不会随之变化 B、若要对1单元的用户按照“第一季度电费”进行升序排序，选择的数据区域可以是A4:G7 C、在正确完成E4:E15, H4:H15计算后，小王不小心将A列删除，则原E4: E15, H4: H15 单元格中的数据不会发生变化 D、若要筛选出2单元第1季度电费最多的房间号，可以以“单元”为2单元，第一季度“电费”最大1项进行筛选 -
6、有如下VB程序段：
For i = 1 To 6
x = Int(Rnd * 10) +1
If i Mod 2 = 1 Then
a(i) = 2 * x + 1
ElseIf x mod 2 = 0 then
a(i) = x \ 2
Else
a(i) = x - 1
End If
Next i
执行程序后，a数组各元素可能的是（ ）
A、3,2,7,4,20,6 B、9,3,11,5,17,7 C、5,0,9,4,13,10 D、3,3,9,0,19,5 -
7、有如下 VB 程序段：
x = 86420: s1 = "ByeBye2020": s2 = "Fighting2021" result = ""
Do While x > 0
r = x Mod 10
If r Mod 3 = 0 Then
result = Mid(s1, r + 1, 1) & result
Else
result = result & Mid(s2, r + 1, 1)
End If
x = x \ 10
Loop
Text1.Text = result
执行该程序段后，文本框Text1中显示的内容是（ ）
A、Bgt22 B、eBihg C、2Bgt2 D、2yeFn -
8、有如下 VB 程序段：
s=0: x=0
For k = 3 To 1 Step -1
If k <= 1 Then x = 1
If k <= 2 Then x = 2
If k <= 3 Then x = 3
s = s + x
Next k
该程序段运行后，变量s的值是（ ）
A、9 B、8 C、6 D、3 -
9、下列 VB 表达式的值最小的是（ ）A、Asc(“Z”) -Asc(“A”) B、2021 Mod 1000 \ 10 C、29 + Int(-Sqr(37)) D、Val(Mid(“Hello2021”, 6, 2))
-
10、使用 GoldWave 软件编辑某音频文件，选择其中一段音频后的部分界面如图所示，下列说法正确的是（ ）
A、插入10s静音后，右声道时长仍为30s B、该音频是Wave格式的文件，每秒钟采样16次 C、执行“删除”操作后直接保存，存储的文件是单声道文件 D、执行“更改音量”操作后，只有当前选中的声音音量发生改变 -
11、用PhotoShop制作一幅图像，编辑界面如图所示，下列说法正确的是（ ）
A、可以直接修改图中左下角的50%数据，改变图像的容量大小 B、可以在“背景”图层直接添加“投影”的图层样式效果 C、可以直接修改“芦苇”图层名称 D、删除“印章”图层，“笔和砚”图层也随之删除 -
12、使用 Access 软件打开数据库，部分界面如图所示，下列说法正确的是（ ）
A、“编号”字段的类型是“数字”类型 B、一张数据表至少有1个字段 C、当前状态下，能直接对“收入情况调查表”数据表进行重命名 D、通过数据库应用系统不可以修改“收入情况调查表”中的数据 -
13、下列应用中，体现了人工智能技术的有（ ）
①机器人通过语音与人交流
②某手机 APP 将语音信息转换为文本
③计算机程序根据输入的三条边长自动计算三角形面积
④某软件识别用户拍摄的花卉照片并返回花卉品种等信息
⑤Word软件的自动更正功能将键入的“cpoy”自动更正为“copy”
A、①②⑤ B、①④⑤ C、①②④ D、②③⑤ -
14、下列关于网页和浏览器的说法，正确的是（ ）A、网页文件可以用IE浏览器进行编辑 B、一般情况下，网页应具备文字、图形图像和超链接三种基本元素 C、计算机采用SMTP协议进行浏览器与WEB服务器之间的数据传输 D、在IE浏览器中，以“网页，全部（*.htm;*.html）”类型保存网页，可以保存网页中的视频
-
15、下列关于信息和信息技术的说法，正确的是（ ）A、计算机处理图片的本质是计算 B、声音以模拟信号的形式存储在计算机中 C、同一信息通过不同途径传播时，其价值都是相同的 D、信息在计算机内部可以采用十六进制编码进行存储
-
16、使用黑白颜色填充方格如图a所示，要求垂直和水平方向相邻方格颜色不同，第1个方格颜色随机生成，方格总数为n×n。编程模拟实现该填充过程，用数字0代表黑色，数字1代表白色。实现该过程的VB程序功能：在文本框Text1中输入n，单击命令按钮“填充”，在列表框List1中显示填充结果，程序运行界面如图b所示。
(1)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim n As Integer, m As Integer, i As Integer
Dim s As String
n = val(Text1.Text)
m = Int(Rnd * 2)
s = ""
List1.Clear
For i =1 to n * n
m = 1 - m
If Then
List1.Additem s
s = ""
If n mod 2 = 0 then
End If
Next i
End Sub
(2)、运行该程序，在文本框Text1中输入5，单击命令按钮“填充”，第1个填充格为白色，则在列表框List1中第2行显示的填充结果为 。 -
17、删除字符：实现从某一字符串删除指定的字符串，并将处理后的字符串重新输出，程序界面如图所示，在文本框Text1中输入原始字符串，在文本框Text2中输入需要删除的字符串，单击command1后，在文本框Text3中输出处理后的结果。实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim p As String, k As String, i As Integer
Dim result As String
result = ""
p = Text1.Text
k = Text2.Text
i = 1
Do While i <= Len(p) - Len(k) + 1
If Mid(p, i, Len(k)) <> k Then
i = i + 1
Else
End If
Loop
Text3.Text =
End Sub
-
18、数字之美“卡布列克数”：一个十进制整数X，X的平方可以分割为两个数字，如果这两个数字相加之和恰好等于X，那么X就是卡布列克数。如1，9，10，45……。因为9^2=81，9＝8+1，所以9是卡布列克数；45^2=2025，45＝20+25，所以45是卡布列克数。小朱编写VB程序验证输入的数是不是卡布列克数。具体功能如下：在文本框Text1中输入一个数，单击“验证”按钮，结果显示在标签Label2中，运行界面如图所示
(1)、若要清空文本框Text1的内容，则修改文本框的属性。(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim x As Integer, m as double, n As Integer
Dim num1 as Long, num2 as Long
Dim s As String, flag as Boolean, i as Integer
x = val(Text1.Text)
m = x ^ 2
s = Trim(Str(m)) ‘Trim函数去除字符串首尾空格
n = len(s)
For i = 1 to n
num1 =
num2 = Val(Mid(s,i+1,n-i))
If Then
Flag = True
Exit For
End If
Next i
If flag Then
Label2.Caption=Str(x)+ "=" +Str(num1)+ "+" + mid(s,i+1)+ ",是卡布列克数！"
Else
Label2.Caption = Str(x) + "不是卡布列克数！"
End If
End Sub
(3)、若文本框Text1中输入的内容是“55”（不包括引号），单击“验证”按钮后，Label2中显示的内容是。 -
19、2020年上半年浙江省各地市GDP情况数据如图a所示，请回答下列问题：
图a
(1)、若要将表中第一行的标题合并后居中，则选中A1：F1，选择图b（填序号）标签。
图b
(2)、区域E3：E13的数据是通过公式计算得到的。则在E3单元格输入公式： ， 并用自动填充功能完成区域E4：E13的计算。(3)、“人均GDP排名”的值是对各地区以“人均GDP（元）”为主要关键字降序排序后填充“1、2……11”得到，再以“总量排名”升序重新排序，则适合两次排序选择的同一数据区域为。(4)、将区域A2：F13的数据复制到新工作表，在新工作表中对数据进行筛选操作，“2020年上半年总量（亿元）”和“人均GDP（元）”筛选条件均设置为如图c所示，则筛选出的城市有个。
图c
(5)、根据图a中的数据，制作了一张如图d的图表，则该图表的数据区域是。
图d
-
20、某Visual Basic程序段如下：
Dim a(1 to 6) as Integer
s = 0
Do While s <= 5
t = Int(Rnd * 6 +1)
a(t) = a(t) + 1
If a(t) = 1 Then s = s + a(t)
Loop
已知数组a(1)到a(6)的初值均为0，运行该程序段后，a(1)到a(6)不可能是（ ）
A、111111 B、123456 C、654321 D、222222