相关试卷

1、使用Access软件编辑数据表，部分界面如图所示。

当前状态下下列说法不正确的是（）

A、当前视图中，可以在“一段线”前面插入“特殊线”字段 B、修改某一个数值后，可以通过撤销恢复，删除某个字段或某条记录，则无法撤回 C、通过导入Excel表数据来添加记录，但无法导入文本文档来添加记录 D、“ID”字段可以转为“文本”或“数字”格式，“一段线”字段不能转成“自动编号”类型

查看解析
2、下列有关网页的说法，正确的是（）

A、联网状态下可以通过点击收藏夹网址直接浏览网页，不需要网页浏览器支持 B、网页三要素：文字，图片，超文本传输协议(HTTP) C、统计评价能反应出资源可信度较高，从本质上一定具有较强的专业性 D、用账号和密码认证登录网站，是为了提高信息数据安全和加强信息保密

查看解析
3、北京时间2021年11月7日，航天员翟志刚、王亚平身着我国新一代“飞天”舱外航天服，先后从天和核心舱节点舱成功出舱，经过约6.5小时的出舱活动，神舟十三号航天员乘组密切协同，圆满完成出舱活动期间全部既定任务。以下说法正确的是（）

A、现代信息技术以计算机和通信技术为支撑，体现信息的载体依附性 B、神舟十三号飞船要验证的6个月长期在轨飞行技术，体现计算机系统运行的准确性高 C、航天服能实现隔热，应对真空温差、辐射等，保障生命安全，体现信息安全性 D、随着技术不断发展，信息必将脱离它所反映的事物，无需载体就可以传播保存

查看解析
4、某校举行拔河比赛，参赛选手队列要求如下：
1)每班参赛男、女选手各5人

2)男女穿插站队，即：男女男女……队列

3)男生身高从低到高排列，女生身高从高到低排列

小明设计了一个程序实现如下功能：在文本框Text1中输入学生身高，奇数位置上存放男生的身高，偶数位置上存放女生身高，两个数之间用逗号隔开。单击“排序”按钮，使男生身高升序排序，结果输出在文本框Text2中，女生按身高降序排序结果存放在文本框Text3中。

程序运行界面如图所示

(1)、请在划线处填入合适的代码
Private Sub Command1_Click()

    Dim n As Integer

    Dim a(1 To 10) As Integer

    Dim i As Integer, j As Integer, tmp As Integer

    Dim s1 As String, s2 As String, t As Integer

    Dim s As String, c As String

    s = Text1.Text

    n = 1

    For i = 1 To Len(s)

        c = Mid(s, i, 1)

        If c >= "0" And c <= "9" Then

            a(n) = a(n) * 10 + Val(c)

        Else

            n = n + 1

        End If

    Next i

    t = -1

    For i = 1 To n - 2

        For j =

            If a(i) * t < a(j) * t Then

                tmp = a(i): a(i) = a(j): a(j) = tmp

            End If

        Next j



    Next i

    For i = 1 To n

        If i Mod 2 = 1 Then

            s1 = s1 + Str(a(i))

        Else



        End If

    Next i

    Text2.Text = s1

    Text3.Text = s2

End Sub

(2)、若男生甲和男生乙的身高都是 180，在Text1中的输入顺序是：男生甲，女生甲，男生乙……，则经过排序后，男生甲排在男生乙的 (单选，填字母：A .前面 / B .后面)

查看解析
5、为防止机密通知被盗，某公司制定了网上发通知的加密要求：
1）通知中包含的空格，标点符号等按原格式输出

2）通知中涉及到字母的内容，所发文件的英语单词全部都是倒序的。如：This is a dog!通知显示内容为：sihT si a god!

3）通知中涉及到数字的内容，把本组数字的最后一位移动到第一位,例如原文为1234，通知显示内容为：4123

小王编写了一个VB程序，实现加密功能，在文本框Text1中输入原文，单击“加密”按钮Command1后，在文本框Text2中显示加密后的密文。程序运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：

(1)、若要修改按钮Command1上显示的文字，应修改的属性名是（单选，填字母：A .Text/B .Caption /C . List ）

