相关试卷

1、某排序算法，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，61，22，43，89，27”，经过该程序段处理后，数组元素a(4)的值为(     )

A、43 B、89 C、61 D、27

查看解析
2、将一个时长为1分钟、采样频率为44.1kHz、量化位数为16、双声道未经压缩的Wave格式音频压缩为MP3格式文件，压缩后的MP3格式文件大小为790KB，则其压缩比约为( )

A、11：1 B、7：1 C、13：1 D、105：1

查看解析
3、关于入工智能，以下说法不正确的是（）

A、在很多酒店，人靠近大门，门会自动打开，这是应用了人脸识别技术 B、Siri专家系统属于人工智能的应用 C、大数据的应用，为人工智能的发展开拓了广阔空间 D、一款具有“拍题搜答案”功能的APP，可能应用了OCR技术

查看解析
4、有多人在不同楼层要乘坐同一部电梯，所有人都是去往更高楼层，电梯初始位置为第一批用户出发的楼层位置。电梯在运行时，上升一层需耗时3秒，在某一层停留时(含电梯初始位置和电梯结束位置)，不论有多少人进出都算8秒。小马同学利用，上述算法编写了一个VB程序，在列表框list1中显示所有人的出发与到达楼层，按照出发楼层升序(出发楼层相同按到达楼层升序)排序，在列表框list2中输出排序后结果，最后在文本框Text1 中输出电梯本次运行的总时间。程序运行界面如图所示，回答下列问题：

(1)、若有5批用户出发与到达楼层分别是“10-25、5-15、15-20、15-30、5-10”，按照上述电梯运行规则，则电梯本次运行的总时间为秒，

(2)、给划线处填上合适代码，使程序完整。
Dim a(1 To 10) As Integer, b(1 To 10) As Integer

Private Sub Command1_Click( )

    Dim i As Integer, time As Integer, k As Integer

    Dim c(1 To 20) As Integer, nc As Integer

    c(1)=a(1) ：nc= 1

   For i=1 To 9     '删除起点重复数据后添加到数组c

        If a(i)<>a(i+1) Then

            nc=nc+1



        End If

    Next i

    For i=1 To 10     '删除终点重复数据后添加到数组c

        k= nc

        Do While b(i) < c(k)

          k=k- 1

        Loop

        If Then     '非重复数据(新停靠楼层)添加到数组c

            For j=nc To k+1 Step -1

                c(j+1)=c(j)

            Next j

          nc=nc+1

          c(j+1)=b(i)

      End If

    Next i

    time=(c(nc)-c(1)) *3+nc*8

    Text1. Text="总时间--"+Str( time)+ "秒"

End Sub

Private Sub Form_ Load(     )

    '生成10批入的起止楼层，分别给数组a和b，并在列表框list1输出,代码略。

   For i=1 To 9

        For j=10 To i+1 Step -1

            If a(j)<a(j-1)Or Then

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

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

            End If

        Next j

  Next i

   For i=1 To 10

        List2. AddItem Str(a(i))+Str(b(i))

  Next i

End Sub

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

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

Const n= 10

Dim a(1 To n) As Integer

Private Sub Form_ load( )

'数组初始化，生成1~20之间的随机整数并赋值给数组a，代码略

End Sub

Private Sub Cmd1_Click()

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

    Dim bottom As Integer

    bottom= n

    For i=1 To bottom-1

        For j= bottom To i+1 Step -1

            If Then   '①改错

                t=a(j) : a(j)=a(i) : a(i)=t

            ElselIf a(j)=a(i) Then

                      '②填空

                bottom= bottom- 1

            End If

        Next j

    Next i

    Text2. Text=" "

   For i=1 To bottom

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

    Next i

End Sub

(1)、程序窗体中“排序”按钮的对象名是。

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

(3)、为实现上述功能，请在加框处②填入合适的代码：

(4)、要想生成范围是1~20的随机整数，VB表达式是。

查看解析
6、小李针对各城市的宜居状况做了一项调查，统计情况见下表。请回答下列问题：

(1)、如图a所示，求N列的综合得分时，先在N3单元格中输入公式“= SUM(D3：M3)”，然后将该公式复制粘贴到N15单元格，则该单元格式中的公式为。

(2)、小李利用单元格中的数据建立了一张各项指标的得分情况。如图b所示，则该图表的数据区域为。

(3)、如图b所示，该图表系列产生在(选填：行/列)。

(4)、若要按“空气质量”对这些城市进行降序排名，则需要选择的数据区域是。

查看解析
7、有如下VB程序段：
For i=1 To 6

    If i Mod 2<>0 Then

        If a(i) Mod 10>5 Then

            a(i)=a(i) \ 10

        Else

            a(i)=a(i) Mod 10

        End If

    Else

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

   End If

Next i

