相关试卷

1、小明收集了2019年5月部分外国入境旅游人数相关数据，并使用Excel软件进行数据处理，如图所示。

请回答下列问题：

(1)、表中“所占比例(%)”数据是用公式计算每个国家的合计人数占总计人数的比例，并使用函数ROUND得到的。选择I4单元格输入公式，然后用自动填充功能完成其他单元格的计算。则I4单元格中的公式为(单选，填字母：A .=ROUND(H4/ $ H $22，2)/B .= ROUND(H4/ $ H$22 * 100，2)/C .= ROUND(H4/H22 * 100，2)/D .ROUND( H4/G22 * 100，2))。(提示：函数ROUND (number， digits)对数值number按指定的位数digits进行保留小数位数)。

(2)、小明要利用图中所给数据，制作一张各个地区的会议/商务”和“ 观光休闲”合计人数的对比柱形图表，他应选择的数据区域是

(3)、小明想要找出亚洲地区观光休闲人数最多的国家，可以采取的方法是

查看解析
2、有一个都是正整数的数组，分别计算相邻两个数的乘积并放在这两个数中间作为新的数组元素，然后按顺序输出，如原始数组为2、3、6,处理后按序输出为2、6、3、18、6。下列VB代码实现上述算法。
Dim a(1 To 19) As Integer

'生成a数组10个元素，代码略

Dim i As Integer, j As Integer

For i=1 To 9

    For j= ①

       a(j)=a(j-1)

    Next j

    a(j)= ②

Next i

For i=1 To 19

List2. AddItem Str(a(i))

Next i

上述程序中2处下划线应填入的程序代码是(    )

①10+I To i*2+ 1 Step-1②10+i to 19③19 to 10+I step-1④a (2￥i)*a(2*i-1)⑤a(i)*a(i+1)

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

查看解析
3、输入一个字母，生产一个回文字符串，如输入大写字母“E”，则产生从“A”开始的回文字母“ABCDED-CBA"；如输入“e”，则产生“abcdedcba”；实现该功能的VB程序段如下：
m= Text1. Text： s=" "

If m>= "a" And m<= "z" Then init= Asc("a")

If m>= "A" And m<= "Z" Then init= Asc("A")

n= Asc(m) - init +1

For i=1 To

    If i <= n Then

      s=s+

    Else

      s=s+

    End If

Next i

Label2. Caption=s

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

①12*n-1   ②2*n   ③Chr(Asc(m)+i-n)   ④Chr(init+2 * n- i- 1)

则(1)(2)(3)处语句依次是(    )

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

查看解析
4、有如下VB程序段：
For i=1 To 9 step 2

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

Next i

s =0

For i=0 To 9 step 3

s =s+ b(i)

Next i

数组b各元素初始值为0，数组元素a(1)到a(9)的值依次为“29，74，12，38，16，45，21，57，33”，则执行该程序段后，s的值为( )

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

查看解析
5、有如下VB程序：
Dim c As Integer

Private Sub Form_ Load( )

c=0：Text1.Text=" "

End Sub

Private Sub Text1_ Change( )

If Val(Text1. Text) > 0 Then

    Text1. Text = Str(Val(Text1. Text) \ 2)

    c=c+1

End If

Text2. Text = Str(c)

End Sub

运行该程序，在文本框Text1中输入5，则Text1和Text2中显示的内容分别是(     )

A、0 3 B、12 C、51 D、-13

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

A、28 B、29 C、35 D、36

查看解析
7、下列有关多媒体技术相关概念的说法，正确的是( )

A、位图是用一组指令集合或数学公式来描述的 B、媒体元素分解涉及的内容有描述素材类型和获取方式等 C、导航软件播报前方路况信息，主要体现了多媒体技术的交互性 D、MPEG视频文件压缩部分冗余和非冗余信息，解压后能准确地恢复到原信息

查看解析
8、一段未经压缩的视频(不含声音)参数为：每帧画面为640X480像素、16位色，PAL制式(25fps) ，该视频的大小为73MB，则视频的时间约为( )

A、1秒 B、5秒 C、10秒 D、15秒

查看解析
9、使用Access软件统计某班高三毕业生高考成绩，如下图所示（）

A、对当前记录“语文”字段值进行修改，“总分”字段值会自动更新 B、“学号”字段肯定是“自动编号”类型 C、“上线”字段肯定是“是/否”类型 D、当前状态下插入新记录，将会出现在第24行

查看解析
10、使用UltraEdit软件查看字符的内码，部分界面如图所示：

