相关试卷

1、【加试题】维吉尼亚密码。如下图所示，分别用行和列表示待加密的字符（明文）和当前字符的密钥，行和列的交叉点的字符即为加密后的结果（密文）。在加密时，密文与明文的字母大小写形式保持一致，如：明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。

例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

依据上述算法描述设计了如下VB程序。请回答下列问题：

(1)、若明文是Jia，密钥是Pass，则输出的密文是：

(2)、请在划线处填上合适的代码
Const MIN_ASC = 65

Function X2D(x As String) As String

Dim s As String, zf As String, i As Integer

s = ""

For i = 1 To Len(x)

    zf = Mid(x, i, 1)

    If zf >= "a" And zf <= "z" Then

      s=s+

    Else

      s = s + zf

    End If

Next i

X2D = s

End Function

Private Sub Command1_Click()

Dim M As String, K As String, C As String, flag As Boolean

Dim i As Integer, t As Integer, ch As Integer, pos As Integer, j As Integer

M = Text1.Text       '明文

K = Text2.Text       '密钥

t = Len(K)

K = X2D(K)

C = ""

For i = 1 To Len(M)

ch = Asc(Mid(M, i, 1))

flag = False

If ch >= 97 And ch <= 122 Then ch = ch - 32: flag = True

pos=                  '密钥的字符位置值

If pos = 0 Then pos = t

j = Asc(Mid(K, pos, 1))      '密钥字符的ASCII值

ch = ch - MIN_ASC

j = j - MIN_ASC

ch=

ch = ch + MIN_ASC

If flag Then ch = ch + 32     '设置字母的大小写形式

C = C & Chr(ch)

Next i

Text3.Text = C

End Sub

查看解析
2、【加试题】小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer, bottom As Integer

'获取排序前数据依次存储在数组a 中，并在文本框Text1 中显示。代码略

bottom = n : i = 1

Do While i <= bottom - 1

    For j = bottom To i + 1 Step -1

        If Then     ‘⑴

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

        ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理

                 ‘⑵

            bottom = bottom - 1

        End If

    Next j

    i = i + 1

Loop

Text2.Text = " "

For i = 1 To bottom

    Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

⑴ ⑵

查看解析
3、创作一个题为“关爱老人”的多媒体作品，首先使用Photoshop软件制作一张片头图片，然后使用Flash 软件制作一个动画，该动画设计思路如下。请回答下列问题：