程序运行后a(1)到a(6)的值分别是2，3，4，5，0，1，则a(1)到a(6)各元素的初始值可能是(     )

A、26，1，4，2，8，3 B、12，1，14，2，11，3 C、15，1，2，3，4，5 D、29，1，40，2，3，30

查看解析
8、有如下程序段：
For i=1 To 2

    For j=5 To i+1 Step-1

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

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

    End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“95，88，66，80，75”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为(     )

A、66，75，95，88， 80 B、66，75，80，95，88 C、95，88，66，80，75 D、95，88，80，75，66

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

Key = Val(Text1. Text)

i = 1 : j= 10 : f= False

Do While i<= j And f = False

    n=n+1

    m=(i+j+1)\2

    If a(m)=Key Then f=True

    If a(m)>Key Then j=m-1 Else i=m+1

Loop

Text1. Text = Str(n)

数组元素a(1)到a(10)的值依次为“14，17，30，42，55，69，80，83，88，90”，执行该程序段，输入key的值为a(1)到a(10)中的某一个值，文本框Text2中显示的值为3，则key位可能是(     )

A、14 B、55 C、69 D、88

查看解析
10、下列关于数列查找说法，正确的是（）

A、使用对分查找，数列中每个元素对象不能是字符串类型的数据 B、使用对分查找数列，数列中每个元素要求必须是经过排序的 C、对于规模为1000万项数的数列，不能使用顺序查找 D、使用顺序查找，只能从第1个元素依次向后进行查找

查看解析
11、某算法的部分流程图如图所示。

执行该算法，依次输入a的值为2，5，4后，变量b的值为( )

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

查看解析
12、如图所示为在UltraEdit软件中观察字符内码的部分界面：

下列说法中，不正确的是( )

A、共占用16个字节存储空间 B、全部字符中只有3个采用全角编码 C、字符“G”的二进制码为1000111B D、大写字母“P”的十六进制编码为38H

查看解析
13、有一Access数据表，表的结构如图1所示，在数据录入时截图如图2所示，下列说法正确的是( )

A、“ID”字段值一定是连续的 B、“生日”字段可以输入“1998-8-25” C、“入学成绩”字段中可以输入“Pass” D、删除第2条记录后，可以在该位置插入一条记录

查看解析
14、用Photoshop软件制作“端午节”作品，在“粽子”图层中已选择矩形区域，如图所示。

下列说法正确的是( )

A、该psd文件采用RGB/8模式，即每个像素占用8位二进制数 B、将“不透明度”设置为0%，“粽子”图层中只有右上角粽子会变为不可见 C、当前“自由变换”命令的操作对象是“粽子”图层右上角的粽子 D、使用仿制图章工具可以实现将“端午”图层中文字仿制到“诗句”图层中

查看解析
15、对于一组a(1)~a(n)进行左右交替下降排序，排序后的数据有如下特点：a(1)>a(n)>a(2)>a(n- 1)> a(3)>a(n- 3) ……。例如“99 77 55……44 66 88”就是左右交替下降排序后的数据，如下表所示。

a(1)

a(2)

a(3)

……

a(n-2)

a(n-1)

a(n)

99

77

55

……

44

66

88

根据上述排序特点，小达编写了一个VB程序，其功能如下：在文本框Text1中输入n个正整数(以“，”为分割符)，单击“排序”按钮Command1进行排序，在文本框Text2中显示左右交替下降的数据，程序运行界面如图所示。

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

(1)、运行程序后，若在文本框Text1中输数据“3，15，56，34，27，42”，单击“排序”按钮，则在文本框Text2中显示的内容为

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

    Dim a(1 To 100) As Integer

    Dim s As String, ch As String, k As Integer, t As Integer

    Dim n As Integer, i As Integer, j As Integer, s1 As Integer

    s= Text1. Text : n=0 : s1=0

    For i=1 To Len(s)

        ch= Mid(s,i,1)

        If ch>= "O" And ch <= "9" Then

            s1 =

        Else

            n=n+1： a(n)=s1： s1=0

        End If

    Next i

    For i=1 To n-1

        If i Mod 2=1 Then

            k=i \2+1

        Else

            k=

        End If

        pos= k

        For j=i\ 2 + 1 To n- (i- 1)\ 2

            If a(j) > a( pos) Then

        Next j

        If k <> pos Then t= a(k) : a(k) =a(pos) : a(pos)=t

    Next i

    For i=1 To n

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

    Next i

End Sub

