相关试卷

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

A、网页中的所有对象均存储在网页文件中 B、记事本软件可以对网页文件(.html)进行编辑、解释并执行 C、用IE浏览器保存网页内容只保存了该网页的URL D、浏览器与Web服务器之间进行信息传输采用的协议是HTTP

查看解析
2、下列关于信息的说法，正确的是( )

A、计算机可以处理任意形式的信息 B、规范的信息表达是信息交流的基础 C、多媒体信息的传播必须依附于多种载体 D、经过计算机处理的信息一定可以恢复到处理前的状态

查看解析
3、    小明和小红喜欢传纸条，为防同学偷看，约定使用Diffie-Hellman算法来加密，该算法的简化模型如下：二人先约定两个正整数g和n，然后小明私下随机生成一个数x，并计算U=g^x Mod n；小红也私下生成一个数y，并计算V=g^y Mod n。随后二人交换计算出的U，V。接着小明独自计算出自己的密码mkey=V^x Mod n，小红也独自计算出自己的密码hkey=U^y Mod n，且mkey=hkey。
    事实上，依上述算法，即便同学们知道g，n，U，V的值，也无法计算出二人的密码，必须再取得x或y才可以，而x，y仅他俩各自保留，外人无从知晓。
    已知消息加密的步骤(该步骤可逆)为：①将消息字符串倒序→②将各个字符转换为ASCII码数值→③对各个数值用密码进行异或操作(已知异或运算可逆，即a Xor k=b， b Xor k=a)→④用逗号间隔各异或运算后的结果。
    小红依加密的步骤可逆，编制了一个如下的VB程序，该程序用于解密小明的密文，程序运行界面如图所示。回答下列问题：

Private Sub decrypt_ Click()

  Dim g，n，U，y，hkey As Integer

   Dim mw， xx As string

   Dim a(1 To 100) As Integer

   Dim i， L As Integer， c As String

   '经与小明的协商，小红已获得g，n，U，y的值

   g=2：n=7           '约定两个数g和n的值分别为2和7

   U=2：y=5           '小红随机生成的数y的值为5

   mw = Text1.Text    '小明的密文，由数字和逗号组成

   hkey =     ①

   L=1

   For i = 1 To Len(mw)

        c = Mid(mw， i， 1)

        If Then

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

        Else

            L=     ②

        End If

  Next i

  For i=1 To L

        a(i) = a(i) Xor hkey

            ③

   Next i

   Text2.Text = xx

End Sub

(1)、加框处代码有错，请改正。

(2)、在程序划线处填入合适代码，使程序完整。
① ② ③

查看解析
4、对一组正整数进行升序排序，要求排序后奇数在前，偶数在后。程序界面如图所示。回答下列问题：

(1)、实现上述排序功能的某VB程序如下，观察程序代码，将排序前原始数据在列表框中显示的事件处理过程名为                (单选，填字母)。

A、Load() B、Form_Load() C、Command1 D、Command1_ Click()

(2)、请在程序划线处填入适当的代码。
Const n = 10

Dim a(1 To 10) As Integer

Private Sub Form _Load()

    '读取一组正整数，存储在数组a中，并在列表框list1中显示。代码略

End Sub

Private Sub Command1_Click()

   Dimi As Integer，m As Integer，low As Integer，high As Integer，temp As Integer

  low=1：high=n

  Do While

      If a(low) Mod 2 = 1 Then

            m =low

          For i=low+1 To high

                If a(i)Mod2=1 And a(i)<a(m) Then m=i

            Next i

            temp = a(m)： a(m) = a(low)： a(low) = temp

            low= low + 1

      Else

            m =low

            For i=low To high

                If Then m=i

          Next i

            temp = a(m)： a(m) = a(high)： a(high) = temp



      End If

  Loop

  For i=1 To n

        List2.AddItem Str(a(i))

  Next i

End Sub

查看解析
5、小李同学制作主题为“文明城市”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，再用Flash软件制作多媒体作品。请回答下列问题：