(2)、实现上述功能的VB程序代码如下，请在划线处填入合适的代码
Private Sub command1_Click()

    Dim s As String, ch As String, rv As String, rv1 As String

    Dim i As Integer, j As Integer, k As Integer

    s = Text1.Text

    rv = ""

    i = 1

    Do While True

        ch = Mid(s, i, 1)

        Do While And i <= Len(s)

            rv = rv + ch

            i = i + 1

            ch = Mid(s, i, 1)

        Loop

        j = i

        ch =

        Do While sz(ch) And j <= Len(s)

            j = j + 1

            If j > Len(s) Then Exit Do

            ch = Mid(s, j, 1)

        Loop

        rv1 = ""

        rv1 = Mid(s, j - 1, 1) + Mid(s, i, j - i - 1)

        rv = rv + rv1

        i =

        If i > Len(s) Then Exit Do

        Do While zf(ch) And j <= Len(s)

            j = j + 1

            If j > Len(s) Then Exit Do

            ch = Mid(s, j, 1)

        Loop

        rv1 = ""

        For k = i - 1 To j - 1

            rv1 = Mid(s, k, 1) + rv1

        Next k

        rv = rv + rv1

        If j <= Len(s) Then rv = rv + Mid(s, j, 1)

        i = j + 1

        If i > Len(s) Then Exit Do

    Loop

    Text2.Text = rv

End Sub

Function zf(s As String) As Boolean

    zf = False

    If s >= "A" And s <= "Z" Or s >= "a" And s <= "z" Then

        zf = True

    End If

End Function

Function sz(s As String) As Boolean

    sz = False

    If Then

        sz = True

    End If

End Function

(3)、程序中加框处代码有错，请改正

查看解析
6、使用Flash软件制作“中国茶文化”多媒体作品，部分编辑界面如图所示。

请回答下列问题：

(1)、在创作之前进行了作品设计，下列说法正确的是（多选，填字母）

A、设计作品的主要界面、工作流程属于系统结构设计 B、确定获取原始素材的方式属于应用需求分析 C、设计多媒体作品的第一步是模块设计 D、包含制作中所需的各种素材文件名、获取方法等信息的是媒体元素分解 E、确定该作品面向茶艺爱好者的学习属于应用需求分析

(2)、如图所示，“音乐”图层声音的同步方式设置为“事件”，为使动画播放到当前场景第24帧时“音乐”图层中的音频停止播放，在不影响其他动画播放的前提下，下列方法可行的是( 单选，填字母：A .把“音乐”图层第48帧移动到第24帧 / B .在“诗句”图层第24帧添加动作命令“StopAllSounds();”)，单击第48帧中的“茶文化”按钮实现在浏览器中显示位于同一目录下“茶文化.txt”文件的内容，则该按钮实例上添加的动作脚本是on(press){}(单选，填字母：A .gotoAndplay(“茶文化.txt”)；/ B .getURL(“茶文化.txt”);).

(3)、“诗句”图层中的诗句在动画播放2秒末才出现，要想让动画播放1秒后诗句就出现，并持续到本场景播放结束，该如何操作？

(4)、“金鱼”图层中金鱼都是“鱼”元件的实例，在不改变其他动画播放效果的前提下，使金鱼一直出现在舞台上，下列操作方法可行的是 (多选，填字母)

A、对“金鱼”图层第25帧执行“清除关键帧”操作 B、对“金鱼”图层第一帧执行“复制帧”操作，并在25帧执行“粘贴帧”操作 C、把“金鱼”图层第25帧移动到第48帧 D、在“金鱼”图层第25帧，把“鱼”元件添加到舞台相同位置上 E、对“金鱼”图层第25帧执行“清除帧”操作

查看解析
7、收集2020年全国部分城市1-4月降雨量，并用Excel软件对数据进行处理，如图a所示。

图a

请回答下列问题：

(1)、区域G3:G36的数据要通过公式计算得到，在G3单元格中输入公式，再使用自动填充功能完成区域 G4:G36的计算。(rank函数的作用求某一个数值在某一区域内一组数值中的排名。rank函数的语法格式=rank(number,ref,[order])number ——参与排名的数值,ref ——排名的数值区域,order——有1和0两种。0——从大到小排名（降序），1——从小到大排名（升序）。0默认不用输入，得到的就是从大到小的排名。)

