相关试卷

1、有如下VB程序段：
Dim a(1 To 9) As String， k As Integer

Dim s1 As String， s2 As String

s1= Text1.Text：s2 = Text2.Text

For i = 1 To Len(s1)

    k = Val(Mid(s1， i，1))

    a(k) = Mid(s2， i， 1)

Next i

For i=1 To 9

    s=a(i)+s

Next i

Label1.Caption = s

在文本框Text1中输入“52463”，文本框Text2中输入“happy”，执行该程序段后，标签Label1中显示的内容是（    ）

A、happy B、yppah C、phpya D、Pyhpa

查看解析
2、若一个正整数从左向右读与从右向左读都一样，我们就将其称之为“回文数”。设计一个在列表框List中显示100 500之间的所有回文数的程序，实现该功能的VB程序段如下：
For k=100 To 500

   x=k

   z =0

  Do While x> 0







  Loop

  If z=k Then

        List1.AddItem Str(k)

   End If

Next k

上述程序段中方框处可选语句为：

①x=x\10   ②y=xMod10

③z=z+10*y   ④z=10*z+y

则(1)(2)(3)处语句依次为（    ）

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

查看解析
3、采用冒泡排序算法对某数据序列进行排序，第-轮排序后的结果是“2，8，6，3，5，7，9”，则第二轮排序需要交换的次数为( )

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

查看解析
4、某算法的部分流程图如图所示。执行这部分流程后，输出f1，f2的值分别是( )

A、5，8 B、8，13 C、13，21 D、21，34

查看解析
5、VB表达式Int(Rnd*2) *30+ 10+ Int(Rnd * 100) Mod 10的值可能是( )

A、6 B、16 C、26 D、36

查看解析
6、将帧频为12fps、总帧数为120帧的Flash动画作品导出为不压缩的无声AVI视频文件，其参数为1024×768像素、24位色，则该视频文件的存储容量约为（）

A、22.5MB B、27MB C、270MB D、3.16GB

查看解析
7、用Photoshop软件制作“云对雨”作品，如图所示。

下列说法正确的是（）

A、可以将“燕子”图层重命名为“双燕” B、因为“背景”图层被锁定，所以不能删除“背景”图层 C、不能将“云对雨”图层的图层样式拷贝到“山”图层 D、当前状态下，可以直接对“山”图层添加“镜头光晕”滤镜

查看解析
8、某数转换为十进制数为n，若n\4=4，则该数可能是（）

A、10011B B、11001B C、1AH D、2AH

查看解析

9、用Access软件设计某停车场管理系统的数据库，其中已建好的“停车位使用实时数据表”用于存储如图所示的数据。

序号	采集时间	层	区域	编号	车位占用情况	属性
1	2021-5-1 08: 30: 00	B1	A	1	空	内部
2	2021-5-1 08: 30: 00	B2	A	2	占用	开放
3	2021-5-1 08:30: 00	B1	B	10	占用	关闭
4	2021-5-1 08: 35:00	B1	B	1	空	开放
……	……	……	……	……	……	……

下列说法正确的是（）

A、存放图中“编号”列数据的字段可以设置为“自动编号”类型 B、若车驶离车位，则该数据表中相应的记录会被删除 C、存放图中“属性”列数据的字段可以设置为“是/否”类型 D、存放图中“采集时间”列数据字段的类型应设置为“日期/时间”

查看解析

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

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

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

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

查看解析
12、    小明和小红喜欢传纸条，为防同学偷看，约定使用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)、在程序划线处填入合适代码，使程序完整。
① ② ③

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

(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

查看解析
14、小李同学制作主题为“文明城市”的多媒体作品。他首先使用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”按钮上的动作脚本为。

查看解析
15、使用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中的柱形上显示，可通过添加图表的“数据标签”来实现

查看解析
16、某算法的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种

查看解析
17、可用于求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)

查看解析
18、有如下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

查看解析
19、已知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

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

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

查看解析

上一页 807 808 809 810 811 下一页跳转