查看解析
16、求矩阵列和的最大值，算法如下：数字矩阵有n * n(n不大于10)个数组元素，数组元素为随机生成任意的两位正整数，按n行n列进行排列，其中第一行的数据依次为a(1)~a(n)，第二行的数据依次为a(n+1)~a(2* n……。例如当n=5时，随机生成25个数组元素，并排列成5 *5的矩阵，第一行的数据为a(1)~a(5)，第二行的数据依a(6)~a(10) …….。现要求按列进行求和，并找出最大值的列。小江编写了一个VB程序，功能如下：在文本框Text1中输入n的值，单击“计算”按钮Command1后，在列表框List1中显示随机生成的n *n的数字矩阵，同时在列表框List2中显示每一列数据的求和结果、最大值及对应的列号，程序运行界面如图所示。

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

(1)、语句List1．AddItem s中的“AddItem"属于(单选，填字母：A .对象名/B .属性名/C .方法名/D .过程名)。

(2)、请在划线处填写合适的代码。
Private Sub Command1_ Click( )

    Const Maxn= 100

   Dim i As Integer, j As Integer, c As Integer

    Dim max As Integer, sum As Integer, n As Integer

   Dim a(1 To Maxn) As Integer, s As String

   n= Val(Text1. Text)

    Randomize

   For i=1 To n* n

        a(i)=

        s=s+Str(a(i))

        If i Mod n=0 Then

            List1. AddItem s

            s=“”

        End If

    Next i

    For i=1 To n

        sum= 0

        For j=

            sum=sum+a(j)

        Next j

        List2. AddItem "第" + Str(i) +"列的和是："+Str(sum)

        If sum > max Then max=sum ：       '改错

    Next i

    List2. AddItem "其中第" + Str(c)+ "列和最大,值为："+Str(max)

End Sub

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

查看解析
17、小王同学创作主题为“神笔马良”的多媒体作品。他首先使用Photoshop软件制作一张图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、如图a所示，当前状态下，下列操作可以执行的有(多选，填字母：A .删除“背景”图层/B .移动“神笔马良”图层的文字位置/C .修改“神笔马良”图层的不透明度/D .给“中国童话故事”图层添加滤镜效果/E .不解锁的情况下，修改“背景”图层的名称)。

(2)、如图b所示，已知“文字”图层的第1帧到第10帧是文字实例实现“淡入”的动画效果，则该动画类型属于(填写：动画补间/形状补间/逐帧动画)。

(3)、小王在调试时发现，当音乐图层被隐藏后，使用菜单中的“播放”命令时动画没有声音，而使用“测试影片”命令时动画有声音，则当该动画导出成为swf格式后， (有/没有)声音。

(4)、如图b所示，如果要实现“文字”动画出现时音乐开始响起，需要对“音乐”图层进行的操作是。

(5)、测试影片时，当前场景播放到36帧时停止播放，单击“重播”按钮后，影片跳转到“片头”场景的第1帧并播放，则“重播”按钮的动作脚本为。

查看解析
18、小李同学收集了“2016年上半年我国轿车销量TOP10”的统计数据，并用Excel 软件进行分析，部分界面如图a所示。请回答下列问题：

请回答下列问题：

(1)、如图a所示，小李同学要计算“6月增长率(%)”，采用的方法是先在H5单元格中输入公式，再使用填充功能完成其他的单元格的计算。(注：增长率%=(本月销量-上月销量)/上月销量*100)

(2)、如图a所示，该图表排序的主要关键字是

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

(4)、根据图a中数据，如果对“所属厂商”数据进行筛选操作，筛选得到图b的结果，设置界面如图c所示，则其筛选条件为。

查看解析
19、下列VB程序段功能为：在升序排序数组a中(a(1)≤a(2)≤a(3) …… )，采用对分查找的方式查找某数值，若能找到，则输出该数值在数组a中的起始和结束位置，否则输出“找不到”。
Dim a(0 To 10) As Integer

Key= Val(Text1. Text)

i=1 : j=10

Do While i<=j

    m=(i+j) \ 2

    If   ① Then

      j=m-1

  Else

      i=m+1

  End If

Loop

If a(j) <> Key Then

  Label1. Caption= "找不到"

Else

    P1=j

  Do While Key=a(j) And j>= 1

      j=j-1

  Loop

    ②

  Label1. Caption= Str(p2) + "-" + Str(p1)

End If

A、①key < a(m)②p2=j B、①key < a(m)②p2=j+1 C、①key <= a(m)②p2=j D、①key <= a(m)②p2=j+ 1

查看解析
20、某VB程序段如下：
i=1

Do While i<=3

   k= i

   j =i+1

  Do While j<=5

        If a(j) < a(k) Then k = j

        j=j+1

  Loop

    If i<>k Then t=a(i)：a(i)=a(k)：a(k)=t

  End If

  i=i+1

Loop

数组元素a(1)到a(5)的值依次为“17，87，36，22，45”，则该程序段运行后，数组元素a(1)到a(5)的数据依次是(     )

A、87，45，36，17，22 B、17，22，36，45，87 C、17，22，36，87，45 D、87，45，17，36，22

查看解析

上一页 400 401 402 403 404 下一页跳转

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
99	77	55	……	44	66	88