(2)、对区域A2:G36进行相关数据分析，下列说法正确的是 (多选，填字母)

A、为了显示华北地区4月降雨量大于60的城市，可以先对“地区”进行筛选选择的值为“华北地区”，再对“4月”进行筛选，设置的筛选条件是大于60 B、为了找出3月降雨量最高的三个城市，可以对“3月”进行筛选，选择“10个最大的值”并显示最大的3项 C、若不小心删除C列数据，G列2月降雨量排名的值也会随之变化 D、从数据表中可以看出，华北地区1月几乎不降雨

(3)、要对2020年华东地区4月的降雨量为主要关键字降序排序，则所选择的数据区域是。

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

m = Int(Rnd *5 + 1)

For i = 1 To n - m +1

    k = i

    For j = m To n - i

        If a(j) > a(j + 1) Then

            t = a(j) : a(j) = a(j + 1) : a(j + 1) = t

        ElseIf a(j) > a(k) Then

            k = j

        End If

    Next j

    tmp = a(k) : a(k) = a(i) : a(i) = tmp

Next i

数组元素a(1)到 a(8)的值依次为“25,77,82,71,53,42，69，83”。经过该程序段加工后数组元素a(1)到a(8)的值不可能是（     ）

A、71 77 82 25 42 53 69 83 B、82 77 25 42 53 69 71 83 C、82 25 42 53 69 71 77 83 D、83 42 53 69 71 77 82 25

查看解析
9、有如下VB程序段：
s1 = "567898765"

s2 = ""

n = Len(s1) \ 2

For i = 1 To n

    If Mid(s1,i,1) < Mid(s1, n + 1, 1) Then

        s2 = s2 + Mid(s1, i, 1)

    Else

        s2 = Mid(s1, n + i, 1) + s2

    End If

Next i

Text1.Text = s2

A、98765 B、7898 C、5678 D、56789

查看解析
10、某对分查找的VB程序如下：
i = 1: j = 8 : n = 0

key = Val(Text1.Text)

Do While i <= j

    m = (i + j- 1) \ 2

    n=n+1

    If a(m) >=key Then

        i = m + 1

    Else

        j = m - 1

    End If

Loop

Label1.Caption=Str(n)+Str(i)

数组元素a(1)到a(8)的值依次为“ 35,32,29,26,21,19,16,12”。在文本框Text1中输入17，执行该程序段后，标签Label1上显示的内容是（      ）

A、3 7 B、2 7 C、4 8 D、2 8

查看解析
11、在文本框Text1中输入十进制数x，将其转换为十六进制数后在标签Label1上输出。VB程序段如下：
Dim x As Integer Dim s As String

Dim st As String

Dim t As Integer

st=“0123456789ABCDEF”

x = Val(Text1.Text)

Do While x > 0

Loop

Label1.Caption=s

方框中的代码由以下三部分组成：

① x = x \ 16 ② s = Mid(st,t+1,1)+ s ③ t = x Mod 16

下列选项中代码顺序正确的是（）

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

查看解析
12、某算法的部分流程图如图所示，执行这部分流程后，变量C的值是( )

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

查看解析
13、vb表达式 3^2-13 mod 5*2 的值是( )

A、3 B、6 C、9 D、11

查看解析
14、一幅1024*768像素256色的BMP位图保存为JPG后容量为59KB，则图像的压缩比约为（）

A、18:1 B、10:1 C、20:1 D、13:1

查看解析
15、用Photoshop软件制作“花开富贵”作品，如图所示

下列说法正确的是（）

A、可以直接用橡皮擦工具擦除“文字”图层中的文字 B、复制“花开富贵”图层的图层样式到“荷花”图层，可以看到“内发光”效果 C、可以直接对“笔架”图层进行重命名操作 D、可以将“荷花”图层移动到“背景”图层下方

查看解析
16、下列关于信息编码的说法，正确的是（）

