相关试卷

1、下列表达式的值为False的是（）

A、8%3==6//3 B、not(8+3<8-3) C、2**3+1==7 D、10/3!5

查看解析
2、某大型购物网站收集了用户浏览网站的数据用于广告个性化实时推荐，下列处理方式中合理的是( )

A、应当使用统计分析软件进行数据分析 B、应当选用针对流数据的实时计算 C、应当选用针对图结构数据的图计算 D、应当选用针对静态数据的批处理计算

查看解析
3、下列关于大数据的说法，正确的是（）

A、大数据分析的是抽样数据 B、用大数据进行数据处理时，必须保证每个数据都准确无误 C、大数据的数据来源主要还是人力 D、大数据采集的数据有结构化、半结构化和非结构化的数据类型

查看解析
4、2021年3月15日晚会上某商家利用人脸识别监控设备在大众不知情的情况下收集进店顾客的人脸信息的新闻引发大众关注，据了解，国内上千家该品牌门店，都安装了摄像头，一旦有人走进店铺，面部信息就会被收集。只要顾客在一家门店出现一次，任何—家门店都将得到其光顾信息。下列说法正确的是( )

A、“人脸识别”属于虚拟现实技术的应用 B、商家利用摄像头收集进店顾客人脸信息的过程，属于数据的存储 C、任何一家门店都能得到某顾客的光顾信息，体现了信息的时效性 D、未经授权采集人脸信息有可能加剧个人隐私泄露风险

查看解析
5、班长为合唱比赛准备礼物，预算总金额有n元钱，预计购买p件礼物，每件礼物对应有商品编号、单价、数量和喜爱度。礼物不可分割，每人至多一份，班长希望每位获得礼物的同学都尽可能喜爱获得的礼物。
按上述要求，编写VB程序，功能如下：在文本框Text1中输入预计礼物数，在文本框 Text2中输入总金额，单击“计算”按钮Command1，在列表框List1中显示各类商品的编号、单价、数量、喜爱度，以及最佳购买方案、剩余金额和总喜爱度，若有多种最佳方案，则输出第一个找到的方案信息，如图a所示。

图a

(1)、请在划线处填入合适的代码。
Const m = 4          '有 m 种商品

Dim sph(1 To m) As String      '商品号

Dim dj(1 To m) As Single      '单价

Dim sl(1 To m) As Integer      '数量

Dim xa(1 To m) As Integer      '喜爱度

Dim hh(1 To m * 10) As Integer      '每件商品对应的货号

Dim p As Integer，n As Integer，nc As Integer      'p个朋友，n元钱，共nc件商品

Dim zxa As Integer         '总喜爱度为每件购买商品的喜爱度*购买数量的总和

Private Sub Form_Load()

    '各商品的商品号、单价、数量、喜爱度分别存入数组 sph、dj、sl 和 xa 并输出，代码略

End Sub

Private Sub Command1_Click()

    Dim goumai(1 To m * 10) As Integer

    Dim i As Double，j As Integer，k As Integer，t As Integer

    Dim fs As Integer，je As Integer，maxi as Integer，maxje As Integer，maxzxa As Integer

    p = Val(Text1.Text): n = Val(Text2.Text)

    nc = 0

    For i =1 To m

        For j =1 To sl(i)

            nc = nc + 1: ①

        Next j

    Next i

    For i =0 To 2^ nc - 1

        t = i

        For j =1 To nc

            goumai(j) =②

            t = t \ 2

        Next j

        fs = 0: je = 0: zxa =0       '初始化份数，金额，总喜爱度

        For j =1To nc

            fs = fs + goumai(j): je = je + dj(hh(j)) * goumai(j): zxa = zxa + xa(hh(j)) * goumai(j)

        Next j

        If fs = p And ③ Then maxi = i: maxje = je: maxzxa = zxa

    Next i

    '输出maxi对应的购买方案，代码略

    If maxje >0 Then List1.AddItem "剩余金额:" & CStr(n - maxje) & " 总喜爱度:" & CStr(maxzxa)

    Else

        List1.AddItem "钱太少"

    End if

End Sub

(2)、根据题意，现有4种商品对应的信息如图b所示，若预算总金额为400元，预计购买10件礼物，则图中购买方案中三种商品的购买数量分别为（填数字，中间用逗号分隔）。

图b

查看解析
6、某班级（人数不超过40人）参加合唱比赛，需要整理队形。先将所有人按身高升序排好，再将人数每10人排成1排，每排中间低两边高。
编写VB程序，依据上述要求排队。运行程序，在列表框 List1中显示了排序前的人员身高，单击“排序”按钮Command1后，在列表框List2中显示身高升序排序结果，再单击“站位”按钮Command2后，按10人一排站好，结果显示在列表框List3中。界面如图所示。