(1)、如下面左图所示，若仅将“关爱老人”的“爱”字变更颜色，下列操作方法可行的有(A .用T工具选择“爱”字，设置文本颜色 /B .用“套索”选择“爱”字，油漆桶填充颜色 /C .用T工具选择“爱”字，设置图层样式“颜色叠加” /D .栅格化文字，用“魔棒”选择“爱”字，前景色填充颜色）。

(2)、“main”场景如上图所示，结合动画设计思路，发现第60帧开始右边多出一个女孩，若要该女孩在舞台中消失，正确的操作是。

(3)、测试影片时，音乐自动延续到下一场景，“音乐”图层中的声音“同步”属性应为。（选填：事件 / 数据流）

(4)、如图所示，在“老婆婆”图层第47帧与第52帧之间添加动画补间时，发现库中自动生成“补间1”元件，可能的原因是。

(5)、（选填：可以/不可以）删除女孩图层的第60到80帧。

(6)、测试影片时，单击“下一幕”按钮，影片跳转到下一场景的第1 帧并停止播放，则“下一幕”按钮的动作脚本为。

查看解析
4、编“字符串缩写”程序，实现如下功能:在文本框Text1中输入Ascii字符串，字符串中如果有由Ascii表中相邻字符（升序）组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

(1)、代码“Private Sub Command1_Click()”中的Command1_Click()是(单选，填字母：A .对象名 /B .事件 /C .事件处理过程)

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

Dim s As String, result As String， i As Integer, j As Integer, t As Integer

s = Text1．Text ：t = Len(s) ：result = ""

i=1

Do While i <= t

   j = i

   Do While i < t

       If Asc(Mid(s, i + 1, 1)) = Asc(Mid(s, i, 1)) + 1 Then

            i = i + 1

       Else

           Exit Do

       End If

   Loop

   If i > j Then

      result = ①

   Else

      result = result + Mid(s, i, 1)

   End If

   i = i + 1

Loop

Text2.Text = ②

End Sub

(3)、如果输入的字符串是“aBcucwxyzdcb”,输出结果为

查看解析
5、2016年浙江省各地市GDP情况数据在Excel表中如图1所示。

图1

请回答下列问题：

(1)、区域F3:F14的数据是通过公式计算得到。在单元格F3输入公式，并用自动填充功能完成区域F4:F14的计算，则单元格F5中的公式是。

(2)、如图1所示，删除第15行，单元格F3的值显示为（选填：A .#DIV/0! /B .#REF! /C .36958.67 /D .0）。

(3)、将区域A2:G14 的数据复制到新工作表，在新工作表中对数据进行筛选操作，2016 年GDP（亿元）和人均GDP 筛选条件均设置为如图2 所示，则筛选出的城市有个。

图2

(4)、根据图1中数据制作的图表如图3所示，创建该图表的数据区域是。

图3

查看解析
6、【加试题】某psd格式的文件以默认的方式保存为bmp格式，该bmp图像用Photoshop打开后的部分界面如下图所示。已知该图像宽度400像素，高度300像素，则该图像的大小约为（）

A、351.6KB B、117.2KB C、58.6KB D、175.8KB

查看解析
7、小王使用Flash软件制作动画，其中“进入”按钮元件的部分编辑界面如下图所示。

下列操作中，可使“进入”按钮能响应鼠标单击的是（）

A、选中“边框”图层的“点击”帧执行“删除帧”操作 B、选中“形状”图层的“按下”帧执行“删除帧”操作 C、选中“颜色”图层的“弹起”帧执行“清除关键帧”操作 D、选中“文本”图层的“指针经过”帧执行“清除关键帧”操作

查看解析
8、小木在photoshop中设计制作了一个文件，图层面板如下图所示，关于该文件，下列说法不正确的是（）

A、“中指树叶”图层不能被删除 B、该图片每个像素的颜色位数为8位 C、可以修改“这并不是胜利！”图层的文字字体 D、在当前状态下添加文字，文字内容不会出现在“食指树叶”图层中

查看解析
9、GoldWave软件编辑某音频文件操作界面如图所示：

以下说法不正确的是（）

A、该音频是双声道Wave格式文件 B、当前选中的音频时间长度约为半分钟 C、现对该音频的后10秒设置“淡出”效果并按原格式、原参数保存，存储空间不变 D、若删除当前选择的数据并按原格式、原参数保存，存储空间将不变

查看解析
10、学习了二进制编码后，小张突发奇想：如果为全班58个同学分别分配一个二进制的学号，那每个学生的号码至少需要（）位二进制数。

A、2 B、5 C、6 D、7

查看解析
11、某算法的部分流程图如下图所示，执行这部分流程后，输出c的值是（）

A、50 B、34 C、55 D、60

查看解析
12、使用Access软件打开数据库，数据表视图如图1所示，设计视图如图2所示，下列说法正确的是（）

A、该数据库文件名为“技术成绩．accdb” B、可以在信息和通用之间插入一个新的字段 C、可以在最后添加一条新记录，内容为“陈宣甸2班504595” D、图1状态下可以添加一个“自动编号”类型的字段

查看解析
13、使用UltraEdit软件查看字符内码，部分界面如下图所示（）

图中内码所对应的字符是（）

A、bdoaMLNV B、填充颜色 C、背景back D、技术abcd

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

A、网页的超链接可以添加在文字或图片上 B、在IE 浏览器中清空历史记录，收藏夹中的网址被同时清空 C、网页可能含有图片、动画等素材，故不能用记事本编辑网页 D、网页通过 HTML 协议传输，可以通过浏览器解释执行网页文件

查看解析
15、“口说无凭”指的是说过的话无据可查，在进行重大交易时，往往需要签订书面协议。这主要体现了信息的（）

A、真伪性 B、共享性 C、时效性 D、载体依附性

查看解析
16、【加试题】最大回文子串。回文字符串是具有回文特性的字符串：即该字符串从左向右读, 与从右向左读都一样。如：凤落梧桐梧落凤，abcba 等。“最大回文子串”是指一个字符串中长度最大的回文字符串，其基本算法思想如下：
⑴每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。
⑵对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由其中的某个假设中得到！
现编写一个VB程序，在Text1中输入一串字符，单击“统计”按钮，在Text2中显示该字符串中的最大的回文子串（长度相同时，输出最左边的子串）。请回答下列问题：

(1)、当Text1中输入“123321344332423112113123”时，则输出的结果为。

(2)、请在划线处填入合适的代码。
Dim n As Integer

Dim a(0 To 100) As String Private Sub Command1 Click() Dim s As String

Dim left As Integer, right As Integer, i As Integer

Dim max As Integer, m As Integer, b1 As Integer

'变量 b1 用于记录回文子串的左端起点 Text2.Text = ""

s = Text1.Text n = Len(s)

For i = 1 To n

    a(i) = Mid(s, i, 1) Next i

    max = 0: left = 0: right = 0

    For i = 1 To n left = i

    right = i

    m = longest(left, right) If m > max Then

        b1 = i - m \ 2 max = m

    End If left = i

    right = i + 1

    If a(left) = a(right) Then

        m = longest(left, right) + 1

        If m > max Then

            ①

            max = m

        End If

    End If

Next i

For i = b1 To ②

    Text2.Text = Text2.Text + a(i) Next i

End Sub

Function longest(left As Integer, right As Integer) As Integer

Dim p As Integer p = 1

Do While left > 1 And right < n And ③

    left = left - 1 right = right + 1 p = p + 2

Loop

longest = p

End Function

查看解析
17、【加试题】随机数排序程序。程序功能如下：窗体加载时生成[10，100]范围内的随机整数10个存储在数组a中,并在列表框List1中显示原始数据，单击“排序”按钮，这10个数据按降序排序后显示在列表框List2中。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dim a(1 To 10) As Integer
Private Sub Command1 Click()
Dim i As Integer, j As Integer, x As Integer p = True
i = 1
    Do While i <= 9 And p p= False
    For j = 10 To i + 1 Step -1
        If Then    '①
            k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True
        End If
    Next j
    i = i + 1
Loop
For i = 1 To 10
    List2.AddItem Str(a(i)) Next i
End Sub
Private Sub Form_Load()
Dim i As Integer
List1.Clear
Randomize         '初始化随机函数 Rnd
For i = 1 To 10
    a(i) =     '②
List1.AddItem
Str(a(i))
Next i
End Sub
① ②

查看解析
18、小芳使用Flash软件制作了一个有关“品味时尚生活”主题的动画，先用Photoshop软件制作了一张背景图片。请回答下列问题。

(1)、如图所示状态下，下列说法正确或操作可行的有________（多选，填字母）

A、不能直接对“值得信赖”图层添加图层样式 B、不能直接对“值得信赖”图层添加滤镜 C、可以将“唇彩”图层的位置移动至“底部色块”的上方 D、可以直接删除“唇彩”图层

(2)、如图所示，库中的音频素材“混缩.wav”应用到“声音”图层中，声音同步属性设置为“数据流”，则此声音播放的时长约为。

(3)、测试场景时，发现“背景”在舞台中播放到当前位置时换了一个“背景”，若要此场景一直是背景图层第1帧中的“背景”，则正确的操作是。

(4)、库面板界面如图所示，则库中有种类型的元件。

(5)、小芳想通过单击“换场景”按钮，进入到“end”场景并停在第1帧，则“换场景”按钮添加的动作脚本为。

查看解析
19、目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关键的信息。现编写 VB.程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮，将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。

(1)、在设计程序界面时，图2中控件（填数字）未在程序窗体中使用。

(2)、请根据题意将下列程序补充完整
Private Sub Command1_Click()

Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text

msg = msg + "/" '标记字符串结束符

tmp = "" s = ""

flag = True

For i = 1 To Len(msg)

    c = Mid(msg, i, 1)

        If ① Then flag = False

        tmp = tmp + c

        ElseIf flag = False Then s = s + tmp + ","

        tmp = ""

        ②

    End If

Next i

Text2.Text = s

End Sub

(3)、若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为。

查看解析
20、小李收集了2018年2月份部分小汽车销售的相关数据，并使用Excel软件进行数据处理，如图1所示。请回答下列问题：

图1

(1)、在图1所示工作表中，区域D3：D19中的数据是通过公式计算及自动填充得到的，则D4单元格的公式是。

(2)、若要对“吉利汽车”2 月的汽车销量情况进行降序排序，应选择的数据区域为。

(3)、对图1中B2:D19单元格区域内数据复制至新的数据表进行筛选操作，对“2月销量”列的筛选条件如图2所示，“占总销量比”列的筛选条件如图3所示，则筛选出的汽车车型有种。
图2

图3

图4

(4)、根据图1中的数据，制作了一张反映部分品牌汽车“2月份销量”占总销售量比的图表，如图4所示，则创建该图标的数据区域为B2,D2,,B16:B19,D16:D19。

查看解析

上一页 1510 1511 1512 1513 1514 下一页跳转