A、二进制数100101与十进制数35的值相等 B、某8位二进制数的最高位是0，最低位是1，将其转换为十进制的最大值为127 C、已知大写字母“B”的ASCII码值为42H,则小写字母“b”的ASCII码值是74H D、若字母“A”为全角输入，则其在计算机中存储空间为2bit

查看解析

17、用Access软件设计某宾馆客房管理系统的数据库，其中已建好的“客房入住情况实时数据表”用于存储如图所示的数据。

序号	时间	层	房号	客房入住情况	属性
1	2021-5-1 08: 30: 00	3	8305	已入住	普通单人房
2	2021-5-1 10: 30: 00	3	8310	未入住	普通双人房
3	2021-5-1 12: 30: 00	4	8421	已预定	豪华单人房
4	2021-5-1 14: 35: 00	6	8618	未入住	普通双房人
…	…	…	…	…	…

下列说法正确的是（）

A、该数据表的字段数只能是6个 B、图中“客房入住情况”列在该数据表中相应字段的数据类型可以是“是/否” C、该数据表中“序号”字段的字段类型可以设置为“自动编号”类型 D、在该数据表所在的数据库中，可以有两个相同名字的数据表

查看解析

18、下列有关网络与浏览器的说法，正确的是（）

A、实现登录网页发送邮件只需用到POP3协议与HTTP协议 B、在IE浏览器中，以“web档案，单一文件（*.mht）”类型保存网页，可以保存网页中的图片 C、为方便浏览常用的网页，可以把网页的内容添加到收藏夹中 D、IE浏览器可以对网页文件(.html)进行编辑、解释并执行

查看解析
19、下列有关信息及信息技术的说法，正确的是（）

A、转发量高，点赞率高的信息，其可信度一定高 B、文字、语言、图形、图像、人脑都是信息的载体 C、古代没有电脑、没有网络，也没有信息技术 D、语言、文字、声音、网络等都属于信息的表达方式

查看解析
20、某学校某一年级共有m（偶数）个班级，在开展运动会期间，所有班级的学生随机站成一排并按位置顺序进行编号，已知共有n位同学。现要选取k位选手参加跳绳比赛，选取方法是：在排好的队列中选取连续的k位（k是偶数且k>=m）学生，要求每个班级至少有一位学生参加比赛，并且参赛的男生人数和女生人数相同。现要设计一VB程序，确定选取学生的起止位置，VB的部分界面如下图所示，加载窗体时，在List1中生成n个学生所处的位置和学生编号，其中位置就是学生所在队列中的位置，学生编号由两位数字构成，即班级+性别（0表示男生，1表示女生），在文本框Text1中输入抽取的学生的人数k，单击“抽取”按钮Command1，在列表框List2中显示满足条件的所有队列情况。

(1)、若共有4个班级，学生排列的编号是11,21,30,11,40,41,30,21,20,10,11,20,31,40，若k=4，共存在种抽取方案。

(2)、请在划线处填入适当代码。
Dim s As String

Dim i As Integer，sum As Integer

Dim a(1 To 1000) As Integer

Dim b(1 To 1000) As Integer

Dim ton(1 To 6) As Integer      '存储选中队列中各个班级的人数

Const m = 6

Const n = 300

Private Sub Form_Load()

    For i = 1 To n

        '随机生成n个学生编号显示在列表框List1中，并将学生的班级号和性别分别存储在数组a和b中

    Next i

End Sub

Private Sub Command1_Click()

    Dim j As Integer, k As Integer, tmp As Integer

    k=Val(Text1.text)

    For i = 1 To n – k + 1

        For j =

        If ton(a(j)) = 0 Then

            sum = sum + 1



        End If

        If xb(b(j)) = False Then tmp = tmp + 1

    Next j

    If Then

        List2.AddItem Str(i) + Str(i + k - 1)

    End If

    sum = 0: tmp = 0

    For k = 1 To m

        ton(k) = 0

    Next k

    Next i

End Sub

Function xb(data As Integer) As Boolean

    xb = False

    If data = 0 Then xb = True

End Function

查看解析

上一页 496 497 498 499 500 下一页跳转