相关试卷

1、小王收集了某商品的年度销售数据，并使用Excel软件进行数据处理，如图a所示。

图 a

请回答下列问题：

(1)、区域N5:P5的数据是在N5单元格中输入公式，然后利用自动填充功能得到的，则N5 单元格中的公式可以是 (多选，填字母)。

A、=N4/SUM(J4:J15) B、=N4/SUM($J4:$J15)*100 C、=N4/SUM(J$4:J$15)*100 D、=N4/($N$4+$O$4+$P$4)*100 E、=N4/(N4+O4+P4)

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

图 b

(3)、将区域A1:K15的数据复制到新工作表并进行筛选，设置渠道1、渠道2、渠道3销售额的筛选方式均如图c所示，则筛选出的月份是（填具体月份）。

图 c

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

k = i

For j = i + 1 To 6

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

Next j

tmp = a(i): a(i) = a(k): a(k) = tmp

Next i

数组元素 a(1)～a(6)的值依次为“62，54，35，67，15，34”。执行该程序段后，a(1)～a(6)的值依次为（）

A、15 54 34 67 35 62 B、54 15 67 34 62 35 C、15 34 35 54 62 67 D、15 34 67 62 54 35

查看解析
3、现有一个整数型数组a（下标1到n），其值的规律是先升序，中间相等，之后降序。现要找到降序的拐点，如数列2、4、11、15、15、15、14、11、10、8，其降序的拐点为最后一个15所在的位置，即6号位置。部分程序如下：
L = 1: R = n

Do While L <= R

m = (L + R) \ 2

  If Then

   R = m - 1

  Else

    L = m + 1

  End If

Loop

Text1.Text =

为实现上述功能，则程序中方框处填写的代码是（   ）

A、a(m) > a(m + 1) 和Str(R) B、a(m) > a(m + 1) 和Str(L) C、a(m) >= a(m + 1) 和Str(R) D、a(m) >= a(m + 1) 和Str(L)

查看解析
4、有如下 VB 程序段：
s = Text1.Text

If Mid(s, 1, 1) = "(" Then flag = True Else flag = False

cnt = 0: sum = 0

For i = 2 To Len(s)

  c = Mid(s, i, 1)

  If flag = True Then

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

      sum = sum + 1

    Else

    If sum <> 0 Then cnt = cnt + 1: sum = 0

   End If

  End If

  If c = "(" Then flag = True

  If c = ")" Then flag = False

Next i

文本框Text1的内容为一串只包含小写字母、左右括号和空格的字符串“(we can) do (better) we (should (be )better)”，执行程序段后，变量cnt的值为（   ）

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

查看解析
5、有如下VB程序段：
a(1) = 1: s = 0

For i = 2 To 6

s = 0

For j = 1 To i – 1

s = s + a(j)

Next j

a(i) = s + 1

Next i

执行该程序段后，a(6)的值为（）

A、15 B、16 C、32 D、64

查看解析
6、某算法的流程图如图所示，执行这部分流程，则输出 c 的值为（）

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

查看解析
7、现要计算出a、b之间（包含a、b）3的倍数的个数，下列VB表达式正确的是（）

A、b\3-(a-1)\3 B、(b-a+1)\3+1 C、(b-a)\3+1 D、(b-a-1)\3

查看解析
8、下列关于声音的数字化说法，错误的是（）

A、增大声音的音量，并不会影响该声音的量化位数 B、声音数字化的结果是将声音信息转换成二进制编码 C、声音文件能被压缩的原因之一是声音信息中存在时间冗余 D、对同一个声音信息采样点分别采用8位和24位量化，量化等级之比为1:3

查看解析
9、用Photoshop软件制作“二十四节气”作品，在“小雪”图层中已选择矩形区域，如图所示。

下列说法正确的是（）

A、不能将“鹤”图层的“鹤”图像复制到新的图层中 B、删除“背景”图层，文档①处指向的值不会发生改变 C、可以使用仿制图章工具，将“图章”图层中的图像仿制到“文字”图层 D、复制“树”图层的图层样式到“小雪”图层，外发光效果只出现在“小”图像上

查看解析
10、将下列数转换为十进制数，除以4后余数为3的是（）

A、A90H B、100110B C、FFFH D、101101B

查看解析
11、用 Access 软件设计“图书”数据表，在数据表中已录入如图a所示的原始数据，其设计视图如图b所示。

图 a

图 b

下列描述正确的是（）

A、Access软件属于数据库应用系统 B、可以增加数据类型为自动编号的“序号”字段 C、设计视图中字段顺序必须要和原始数据的列顺序保持一致 D、向数据表中添加新的记录时，“图书编号”字段的有效输入值可以为“20182002”

查看解析
12、下列有关网页与浏览器的说法，正确的是（）