Dim h(0 To 40) As Integer         '学生身高

Dim n As Integer

Private Sub Form_Load()

    '从数据库中读取身高，共n条记录，存入h数组中，代码略

End Sub

Private Sub Command1_Click()

    For i =2 To n

        h1 = h(i): j = i – 1

        Do While

            j = j - 1

        Loop

        For k = i To j +2 Step -1

            h(k) = h(k - 1)

        Next k

           ①

    Next i

    '在列表框 List2中输出排序结果，代码略

End Sub

Private Sub Command2_Click()

    '按人数每10人一排

    Dim x As Integer

    x = n \ 10

    For i =1 To x

        Call fenpai(   ②   )      '过程fenpai作用：将人员按中间低两边高排好，代码略

    Next i

    If n Mod 10 >0 Then Call fenpai(x * 10 + 1， n)

    '将站位结果输出在列表框 List3 中，代码略

End Sub

(1)、下列对象中，不具有Caption 属性的是（单选，填字母：A . Command1 / B .Form1 / C .List1 / D .Label1）。

(2)、请将划线处补充完整
① ②

(3)、加框处代码有错误，请改正

查看解析
7、某同学制作主题为“狼与羊”的多媒体作品。首先使用Photoshop软件处理图像，然后用Flash软件制作动画作品。请回答下列问题：

(1)、处理图像的部分界面如图a所示。

图a

该同学想将图中灰色背景去除，另存为透明背景的图片文件，导入Flash中。正确的操作步骤是⑤-⑦-。（选取序号，按操作顺序填写）

①在工具箱中选择“魔棒”工具；

②在工具箱中选择“套索”工具；

③设置合适的“容差”值；

④设置合适的“羽化”值；

⑤复制“背景”图层；

⑥单击灰色背景部分，点[delete]键；

⑦选择“背景副本”图层；

⑧隐藏“背景”图层；

(2)、制作动画作品的部分界面如图b所示。测试影片时，发现影片在第1帧停止，而“羊”图层中羊的双脚一直在动，则“羊”元件的类型为（单选，填字母：A .影片剪辑/ B .图形/C .位图）。去除第1帧中的“stop();”命令后，“云”图层中实现了云朵由舞台外进入舞台中上方，并由白变黑，最后变为“完”字，该动画类型为（单选，填字母：A .动画补间/B .形状补间/C .逐帧动画）；

图b

(3)、测试影片时，发现3秒后背景画面就消失了，想要使背景一直持续到本场景结束，在不影响其他动画效果的前提下，下列操作可行的是（多选，填字母）

A、在“背景”图层第80帧插入关键帧 B、对“背景”图层第1帧复制帧，在第37帧粘贴帧 C、将“背景”图层第37帧移动到第80帧 D、复制“背景”图层第1帧中内容，在第37帧中粘贴 E、对“背景”图层的第37帧“清除关键帧”

(4)、测试影片时，希望该场景播放到最后一帧时，能跳转到“片尾”场景的第1帧停止，则可在“文字”图层的第80帧上添加的动作命令是（多选，填字母）

A、On(release){gotoandstop(“片尾”，1);} B、gotoandplay("片尾"，1);stop(); C、gotoandstop("片尾"，1); D、stop();gotoandplay("片尾"，1);

查看解析
8、某同学收集2020年全国主要城市平均气温的相关数据，并使用 Excel 软件进行数据处理，如图所示。

请回答下列问题：

(1)、区域B13:M13的数据是通过公式计算各月各城市间温差的最大值。在B13单元格中的输入公式后，再用自动填充功能完成C13：M13的计算。

(2)、分别对图中的“1月”和“2月”两列数据进行筛选操作，筛选出这两月月平均气温均高于-2摄氏度的记录，则筛选出的城市有个。

(3)、根据图中的数据，制作了一张反映北京和杭州各月气温变化趋势的图表，该图表合适的类型是，创建该图表的数据区域是。

查看解析
9、某对分查找算法的 VB 程序如下：
Private Sub Command1_Click()

    Dim d(1 To 10) As Integer, i As Integer, j As Integer

    Dim m As Integer, key As Integer, s As String

    key = Int(Rnd( ) * 50) *2+ 1

    s = "": i = 1: j = 10

    Do While i <= j

        m = (i + j) \ 2

        If key = d(m) Then Exit Do

        If key < d(m) Then

            j = m - 1: s = s + "L"

        Else

            i = m + 1: s = s + "R"

        End If

    Loop

    Label1.Caption = s

End Sub

若数组d(1)至d(10)的值依次为"11，13，20，48，51，67，70，73，80，91"，若执行后 Label1 上显示2个“L”和1个“R”或2个“R”和1个“L”，则key的可取值个数为（   ）

