相关试卷

1、某查找算法的部分VB程序代码如下：
i = 1：j= 8： k=0： flag = False

key = 49

Do while i <= j And Not flag

    k=k+1

    m=Int((i + j)/2)

    If (i+j+1) Mod 2=0 Then m=m+1

    If key = a(m) Then flag = True

    If key<a(m) Then j=m-1 Else i=n+1

Loop

数组元素a(1)到a(8)的数据依次是“14，28，49，59，67，79，83，95”，该程序执行完毕后，下列各变量的值不正确的是(     )

A、i=1 B、k=2 C、flag =True D、j=4

查看解析
2、有如下VB程序段：
t ="”

For i=1 To 10

    b(a(i) Mod 10) = b(a(i) Mod 10) + 1

    b(a(i)\10) = b(a(i)\10) + 1

Next i

c =2

For i = 0 To 9

    If b(i)>c Then t=t+ Str(i)

Next i

Label1.Caption= t

数组b各元素初始值为0，数组元素a(1)到a(10)的值依次是65，99，12，34，40，74， 56，88，30，45，执行程序段，标签Label1上显示的内容是（    ）

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

查看解析
3、有一个数组采用冒泡排序，第1遍排序后的结果为：3，18，5，35，8，9，11，13，32，那么该数组的原始顺序不可能是（）

A、18，5，35，8，9，11，3，13，32 B、3，18，5，35，13，11，32，8，9 C、18，5，35，3，8，9，11，13，32 D、18，5，35，8，9，11，13，32，3

查看解析
4、有如下程序段：
Dim i As Integer，n As Integer，s As String，ch As String ，t As String

s= Text1.Text ： t = "”

For i=1ToLen(s)

    ch = Mid(s，i，1)

    If ch>="0"Andch<="9"Then

        t=t+ch

    Else

        n = Val(t)

        If Sqr(n) = Int(Sqr (m)) Then List1.AddItem Str (n)

    End If

Next i

在文本框Text1中输入“2，25，64，8，36”，单击“调试"按钮后，程序可能出现的错误提示为（    ）

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

查看解析
5、下列VB表达式的值最小的是( )