A、使用搜索引擎检索的结果中，排在第一条的内容必定准确度最高 B、使用浏览器收发电子邮件的过程中涉及的协议只有POP3和SMTP C、使用HTML协议在浏览器与Web服务器之间传输的信息内容是用HTTP描述 D、在IE浏览器中以“文本文件(*.txt)”类型保存网页，无法保存网页中的超链接地址

查看解析
13、下列关于信息与信息处理的说法，错误的是（）

A、使用计算机处理信息，其本质都是通过计算来完成的 B、信息的加工必须使用智能手机、计算机等终端才能完成 C、拍图识字、汽车自动驾驶等信息处理应用了人工智能技术 D、计算机进行信息处理时不仅与硬件密切相关，还需软件支持

查看解析
14、某单位拟进行人事招聘，根据“笔试”和“面试”成绩计算最后名次。规则如下：
记录各个考生的笔试和面试得分，根据得分分别计算笔试和面试的名次（得分越高排名越前，得分相同，名次也相同）；再根据笔试和面试的名次计算总分（总分=笔试名次+面试名次）；最后计算总分的名次（总分越低排名越前，得分相同，名次相同）。程序设计过程中，为节省内存，尽可能少使用数组，编程实现上述功能：窗体加载时，自动从数据库读取考生的笔试和面试得分，显示在列表框 List1 中；在文本框 Text1 中输入录取人数 n，单击“统计”按钮 Command1，在标签 Label1、Label2 和 Label3 中分别输出笔试、面试、总分前 n 名的考生编号。程序运行界面如图所示。

(1)、根据评比规则和图中数据，1号考生的两项竞赛的总分是

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

'数组 xh、df 和 mc 分别存储选手编号、得分和名次；df 数组的 1～n 元素存储笔试相关数据；n+1～2n 元素存储对应选手的面试相关数据；2n+1～3n 元素存放两项考试总分相关数据

Dim xh(1 To n * 3) As Integer, df(1 To n * 3) As Integer, mc(1 To n * 3) As Integer

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

'本过程从数据库读取各选手的选手编号、得分数据，分别存储在数组 xh、df 中

Private Sub Form_Load( )

List1.Clear

List1.AddItem "选手" + " " + "笔试" + " " + "面试"

For i = 1 To n

xh(i) = i: xh(n + i) = i

Next i

For i = 1 To n

   List1.AddItem Str(xh(i)) + " " + Str(df(i)) + " " + Str(df(n + i))

Next i

End Sub

Private Sub Command1_Click()

Dim c As Integer

c = Val(Text1.Text)

Label1.Caption = "笔试前" & Str(c) & "名：" & pm(1, n, c, False)

Label2.Caption = "面试前" & Str(c) & "名：" & pm(n + 1, 2 * n, c, False)

For i = 1 To n

xh(2 * n + i) = i: df(2 * n + i) = 0: mc(2 * n + i) = 0

Next i

For i = 1 To 2 * n

   df(2 * n + xh(i)) = df(2 * n + xh(i)) + mc(i)

Next i

Label3.Caption = "总分前" & Str(c) & "名：" & pm

End Sub

Function pm(ks As Integer, js As Integer, num As Integer, fx As Boolean) As String

For i = ks To js - 1

   For j = js To ks + 1 Step -1

   If (fx And df(j) < df(j - 1)) OrThen

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

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

   End If

   Next j

Next i

mc(ks) = 1: pm = Str(xh(ks))

For i = ks + 1 To js

   If df(i) = df(i - 1) Then



   Else

     mc(i) = i - ks + 1

   End If

If mc(i) <= num Then pm = pm & "," & Str(xh(i))

Next i

End Function

查看解析
15、有如下程序，从数据库获取成绩，单击“读取数据”按钮将n个非降序数保存在数组cj(1)～cj(n)中，并将成绩显示在列表框中。在文本框中输入成绩key，单击“查找”按钮，在标签中显示大于等于该成绩的学生人数。

(1)、界面中“查找”按钮的对象名为。

(2)、实现上述功能的 VB 程序如下，请在划线处填入合适的代码
Dim cj(1000) As Integer, n As Integer

Private Sub btncmd1_Click( )

Dim i As Integer, j As Integer

Dim k As Integer ,tmp As Integer

For i = 2 To n

  tmp = cj(i)

  j = BinarySearch

  For k = i To j + 1 Step -1

    cj(k) = cj(k - 1)

  Next k

  cj(k) = tmp

Next i

For i = 1 To n

List1.AddItem Str(cj(i))

Next i

End Sub

Private Sub btncmd2_Click()

Dim i As Integer

i = BinarySearch(Val(Text1.Text), 1, n)

Label2.Caption = "共有" ++ "位同学大于等于该成绩。"

End Sub

Function BinarySearch(key As Integer,i As Integer,j As Integer) As Integer

Dim m As Integer

