相关试卷
-
1、小王收集了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项进行筛选 -
2、有如下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 -
3、有如下 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 -
4、有如下 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 -
5、下列 VB 表达式的值最小的是（ ）A、Asc(“Z”) -Asc(“A”) B、2021 Mod 1000 \ 10 C、29 + Int(-Sqr(37)) D、Val(Mid(“Hello2021”, 6, 2))
-
6、使用 GoldWave 软件编辑某音频文件，选择其中一段音频后的部分界面如图所示，下列说法正确的是（ ）
A、插入10s静音后，右声道时长仍为30s B、该音频是Wave格式的文件，每秒钟采样16次 C、执行“删除”操作后直接保存，存储的文件是单声道文件 D、执行“更改音量”操作后，只有当前选中的声音音量发生改变 -
7、用PhotoShop制作一幅图像，编辑界面如图所示，下列说法正确的是（ ）
A、可以直接修改图中左下角的50%数据，改变图像的容量大小 B、可以在“背景”图层直接添加“投影”的图层样式效果 C、可以直接修改“芦苇”图层名称 D、删除“印章”图层，“笔和砚”图层也随之删除 -
8、使用 Access 软件打开数据库，部分界面如图所示，下列说法正确的是（ ）
A、“编号”字段的类型是“数字”类型 B、一张数据表至少有1个字段 C、当前状态下，能直接对“收入情况调查表”数据表进行重命名 D、通过数据库应用系统不可以修改“收入情况调查表”中的数据 -
9、下列应用中，体现了人工智能技术的有（ ）
①机器人通过语音与人交流
②某手机 APP 将语音信息转换为文本
③计算机程序根据输入的三条边长自动计算三角形面积
④某软件识别用户拍摄的花卉照片并返回花卉品种等信息
⑤Word软件的自动更正功能将键入的“cpoy”自动更正为“copy”
A、①②⑤ B、①④⑤ C、①②④ D、②③⑤ -
10、下列关于网页和浏览器的说法，正确的是（ ）A、网页文件可以用IE浏览器进行编辑 B、一般情况下，网页应具备文字、图形图像和超链接三种基本元素 C、计算机采用SMTP协议进行浏览器与WEB服务器之间的数据传输 D、在IE浏览器中，以“网页，全部（*.htm;*.html）”类型保存网页，可以保存网页中的视频
-
11、下列关于信息和信息技术的说法，正确的是（ ）A、计算机处理图片的本质是计算 B、声音以模拟信号的形式存储在计算机中 C、同一信息通过不同途径传播时，其价值都是相同的 D、信息在计算机内部可以采用十六进制编码进行存储
-
12、使用黑白颜色填充方格如图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行显示的填充结果为 。 -
13、删除字符：实现从某一字符串删除指定的字符串，并将处理后的字符串重新输出，程序界面如图所示，在文本框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
-
14、数字之美“卡布列克数”：一个十进制整数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中显示的内容是。 -
15、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
-
16、某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 -
17、有Visual Basic代码段如下：
s = Text1.Text : sum = 0
c = 1 : j = 0
For i = 1 to len(s)
ch = Mid(s, i, 1)
If ch >= "0" And ch <= "9" Then
j = j + 1
Else
If c mod 2 = 1 then sum = sum + Val(Mid(s,i-j,j))
j=0 : c = c + 1
End If
Next i
Label1.Caption = Str(sum)
在文本框Text1中输入“20a20b1c29d9”,执行该段代码后，标签Label1中的结果是（ ）
A、70 B、21 C、30 D、79 -
18、有以下Visual Basic程序段：
s = 0 : i = 100 ‘①
Do While i >= 0 ‘②
i = i + 2 ‘③
s = s + i ‘④
Loop
Text1.text=str(s)
执行这部分流程，发现其违背了算法的“有穷性”特征，下列修改方案正确的是（ ）
A、将①处改为i=0 B、将②处改为s>=0 C、将③处改为i=i-2 D、将④处改为s=s-i -
19、有如下Visual Basic程序段：
Dim t as Double, n as Integer
t = 0 : n = 0
For i = 1 to 10 step 2
n = n + 1
t = t + n / i
next i
程序运行后，下列表达式的值与t相等的是（ ）
A、1+1/3+2/5+3/7+4/9 B、1/3+2/5+3/7+4/9+5/11 C、1+2/3+3/5+4/7+5/9 D、1+1/2+1/3+1/4+1/5 -
20、下列表达式中，值最大的是（ ）A、6780 mod 1000 \ 10 B、Int(Rnd * 70) + 10 C、Val(Mid(“3.1415926”,6,2) D、Int((Rnd-Rnd + 1) / 2 ) * 100