则下列说法正确的是（）

A、图中最大内码的十进制表示为150 B、这段字符内码的所有字节之和为偶数 C、字符“1+2”的内码可能是“31 2C 32” D、内码“36 30 2B 3A A3 A4”中，包含4个数字

查看解析
11、汉字可以使用N* N的黑白点阵图案来表示，例如汉字“上”和“二”使用8 * 8的点阵图案表示，如图所示。转化为0和1的点阵，其中0表示白色，1表示黑色，则“上”字可以表示为：

使用以下规则对01点阵进行编码(以“上”为例)：

①编码的第一个数为点阵的行列数N，如示例中“上”对应的行列数N为8；

②按行列顺序从上到下，由左到右依次进行编码；

③第一个数表示连续有几个0，第二个数表示接下来连续有几个1，第三个数表示再接下来连续有几个0，依此类推……

根据以上规则，“上”的编码为8，3，1，7，1，7，1，7，3，5，1，7，1，7，1，4，8。依据上述描述的编码规则，设计一个解码程序，根据输入的压缩编码，输出01点阵和黑白点阵。程序运行界面如图b所示，其VB代码如下。请回答下列问题：

Private Sub Command1_ Click( )

    Dim n As Integer, m As Integer, flag As Integer

    Dim a(1 To 100) As Integer, sum As Integer, num As Integer

    Dim s As String,tmp As String

    '读取一组数据，并对数据处理后存入相应变量

    s= Text1. Text ： s=s+","

    num=0： i=1

    Do While Mid(s, i, 1) <> ","

        i=i+ 1

    Loop

    n=     ①

    p=i+1

    num=0 : m= 0

    For i=p To Len(s)

        ch= Mid(s, i, 1)

        If ch="," Then

            m=m+1

                ②

            num= 0

         Else

            num=num * 10+Val(ch)

         End If

    Next i

    '下列代码为按规则对编码进行解码，输出01点阵

    sum=n￥n

    i=1 : flag=0 : tmp=" "

    Do While sum>0

        For j=1 To a(i)

            If flag=0 Then

                 tmp=tmp+"O"

            Else

                 tmp=tmp+"1"

            End If

            If     ③   Then

                List1. AddItem tmp

                tmp=" "

            End If

        Next j

           ④

        i=i+1

        flag=1-flag

    Loop

    '按规则对编码进行解码，输出黑白汉字点阵，

代码略

End Sub

(1)、依据图a中“二”字点阵图案以及上述压缩编码的规则，“二”字的编码为(填数字，中间用逗号分隔)。

(2)、请在划线处填入合适的代码。
① ② ③ ④

查看解析
12、编写VB程序，实现如下功能：在文本框Text1中输入关键词，例如关键词“ok”，单击“查找”按钮Com-mannd1，在左边的列表框List1所列单词中查找包含“ok”的字符串，如果查找成功，将在右边的列表框List2中输出该单词。若该单词多次符合条件，则只显示一次。如果查找失败，则在列表框List2 中显示“查找无结果“。
实现上述功能的VB代码如下，运行效果如图所示。请回答下列问题：

Const n= 5

Dim a(1 To n) As String

Private Sub Form_ Load( )

'将n个字符串分别赋值给数组元素a(1)、a(2)、……、a(n)，并在列表list1中显示

'代码略：

End Sub

Private Sub Command1_ Click( )

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

    Dim m As Integer, k As Integer

    Dim flag As Boolean

    s = Text1. Text

    m = Len(s)

    List2. Clear

    flag = False

    For i=1 To n

        k = Len(a(i))

        For j=1 To k- m + 1

            If = s Then    '①改错

                List2. AddItem a(i)

                flag = True

                Exit For      '退出for 循环

            End If

        Next j

    Next i

    If Then    '②填空

        List2. AddItem“查找无结果”

    End If

End Sub

(1)、观察运行界面，窗体中一共有个对象。

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

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

(4)、如果删除程序代码中Exit For语句，对程序最终运行结果(选项：有/无)影响。

查看解析
13、小明制作了主题为“鼠年大吉”的多媒体作品，他首先使用Photoshop 软件制作了一张背景图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、Photoshop部分界面如图a所示，当前状态下，下列说法正确的是(多选，填字母：A .选中“背景”图层，可以直接修改“背景”图层的不透明度/B .“鼠年大吉”图层的内容没有显示在画布中/C .不能把“灯笼”图层的图层样式复制到“舞龙”图层/D .把当前PSD文档保存为JPEG格式，该文件大小约为366.2KB)