Do While i <= j

m = (i + j) \ 2

If cj(m) >= key Then

    j = m - 1

Else

    i = m + 1

  End If

Loop

BinarySearch =

End Function

Private Sub Form_Load()

'从数据库获取n个成绩存储在 cj(1) ～cj(n)组中，代码略

End Sub

查看解析
16、某同学制作了“抗击疫情迎接春天”的FLASH多媒体作品，请回答下列问题：

(1)、关于多媒体作品设计，以下说法正确的是。（多选，填字母：A . Flash 是以时间序列为基础的多媒体合成软件/B . 在创作需求分析阶段应做的是分析作品效益/C . 文字脚本是制作动画的直接依据/D . 结构设计阶段需要描述整个作品的组成部分、工作流程、主要界面）。

(2)、当前状态下执行测试影片命令，首先播放的场景是。

(3)、“继续”按钮在场景一开始就出现，要实现该按钮在本场景最后一帧再出现，应如何修正。

(4)、“明天依然最美”图层第20帧到第50帧实现了文字实例“明天依然最美”由小到大且由透明到完全显示的变化效果，则该动画的类型是。(选填字母：A . 逐帧动画；B . 动画补间；C . 形状补间)。

(5)、“音乐”图层添加了一段时长为61秒的音频文件，小李发现当前场景动画结束后声音仍在播放，由此可判断当前音频的同步方式为。 (选填字母:A . 数据流；B . 事件)

(6)、测试影片时，单击“继续”按钮，自动跳转到“主交互界面”场景的第1帧播放，则需在按钮上加入的脚本命令为。

查看解析
17、小赵收集了近三年浙江省接待入境旅游者人数的数据，并使用Excel软件进行数据处理：

图 a

(1)、在M4单元格中使用AVERAGEIF函数计算2017年亚洲所有国家的平均入境人数，然后通过自动填充得到M5:M7的公式，则M4单元格中的公式为 (提示:AVERAGEIF 函数用于对区域中满足条件的单元格求平均。例如：=AVERAGEIF(A4:A18,J4,E4:E18)表示 2016 年所有亚洲国家的入境人数平均数)

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

图 b

(3)、在图a所示的工作表中对数据作进一步操作，下列说法正确的是（多选：填字母）

A、对表格数据区域A4:H18按“列A”为主要关键字升序排序，则图b中所示的图表不会发生变化。 B、若要筛选出2016年欧洲入境旅游者人数同比增长最多的国家，可以选择A2：H18区域，以地区为“欧洲”、2016年“同比（%）”为最大1项进行筛选。 C、若要筛选出2016年欧洲入境旅游者人数同比增长最多的国家，可以选择A2：H18区域，以地区为“欧洲”进行筛选，再以2016年“同比（%）”为关键字进行降序排序，选取排在最前面的国家。 D、在正确完成M4：M7计算后，小赵不小心将B列删除，则原 M4:M7 单元格中的数据不会发生变化。

查看解析
18、有如下VB程序段：
i=1：j=8：k=0

Key=Int（Rnd*50）*2+3

Do While i<=j

m=（i+j+1）\2

If Key=a（m）Then

    Exit Do

ElseIf Key <a（m）Then

    i=m+1：k=k+1

Else

   j=m-1：k=k-1

End If

Loop

Text1.Text=Str（k）

数组元素a（1）到a（8）的值依次为“88，66，50，46，24，20，18，6”,执行该程序段后，k的值不可能是（   ）

A、-1或-2 B、1或-1 C、-3或2 D、-2或3

查看解析
19、某 VB 程序段如下：
Dim a（1 To 6）As Integer

Randomize

a(1)=Int（Rnd*2）+1

For i=2 To 6

a(i)=Int（Rnd*i）*2+1

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

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

End If

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（）

A、2，4，6，8，10，12 B、1，1，3，7，12，23 C、2，5，9，11，10，15 D、1，3，15，16，20，23

查看解析
20、将一组数据（共n*n个数）,分别存放在a(1)…a(n*n)中，通过下面程序实现n段有序（升序），例如：当n=4时，排序结果如图所示：

有如下VB程序段：

For i = 1 To n

For j = n * (i - 1) + 1 To ①

    For k = ②   To   ③

      If a(k) > a(k + 1) Then

        t =a(k): a(k) = a(k + 1): a(k + 1) = t

      End If

    Next k

Next j

Next i

上述程序段划线处的表达式正确的是（   ）

A、① n * i – 1 ② n * (i - 1) + 1 ③ n * (2 * i - 1) – j B、① n * (i - 1) ② n * i – 1 ③ n * i - j C、① n * i – 1 ② n * i + j ③ n * (2 * i - 1) D、① n * i ② n * (i - 1) + 1 ③ n * i - j

查看解析

上一页 1131 1132 1133 1134 1135 下一页跳转