相关试卷
-
1、下列关于某手机的应用中，体现人工智能技术的是（ ）
①使用“应用分身”功能，实现一台手机登录两个微信帐号
②使用“多屏协同”功能，实现电脑端操作手机
③使用“人脸识别”功能，实现屏幕解锁
④使用“手写识别”功能，实现输入文字
⑤使用“运动健康”功能，记录用户运动步数
⑥使用“语音助手”功能，回应用户提出的需求
A、②③④ B、①②⑤ C、①③⑥ D、③④⑥ -
2、图图为了推销自己种植的各类水果，开通了一个微信公众号发布销售信息。下列说法正确的是（ ）A、为了方便推广而制作微信公众号二维码的过程属于信息的编码 B、销售信息在传递和共享过程中有可能产生损耗 C、微信公众号是载体，发布的文字、图像等是信息 D、销售信息具有时效性，过期的信息没有任何价值
-
3、编写VB程序，实现两位数a与b相乘的运算，其算法如下：
1）将被乘数a转换为二进制数；
2）将转换后的二进制数中每个数码乘以对应的权值，再乘以乘数b；
3）最后将各乘积相加，得到a与b相乘的结果。
图a显示了13与11相乘的过程：
在文本框Text1中依次输入被乘数与乘数（输入的字符仅限于数字字符、“*”及“/”，每两个乘数间用“/”分隔，并以“/”结尾），单击“计算”按钮Command1后，将计算结果
依次显示在文本框Text2中。程序运行界面如图b所示。
(1)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim a As Integer, b As Integer, qz As Integer, sum As Integer
Dim tx As String, c As String, tmp As String
tx = Text1.Text: tmp=""
n = Len(tx):sum = 0
For i = 1 To n
c = Mid(tx, i, 1)
If c >= "0" And c <= "9" Then
ElseIf c = "*" Then
a = Val(tmp): tmp = ""
Else
b = Val(tmp): tmp = ""
End If
If Then
qz = 1
Do While a > 0
x = a Mod 2
qz = qz * 2
a = a \ 2
Loop
s = s & Str(sum)
a = 0: b = 0: sum = 0
End If
Next i
Text2.Text = s
End Sub
(2)、程序中加框处代码有错，请改正。(3)、若文本框Text1中输入内容的结束符缺失（输入内容为13*10/15*20/16*20)，单击“计算”按钮后，则上图中文本框Text2中显示内容为：。 -
4、某地区天然气价格如下表所示：
居民用户气价
阶梯分档
年用气量Nm3
气价(元/Nm3)
第一阶梯
0-360 (含)
3.00
第二阶梯
360-540 (含)
3.50
第三阶梯
540以上
4.50
小明为了计算家庭每年应缴费用，编写了一个VB程序，功能如下：在文本框Text1中输入每年使用的天然气用量，单击“计算”按钮Command1后，在文本框Text2中输出年缴天然气费用。程序运行界面如图所示。
(1)、在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的属性。(单选，填字母：A .Text / B .Caption / C .Font)
(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。Dim price(1 To 3) As Double
Private Sub Form_Load()
'本过程读取天然气的单价存储在数组 price 中
'代码略
End Sub
Private Sub Command1_Click()
Dim num As Integer, s As String
num = Val(Text1.Text)
If num < 0 Then
s = "请输入正确的数值！"
ElseIf num <= 360 Then
s = Str(num * price(1))
ElseIf num <= 540 Then
s = Str(360 * price(1) + )
Else
s = Str(360 * price(1) + (540 - 360) * price(2) + (num - 540) * price(3))
End If
Text2.Text=
End Sub
(3)、本程序的算法属于算法。（选填：解析/枚举） -
5、小明收集了中国数字音乐产业的市场规模数据，并用Excel软件进行数据处理，如图 a
所示。
请回答下列问题：
(1)、为计算图a中的“市场收入（亿元）”，小明已正确计算了单元格F4中的数据。他希望将单元格F4中的公式向下自动填充至单元格F11，再将区域F4:F11中的公式向右自动填充至H列，从而正确计算出区域F4:H11中的数据，则单元格F4中的公式应修改为；(2)、若将B4:B11单元格数值小数位数设置为0，则F4单元格中显示的值(填字母：A .变大/B .不变/C .变小)；(3)、对2013 年~2020年的数据以市场收入结构分布(%)中的“用户付费”为关键字按降序进行排序，下列操作可行的是。（选填2个序号，按操作顺序）。①勾选“数据包含标题（H）”（注：系统默认“数据包含标题（H）”不勾选）
②选择数据区域 A4:H11
③选择数据区域 C4:C11，选择“以当前选定区域排序（C）”，单击“排序（S）…”按钮
④以“列 C”为主关键字进行降序排序
-
6、有如下 VB 程序段：
For i = 1 To 6
a(i) = Int(Rnd * 15)
If i >= 3 Then
If a(i) = a(i - 1) + a(i - 2) Then
a(i) = a(i) Mod 2
Else
a(i) = a(i) \ 2
End If
End If
Next i
执行该程序段后，在下列选项中，a(1)~a(6)各元素值不可能的是（ ）
A、7 13 2 1 1 3 B、9 3 2 3 0 2 C、2 8 10 3 5 7 D、14 11 7 2 4 1 -
7、对输入字符串中重复字符进行压缩，例如：字符串“aaabbc”压缩后就成为“3a2b1c”，
实现该功能的 VB 程序段如下：
s = Text1.Text: c = 1
For i = 2 To Len(s)
If
Thenc = c + 1
Else
s1 = s1 + Trim(Str(c)) + Mid(s, i - 1, 1) ‘Trim函数用于移除字符串两侧的空字符
End If
Next i
s1 = s1 + Trim(Str(c)) + Mid(s, i - 1, 1)
上述程序段两个方框处的语句分别为：（ ）
A、Mid(s, i, 1) = Mid(s, i - 1, 1) c = 0 B、Mid(s, i, 1) = Mid(s, i - 1, 1) c = 1 C、Mid(s, i, 1) = Mid(s, i + 1, 1) c = 0 D、Mid(s, i, 1) = Mid(s, i + 1, 1) c = 1 -
8、有如下VB程序段：
Dim x As String, s As String
x = Text1.Text: s=""
For i = 1 To Len(x)
c = Mid(x, i, 1)
If c = "a" Then
s = s + "z"
Else
s = s + Chr(Asc(c) - 1)
End If
Next i
在文本框Text1中输入“dream”，执行该程序段后，变量s的值是（ ）
A、Cqdal B、sdzn C、Esfzn D、cqdzl -
9、下列VB表达式中，能生成一个[20,50]之间的随机整数的是（ ）A、Int(Rnd * 51) + 20 B、Int(Rnd * 31) + 20 C、Int(Rnd * 30) + 20 D、Int(Rnd * 31) + 19
-
10、下列选项中，与表达式 x mod 2 = 0 等价的是（ ）A、x \ 2 = Fix(x / 2) B、x Mod 2 = x \ 2 C、Int(x / 2) = x / 2 D、x / 2 * 2 = x
-
11、下列表达式的值为 False 的是（ ）A、Abs(-12.3) > Int(12.3) B、Len("3 + 5") <= Val(Mid("123456", 3, 2)) C、75 \ Sqr(25) Mod 5 = 0 D、Not(5>4 Or 12<5)
-
12、有甲乙两幅未经压缩的800×600像素的BMP图像文件，甲图为64色，乙图为8位色，则甲图和乙图的存储容量之比约为（ ）A、8:1 B、3:4 C、5:3 D、5:8
-
13、某算法的部分流程图如图所示。执行这部分流程后，输出ａ的值是（ ）
A、2 B、3 C、4 D、6 -
14、下列关于计算机信息编码的描述，错误的是（ ）A、二进制数 1010111 转换为十六进制数是 A7 B、一个区位码占两个字节 C、字符“a”和“A”内码值的差用十进制表示是 32 D、计算机存储 ASCII 码时，最高位为“0”
-
15、Access 中的一张数据表设计视图如图所示下列说法正确的是（ ）
A、可修改“产品编号”字段值 B、不同记录的“价格”字段值可以相同 C、该数据表共有 7 条记录，表名为“扫地机器人.accdb” D、“是否分期”字段的有效输入值可以为“已分期” -
16、使用 Word 软件编辑某文档，部分界面如图所示
下列说法正确的是（ ）
A、删除批注内容“少数民族”后，批注对象“畲族”同时被删除 B、文字“装裹着”下方有红色波浪线，说明此处肯定存在拼写错误 C、实现图中的图文环绕效果可以采用“四周型”环绕方式 D、接受文档中的所有修订后，文字“有趣”被保留 -
17、下列应用中，没有体现人工智能技术的是（ ）A、通过人脸识别完成车票查验进入高铁站 B、某软件将语音转换成文本并显示在屏幕上 C、将学生的答卷纸扫描转换成电子图片存储于计算机中 D、扫地机器人可通过对环境的感知，自动学习，合理规划路线，完成清扫等工作
-
18、下列有关网页与浏览器的说法，正确的是（ ）A、网页中包含的图像、超链接等元素是由HTML进行描述的 B、万维网采用SMTP协议将浏览器发出的请求发送到Web服务器 C、将正在浏览的网页的URL添加到“收藏夹”，实际上是保存了该网页的内容 D、通过搜索引擎检索到的信息都具有较高的参考价值
-
19、下列有关信息与信息处理的说法，错误的是（ ）A、同一信息可以依附于不同的载体 B、计算机只能处理数值类型的数据 C、对于不同的人群、不同的时间，信息的价值可能有所不同 D、信息经过加工、处理、分析后，可更好地被人们所使用
-
20、某日期加密授权码生成方法描述如下：
1）授权码由10位字符组成，前8位为日期的密文，后2位为验证码；
2）从右往左依次取日期的每一位字符，若该字符第一次出现，则直接取其对应的加密字符，否则取下一个不重复的加密字符。按此操作，依次取出该日期余下各位对应的加密字符；如日期为20201223，则依次取出的字符为“3、2、2、1、0、2、0、2”。
3）求出所有日期字符数值的和，将和除16取余加1得到一位验证码字符；若和不小于16，则将和除16取整加1得到另一位验证码字符，否则另一位验证码字符为小写字母“x”。取出验证码重复时，处理规则与（2）相同。
加密（验证码）字符对应表如下：
值（十进制）
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
加密（验证码）字符
A
K
p
j
L
t
W
b
m
a
P
F
Z
q
y
c
设计一个生成8位日期（YYYYMMDD格式）授权码的VB程序。程序功能如下：在文本框text1中输入一个8位有效日期，单击“授权码”按钮comand1，在标签label2中显示出该日期的授权码。运行效果如图所示。
(1)、若输入的日期是“20210108”，则label2上显示内容为；(2)、实现上述功能的VB程序段如下，请在划线处填入合适代码。Dim f(0 To 15)As Integer
Const code = "AKpjLtWbmaPFZqyc"
Private Sub Comand1_Click()
Dim rq As String, sq As String
Dim c As Integer, i As Integer, d As Integer
For i = 0 To 15
f(i)= 0
Next i
rq = Text1. Text
sq="":d= 0
If Len(rq) <> 8 Then
Labe12. Caption ="请重新输入8位日期"
Else
For i = 1 To 8
c = Val(Mid(rq,i,1))
d =d + c
sq =
Next i
If d >= 16 Then
yz = getchar(d Mod 16 + 1) + getchar(d \ 16 + 1)
Else
yz = getchar(d Mod 16+ 1) + "x"
End If
Label2. Caption = sq + yz
End If
End Sub
Function getchar(x As Integer) As String '获取不重复的加密字符
Dim flag As Boolean
flag = False
Do while flag = False
f(x)=f(x)+ 1
If f(x)= 1 Then
getchar =
f(x)=f(x)+ 1
flag = True
Else
End If
Loop
End Function