(1)、如图a所示，下列操作可实现的是 (多选，填字母)。

A、在“背景”图层上，用矩形选框工具选定部分内容后，进行“自由变换”操作 B、直接移动“房子1”图层上的图像位置 C、选中“安全出行”图层后，用“自由变换”操作调整字体大小 D、选中“房子2”图层后，调整其不透明度

(2)、当前场景中，“白云”图层实现的是云朵图像逐渐变成“文明出行”字样的动画效果，则该图层上的动画属于(单选，填字母：A .逐帧动画/B .动画补间/C .形状补间)。

(3)、在图b所示状态下，若想让汽车动画在1秒后开始出现，在不改变汽车动画时长的情况下，可行的操作是

(4)、“load”场景“按钮”图层第60帧上的“PLAY”按钮的部分编辑界面如图c所示，测试时鼠标放到按钮上未呈现小手形状，以下操作可使按钮有效的是 (单选，填字母)。

A、在“背景”图层“点击”帧处插入关键帧 B、对“背景”图层“按下”帧进行“清除关键帧"操作 C、在“声音”图层“点击”帧中插入关键帧 D、将“文字”图层“按下”帧转换为关键帧

(5)、在正确完成第(4)题后，测试影片，单击“PLAY”按钮，动画将跳转至“main”场景的第1帧并播放，则“PLAY”按钮上的动作脚本为。

查看解析
6、使用Excel软件对某学校“校园文化节”节目评分进行数据处理，如图a所示，回答下列问题：

(1)、各大节目的得分是将“主题内容”、“舞台效果”、“表现演绎”、“总体印象”的成绩分别乘以对应的权重后相加所得。通过G3单元格中的公式，对G4：G20进行自动填充，则G3单元格中的公式是。

(2)、为了更直观地对比某类别各节目的得分情况，创建了如图b所示的图表，则生成该图表的数据区域为。

(3)、若在图a所示工作表中对数据进行进一步的操作，下列说法正确的是 (多选，填字母)

A、若要对舞蹈类的节目按“主题内容”列数据从大到小排序，应选择的排序区域为A17：G20 B、在工作表的C列和D列之间插入一列，H列(原G列)中显示的值不会发生变化 C、选中数据区域B2：G8进行数据筛选，并设置筛选条件为“得分”的“最大3项”，图b将不会发生变化 D、要将节目的各项得分值在图b中的柱形上显示，可通过添加图表的“数据标签”来实现

查看解析
7、某算法的VB程序段如下：
Private Sub Command1_Click( )

    Dim a(1 To 10) As Integer, i As Integer, j As Integer, m As Integer

    Dim Key As Integer, s As String

    Randomize

    Key = Int(Rnd * 100)

    s=""：i=1：j=10

    Do While i<j

        m=(i+j)\2

        If Key = a(m) Then Exit Do             ' Exit Do退出循环

        If Key < a(m) Then

            j=m：s=s+"L"

      Else

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

      End If

    Loop

    Label1.Caption = s

End Sub

若数组元素a(1)到a(10)的值依次为“3，7，9，13，16，18，19，30，45，57”，执行该程序段后，标签Label1上显示结果，该结果中出现字母“L”和“R”且个数相同的情况有（    ）

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

查看解析
8、可用于求10个整数中最大值的某VB程序段如下：
Dim a(1 To 10) As Integer

Dim max As Integer

max=0

For i=1 To 10

If a(i)>max Then max=a(i)

Next i

Label1.Caption =“最大值是：”+ Str (max)

运行该程序时发现，当输入10个正整数时可以得到正确结果，但当输入10个负整数时结果错误。将上述程序段中相应语句仅进行一次更改，就可实现输入10任意整数都能得到最大值的结果，则下列修改正确的是（）

A、把If a(i)>max Then max=a(i)改成If a(i)<max Then max=a(i) B、把max= a(i)改成a(i) = max C、把For i = 1 To 10改成For i=2 To 10 D、把max=0改成max=a(1)