(2)、制作的Flash动画如图b所示，“鼠1”图层呈现动画可能是(单选，填字母：A .由3只老鼠逐渐变成2只老鼠再变成如图所示的1只老鼠/B .“鼠1”由小变大的同时，由舞台外面运动到舞台的左上角，再运动到如图所示位置/C .由“老鼠”文字逐渐变成“鼠”文字再变为如图所示的一只老鼠)

(3)、“礼花”图层从第1帧至25帧实现礼花从空中飘落到云上，并消失在云的后面。但测试影片时发现，礼花最终停留云的外面，要修正错误，下列对“礼花”图层操作可行的有 (多选，填字母)

A、选择第26帧至48帧执行“删除帧"操作 B、将第48帧移动到第26帧 C、选择第25帧执行“清除关键帧”操作 D、选择第26帧执行“插入空白关键帧"操作 E、选择第26帧执行“清除帧"操作

(4)、按下组合键“Ctr1+Enter”测试动画，在当前文件夹中会产生一个名为(填写完整文件名)的文件。

(5)、测试影片时，弹出如图c所示提示信息，应进行的修改是

查看解析
14、小王收集了某地农产品价格数据，用Excel对其进行分析，整理后的数据如图a所示，

(1)、表中第J列数据是通过公式计算得到。小王首先在J5单元格中输入公式，然后利用自动填充功能向下填充到J23单元格。

(2)、小王想对蔬菜类的数据以“农产品品种”为主要关键字按升序进行排序，则他应该选择的数据区域是。

(3)、小王要对数据进行筛选，筛选条件如图b所示，则他共筛选出行数据

(4)、小王根据图a中数据制作了一个图表，如图c所示：则制作此图表的数据区域为

查看解析
15、有一数组a(1 to 6) ，其数值分别为“45，39，78，37，93，64”，想要从小到大排序，编写如下程序代码：
Dim flag As Boolean

i =1：n=6

flag = True

Do While i <= n-1 And flag = True

    flag = False

    For j=n To i+ 1 Step-1

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

            k = a(j)： a(j) = a(j- 1)： a(j-1)= k

            flag = True

        End If

    Next j

    i=i+1

Loop

以上代码在整个排序过程中，数据总比较次数和总交换次数分别是(     )

A、9次和4次 B、9次和6次 C、12次和6次 D、15次和12次

查看解析
16、有如下VB程序段：
Dim p As Integer, q As Integer, s As Integer, t As Integer

p = Vai(Text1. Text)

t=0

For q=p+1 To2*p

    s=(p*q)Mod(q-p)

    If s = 0 Then

        t=t+1

    End If

Next q

Label1. Caption = Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是(     )

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

查看解析
17、某对分查找算法的VB程序段如下：
i=1： j=6： n=0： f= False

key= Val(Text1. Text)

Do While i<=j and Not f

    n=n+1

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

    If key=a(m) then f= True

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

Loop

数组元素a(1)到a(6)的值依次为“12， 19，27，31，46，55”。若在文本框Text1中输入“31”，则以上程序段运行结束后，下列说法不正确的是(     )

A、变量i的值为4 B、变量j的值为4 C、变量m的值为4 D、变量n的值为3

查看解析
18、有n盏灯，一开始全部处于关闭状态，现有n个人对这些灯进行操作：第1个入将所有灯打开，第2个人将所有编号为2的倍数的灯全部关闭，第3个人对所有编号为3的倍数的灯进行反向操作……直到第n个人操作完成为止，该过程用如下VB程序段进行模拟。
Dim a(1 To n) As Integer

For i=1 To n

    For j=i To n

      If   ①   Then

          ②

      End If

    Next j

Next i

已知数组a初始值全部为0，模拟灯的状态，0为关，1为开。则划线处正确的是(     )

A、①i Mod j=0②a(j)=1-a(j) B、①j Mod i=0②a(j)=1-a(j) C、①j Mod i=0 ②a(i)=1-a(i) D、①i Mod j=0 ②a(i)=1-a(i)

查看解析
19、有如下程序段：
Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum=6

a(11) = 49

For i=10 To 1 Step-1

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

If a(i)Mod 3=0 Then Sum=Sum+a(i)

Next i

Text1. Text = Str( Sum)

该程序段运行后，文本框text1中显示的内容是( )

A、180 B、174 C、42 D、36

查看解析
20、某算法部分流程图如图所示，则输出的值s为( )

A、4 B、8 C、16 D、22

查看解析

上一页 410 411 412 413 414 下一页跳转