A、6 B、13 C、17 D、22

查看解析
10、有如下VB程序段：
n = 7

d(1) = 123: d(2) = 35: d(3) = 43: d(4) = 23: d(5) = 56: d(6) = 78: d(7) = 132

k = 1

For i =2 To n

    For j =    ⑴

        If    ⑵    Then

            tmp = d(j): d(j) = d(j + 2): d(j + 2) = tmp

        End If

    Next j

    k = -k

Next i

执行该程序段后，d 数组各元素为“132，23，123，35，56，78，43”，上述程序段中方框处可选语句为：

①i -1 To n - 2

②1 To n - i

③d(j) * k > d(j + 2) * k

④d(j) * (-k) > d(j + 2) * (-k)

则（1）（2）处语句依次可为（   ）

A、①③ B、②③ C、①④ D、②④

查看解析
11、有如下 VB 程序段：
Dim a(1 To 6) As Integer

Dim d(1 To 6) As Integer

a(1) = 10: a(2) = 21: a(3) = 28: a(4) = 11: a(5) = 12: a(6) = 30

Const n = 6

For i = n To 1 Step -1

    d(i) = 0

    For j = n To i +1 Step -1

        If a(j) > a(i) Then d(i) = d(j) + 1

    Next j

    If d(i) > Max Then Max = d(i)

Next i

Text1.Text = Str(Max)

执行该程序段，文本框Text1中显示的是（   ）

A、1 B、2 C、3 D、4

查看解析
12、某 VB 程序段如下：
Dim a(1 To 3) As Single，i As Integer

Randomize

a(1) = 1

For i =2 To 3

    a(i) = (Int(Rnd() * 3)) *2- 2

    a(i) = Abs(a(i - 1)) / Sqr(a(i))

Next i

List1.AddItem Str(a(i))

运行该程序段，下列错误提示不可能会出现的是（   ）

A、下标越界 B、无效的过程调用或参数 C、类型不匹配 D、除数为零

查看解析
13、某算法的部分流程图如图所示。执行这部分流程，若输入 n，m，s的值分别为3，4，“ABCDE”，则输出 s1 的结果中不可能出现的是（）

A、BAE B、BAB C、CBA D、EDC

查看解析
14、VB表达式14 mod 14 \ 3 + -3 ^2的值是（）

A、-9 B、-7 C、9 D、11

查看解析
15、将一幅未压缩的768×512像素、256级灰度BMP图像，经过一定处理，保存为未压缩的256×170像素、黑白BMP图像，其前后图像文件的存储容量比约为（）

A、72:1 B、36:1 C、18:1 D、4:1

查看解析
16、使用GoldWave软件编辑某音频文件，部分界面如图所示。

下列说法正确的是（）

A、执行“删除”操作后直接保存，音频文件的存储容量约为原来的2/3 B、执行“剪裁”操作后，左声道第0~3秒将出现选中音频 C、执行“复制”操作，再执行“粘贴”操作后，音频时长增加了3秒 D、执行“插入静音”操作1秒后，音频的最后将出现1秒静音

查看解析
17、按位取反指二进制数每一位取反，0变1，1变0。十六进制正整数 n 转换为二进制数，该二进制数共6位，下列说法正确的是（）

A、n的值必大于十进制数32 B、若该二进制数的末位为1，则十六进制数n+1可能为3位数 C、该二进制数首位去掉，所得的值是原来的一半 D、该二进制数按位取反，转换为十六进制数，与n相加的结果必为3FH

查看解析
18、用 Access 软件打开某数据表，部分界面如下图所示。下列说法正确的是（）

A、当前数据库名为“成员信息.accdb” B、若“项目名称”表中已有记录，仅将“编号”字段的值清空，可将该字段改为“自动编号”类型 C、当前状态下，不能交换“说明”和“日期”字段的顺序 D、当前状态下，可以新增一个表名为“说明”数据表

查看解析
19、下列关于网页与浏览器的说法，正确的是（）

A、把关键的词与它相关的内容用“超链接”链接起来，这样的文本称之为超文本 B、因特网上存储着海量信息，是信息获取的唯一渠道 C、收藏夹主要用于网页内容的收藏 D、搜索引擎的两大核心技术是主题目录搜索技术和关键字搜索技术

查看解析
20、下列关于信息和信息技术的描述，正确的是（）

A、信息技术包含通信技术、计算机技术、微电子技术和遥感技术 B、虚假信息的产生可源于错误信息的加工 C、信息无处不在，因此信息的传递可以脱离载体 D、信息一旦被利用和加工，便会具有更高的真实性

查看解析

上一页 649 650 651 652 653 下一页跳转