查看解析
9、有如下VB程序段：
Dim i As Integer， t As Integer

Dim enc As String， dec As String

enc = " 6Z9FBQ3VX4"： dec =" "

i =1：t=0

Do While t <4

   c = Mid(enc， i，1)

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

      i = Val(c)

   Else

        dec=dec+c

        t=t+1

   End If

   i =i+1

Loop

Text1.Text=dec

运行该程序段，文本框Text1中的内容是（    ）

A、QXFB B、6Q9X C、QBQV D、FBQF

查看解析
10、已知n个无序的正整数存储在数组元素a(1)到a(n)中。下列VB表达式的值为True时，可检测该数组偶数位置的元素值为奇数的是（）

A、a(i) Mod 2= i Mod 2 B、a(i) Mod 2<i Mod 2 C、a(i) Mod 2> i Mod 2 D、a(i) Mod 2= 1 Or i Mod 2= 0

查看解析
11、某算法的部分流程图如图所示。执行这部分流程，变量t的值为（）

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

查看解析
12、有以下关于多媒体作品设计的说法，不正确的是（）

A、创作需求分析时，需要确定作品的主题、内容、设施要求、发布方式 B、作品的系统结构描述了整个作品的组成部分、工作流程、主要界面 C、模块设计时，只需要考虑交互的形式，不必在意交互是否友好快速 D、媒体元素分解时，需要考虑作品所需媒体元素的获取方式与处理方法

查看解析
13、使用Photoshop软件制作“timg.psd"作品，部分界面如图所示。

下列说法不正确的是（）

A、“timg.psd”作品的颜色模式是24位RGB B、可对“三次握手”图层直接添加滤镜效果 C、将“文本框”图层的“填充”设置为0%，则该图层中的文本框不可见 D、可以对“背景”图层进行重命名

查看解析
14、使用Access软件创建立的“书籍管理”数据表及其设计视图的部分界面如图所示。

下列说法正确的是（）

A、在该数据表中，“2012，12，15”可以是“出版日期”字段的有效输入值 B、在该数据表中，新记录的序号可能是6 C、在该数据表中，可以添加书名为“万般滋味，都是生活”的新记录 D、将“是否借出”字段类型改成“文本”，该数据表中相应字段值会变成“是/否”

查看解析
15、利用软件UltraEdit观察一个压缩文件的二进制头部数据，界面如图所示。

下列说法正确的是（）

A、小写英文字符“o”的十六进制内码为“69” B、ASCII 码字符“．”的十六进制内码为“07” C、该压缩文件不可能为RAR格式 D、字符“蠍”的十六进制内码为“CF 90”

查看解析
16、下列应用体现了人工智能技术的是（）
①通过百度即时翻译

②将某文件夹中的照片自动调整大小并转化为统一格式

③手机拍照时自动感应开启闪光灯

④疫情期间通过机器人配送药物

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

查看解析
17、下列关于网页和网络协议的说法，正确的是（）

A、通过QQ网页邮箱发送邮件时本地计算机使用了SMTP协议 B、Windows 系统自带的“记事本”软件可以编辑、预览网页 C、IE浏览器内的收藏夹保存了网页的标题与内容 D、浏览器是通过解释执行HTML语言来显示网页内容的

查看解析
18、下列关于信息的说法正确的是（）

A、信息可以脱离载体被存储、保存和传播 B、信息经过加工处理后一定会有更高的使用价值 C、摄影技术属于近代信息技术 D、旧报纸中的信息一定不具有时效性

查看解析
19、学校物品室有n个箱子（箱子上分别有编号1、2、3…n），箱子里存有数量不一的物品。有m位学生前来领取物品（物品总量足够领取），每位学生优先从物品数量最多的箱子领取，数量不够时，再从下一个数量最多的箱子领取。小郑设计了一个VB程序，在文本框Text1中按箱子编号从小到大依次输入每个箱子的物品数量，在文本框Text2中依次输入每位学生需要领取物品的数量，单击“领取”按钮后，在列表框List1中按顺序显示每个学生领取物品的箱子编号，并显示领取结束后非空箱子的编号和剩余物品数量。运行界面如图所示。