A、Int(Rnd*3)+3 B、46Mod21\2 C、Abs(Int(-7.5)) D、Val(*9") Mod 10

查看解析
6、某算法的部分流程图如下图所示，执行这部分流程图后，输入19，则输出s的值为( )

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

查看解析
7、使用Photoshop制作“诚信”作品，部分编辑界面如下左图所示。下列说法正确的是( )

A、可用油漆桶工具改变“诚信”图层中文字的颜色 B、可将“顶角”图层的图层样式拷贝到“诚信”图层 C、根据图层面板无法确定“背景”图层下方是否还有图层 D、在当前状态下，可用自由变换改变“诚信为本”图层中文字大小

查看解析
8、有一段未经压缩的PAL制式的AVI无声视频，每帧画面为1024*512像素，24 位彩色，视频时间为4秒，将其转换成MP4后存储容量为15MB，则压缩比约为( )

A、2.5：1 B、10：1 C、64：1 D、80：1

查看解析
9、用Goldave软件对某音频文件进行编辑，状态栏信息如图所示，以下说法正确的是( )

A、该文件类型为AVE格式，属于无损压缩格式 B、该音频每秒钟采样1411次，选中部分音频时长为10秒 C、当前状态下插入5秒静音，按原参数保存，文件大小约为4.2MB D、当前状态下，点击“删除”，以原参数保存，则声音存储容量约为原来的一半

查看解析
10、Access 设计视图部分界面如图所示，下列说法正确的是( )

A、当前数据表名为“志愿者信息.accdb” B、可以在“服务时长”字段输入“15.5” C、可以在“性别”字段输入“男”或“女” D、导出到Excel后，数据表数据共6行2列

查看解析
11、使用Word编辑文档时的部分界面如图所示。

下列说法正确的是（）

A、删除批注内容“地处亚热带中部”，则该批注框将随之被删除 B、取消“修订”状态，文档中的修订标记及内容不会发生改变 C、文档中图片的环绕方式为四周型 D、文档中存在两处修订

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

A、信息是人类社会的宝贵财富，不存在没有载体的信息 B、信息自古就有，随着时间的迁移，价值可能发生变化 C、历史文物在未出土之前，所承载的信息是不存在的 D、语言和文字是信息表达的一种常见方式

查看解析
13、用VB编程求两个字符串的最长连续公共子串，程序功能如下：在文本框Text1和Text2中分别输入任意两个字符串s1和s2，单击命令按钮 Command1，在标签 Label3和Label4中分别输出这两个字符串的最长连续公共子串和子串的长度其算法思想：分别从字符串s1和s2的左边第一个字符开始检查，若发现这两个字符串中有一个字符相同，则以这个字符为基准向右边扩大搜索范围，先检查其后面的第一个字符是否相同，若还是相同则继续搜索，直到找到不同的字符为止。然后按照该方法依次继续往后搜索，直到查找结束。程序界面如图所示，请回答下列问题：

(1)、根据代码，若输入的s1为“Teacher”，s2为“teacher”，则最长连续公共子串为。

(2)、实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim s1 As String, s2 As string, maxstr As string

Dim len1 As Integer, len2 As Integer, maxlen As Integer

Function Min (a As Integer, b As Integer) As Integer

    If a >=b Then min = b else min = a

End Function

Function Search (m As Integer, n As Integer) As Integer

    Dim c As Integer

    c = 1

    Do While c<= Min (len1 -m, len2 - n)

        If Mid (s1, m+ c, 1) = Mid(s2,n+c,1) Then



        Else

            Exit Do 'Exit Do的作用是退出Do循环

        End if

  Loop

   Search = c -1

End function

Private Sub Command1_Click()

    s1 = Text1. Text

    s2 = Text2. Text

    len1 = Len (s1)

    len2 = Len (s2)

    maxlen = 0: maxstr = ""

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

   For i=1 To len1

        For j=1 To len2

            If Mid(s1, i, 1) = Mid(s2,j,1) Then

                k =  'k用于记录连续公共子串的长度

                If (k> maxlen) Then

                    maxlen = k

                    maxstr =

                End if

            End If

        Next j

    Next i

    Labe13. Caption= "最长连续公共子串为:"& maxstr

    Labe14. Cantion = "该子串长度是:"& str (maxlen)

End sub

查看解析
14、在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。

(1)、由图可知，窗体中的对象共有类；

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

    Dim i, k As Integer

    Dim x1, y1, x2, y2 As Single

    Dim v As Single, maxd As Single

    Dim s As String, pos zb As String

    List1.Clear

    s=Text1.Text

    x1=1:y1=1

    t="": k=1: j=1

    List1.AddItem"坐标点"&"距离"

    For i=1 To Len(s)

        If Mid(s,i,1)="," Then

            v=Val(Mid(s, j, i-j))

            j=

            If k Mod 2=1 Then

                x2=v

            Else

                y2=v

                d=Sqr((x2-x1)^2+(y2-y1)^2)

                If Then

                    maxd=d

                    pos="(" & Str(x2)& "," & Str(y2)& ")"

                End If

                List1.AddItem"(" & Str(x2)& "," & Str(y2)& ")" & Str(d)

            End If

            k=k+1

        End If

    Next i

    Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"& Str(maxd)

End Sub

(3)、若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是。

查看解析
15、小六创作“夏夜旅行”的多媒体作品。回答下列问题：

(1)、在作品设计的过程中，下列属于需求分析的是（多选，填字母： A .确定作品属于益智类游戏/ B .确定“片头”界面尺寸、素材组织与来源、交互方式等/ C .确定该作品用于丰富学生的课余生活/D .确定该作品完成后将以网页方式发布到网络服务器上/ E .确定作品由五个界面组成）。

(2)、Flash动画部分界面如图所示，“灯闪”图层第10帧到第40帧实现了灯光淡入的动画效果，该动画补间类型为。

(3)、图中“蝴蝶”图层创建了蝴蝶实例从位置坐标（c，y）为（110，410）的A点出发，飞到B点（270，180）并稍作停留，最后飞到C点（500，100）的动画。若仅对第20帧执行清除关键帧操作，则测试场景时（多选，填字母：A .蝴蝶从A点到C点的飞行路线没有变化/B .蝴蝶飞到B点的同时“涟漪”图层的动画开始/ C .蝴蝶从A点到B点的飞行时间变长 / D .蝴蝶从B点到C点的飞行速度变慢）。

(4)、如图所示，为使“音乐”图层的音乐与“灯闪”动画同步开始播放。对“音乐”图层的操作是。

(5)、测试影片时，单击“跳过片头”按钮，使动画跳转到“主界面”场景第1帧播放，则在该按钮上添加的动作脚本是。

查看解析
16、小林收集了某批发市场的冰激凌价格，并使用Excel软件进行数据处理，如下图所示。

请回答下列问题：

(1)、若要使标题栏的格式如下图所示，则可行的操作是。

(2)、已知列G的数值是通过公式“零售价一单支”得到，若对列E的数据进行“减少小数位数”操作，列G的数值。（会变/不变）

(3)、小林要找出规格为40的冰激凌中利润最大的一项，可进行如下操作：以“规格”为40进行筛选，再以为关键字进行降序排序。

(4)、若要在列H利用Rank函数计算出所有冰激凌的利润排名，并且利用自动填充功能填充，则H4单元格的公式为。（RANK函数格式：RANK（number，ref，order），返回某数字在一列数字中相对于其他数值的大小排名，如：RANK（A1，A1：A10）表示单元格A1中的数据在区域Al：A10中的排名）

查看解析
17、（加试题）若数组元素d(1)到d(8)的值依次为“6,9,12,18,20,28,32,45”，查找Key值的VB程序段如下：
t(1) = 1: t(2) = 1

For i = 3 To 5

    t(i) = t(i - 1) + t(i -2)

Next i

Key =13

i=1: j=8: k=6

Do While i <=j

    m = i+t(k-1)                      ‘①

    If Key = d ( m ) Then Exit Do       ‘Exit Do表示退出循环

    If d(m) > Key Then

        j= m - 1

        k=k-1

    Else

        i = m + 1

        k=k-2

    End If

Loop

运行该程序段后，①处的赋值语句共执行（    ）

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

查看解析
18、a(1)=17:a(2)=16:a(3)=12:a(4)=18:a(5)=15:a(6)=13:a(7)=17:a(8)=20
i=2

Do While i <=8

    If i mod 2=0 and a(i)>a(i-1) then

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

    ElseIf a(i-1) mod 2=1 then

        a(i-1)=a(i-1)+1

    End If

    i=i+1

Loop

执行程序后，a数组各元素是（    ）

A、17，16，18，12，16，14，20，18 B、18，16，18，12，16，14，20，17 C、16，17，18，12，13，16，20，17 D、18，16，18，12，14，15，17，20

查看解析
19、某排序算法，VB代码如下：
i=1

Do While i<=5

    If i = 0 or a(i – 1)<= a(i) Then

        i=i+1

    Else

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

        i=i-1

    End If

Loop

数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（    ）

A、36 B、53 C、41 D、22

查看解析
20、在Photoshop软件中编辑某文档，其部分界面如图所示。

下列说法正确的是（）

A、“背景”图层的下方可能有其他图层 B、可以直接在“背景”图层做“镜头光晕”滤镜操作 C、将此文档保存为jpg格式后，“英文”图层的图层样式仍可见 D、可以在“猫和老鼠”图层使用文字工具修改该图层的文字内容

查看解析

上一页 651 652 653 654 655 下一页跳转