回答下面问题：

(1)、如果1号到5号箱子的物品数量分别是 25,16,9,5,3，每位学生需要的物品数量分别是19,18,10,3，则第3位学生领取物品的箱子编号按顺序依次是3号、（填整数）号。

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

    Dim a(1 To 100) As Integer, bh(1 To 100) As Integer

    Dim b(1 To 100) As Integer

    Dim n As Integer, m As Integer    'n表示箱子数量，m表示需领取物品的学生人数

    Dim i As Integer, j As Integer, num As Integer

    Dim p As Integer, q As Integer, t As Integer, s As String

    '依次获取Text1里物品数量存入数组a，箱子上的编号（1到n）依次存入数组bh，箱子数量存入变量n，并按物品数量从多到少对箱子排序，代码略

    '依次获取Text2里学生需要领取物品的数量存入数组b，学生人数存入变量m，代码略

    p = 1: q = 1

    For i = 1 To m

        num = 0

        Do While num < b(i)

            num = num + a(q)

            a(q) = 0



        Loop

        s = "第" & i & "位学生领取物品的箱子编号依次为："

        For j = p To q - 1

            s = s + Str(bh(j))

        Next j

        List1.AddItem s

        If num > b(i) Then a(q - 1) = : q = q - 1

        For j =        '维护非空箱子降序序列（按箱子中剩余物品数量）

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

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

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

            End If

        Next j

        p = q

    Next i

    List1.AddItem " 剩余物品数量："

    For i = 1 To n

        If a(i) > 0 Then List1.AddItem Str(bh(i)) + "号箱子：" + Str(a(i))

    Next i

End Sub

查看解析
20、垂直升降式电梯里的显示屏会动态显示朝上或者朝下的箭头。小郑编写了一个VB程序，模拟箭头往上、往下的移动，以及箭头方向的调转。运行程序时，数组元素a(1)到a(64)存储0或1（如图1），分别表示空字符和星号，并在列表框List1中显示相应的图形（如图2）。单击“上移”按钮，箭头向上移动一个位置，超出上边界的图形则继续从下边界往上移（如图3）；单击“下移”按钮，箭头向下移动一个位置；单击“调头”按钮，则切换箭头的上下朝向。

请回答下列问题：

(1)、List1.AddItem中的AddItem是对象List1的（单选，填字母：A .对象名/B .属性名/C .方法名/D .事件名）。

(2)、实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a(1 To 64) As Integer

Dim b(0 to 1) As String

Private Sub Form_Load()

b(0) = " " : b(1) = " *"

'给数组a赋初值，并在列表框List1显示箭头图形，代码略

End Sub

Private Sub up_Click()

    Dim i As Integer, j As Integer, s As String, tmp As Integer

    List1.Clear

    For i = 1 To 8        '将第i列数据向上平移一个位置

        tmp =

        For j = 2 To 8

            a((j - 2) * 8 + i) = a( )

        Next j

        a(7* 8 + i) = tmp

    Next i

    s = ""

    For i = 1 To 64



        If i Mod 8 = 0 Then List1.AddItem s : s = ""

    Next i

End Sub

Private Sub turn_Click()

    '调转箭头方向（朝上的变为朝下，朝下的变为朝上），代码略

End Sub

Private Sub down_Click()

    '图形向下移动一个位置，代码略

End Sub

(3)、程序执行到加框处代码时，会弹出错误提示（单选，填字母：A .溢出/B .下标越界/C .类型不匹配）。为了使程序能正常实现图形的上移和显示功能，加框处的代码改为。

查看解析

上一页 832 833 834 835 836 下一页跳转