相关试卷

1、某地为各个村之间建立灌溉管道，现需实现用最短的管道距离使得所有村庄可以连通。如图a所示，[V1,V2,V3,V4,V5]每个节点表示村庄，两个节点之间的数值表示两个村庄之间的边距离。

图c

算法思路如下：

①首先按边距离升序排序；

②找到边距离最小值1，以及相应的两个节点V1 和V3；

③以V1 或V3 作为起点，搜寻连接新节点且距离最小的边，发现(V1,V4)边最小为4；

④以V1、V3、V4 作为起点，搜寻连接新节点且距离最小的边，发现(V4,V5)边最小为2；

⑤以V1、V3、V4、V5 作为起点，搜寻连接新节点且距离最小的边，发现(V2,V5)边最小为3；因此可知，连通5个村庄的最短管道距离是1+4+2+3=10，效果如图b所示。

现设计了如下VB 程序，界面如图c所示，请回答下列问题：

(1)、V2到V5的边距离若为6，则连通5个村庄的最短管道距离是。

(2)、请在划线处填入合适的代码。
Const n = 5 '村庄数

Const m = 8 '管道线路数

Dim pointAB(1 To 2 * m) As Integer '存储连接的两个村庄节点

Dim length(1 To m) As Integer '存储两个村庄之间的距离

Dim res(1 To 100) As Integer '存储管道规划结果

Private Sub Form_Load()

'村庄节点数据存储在pointAB数组，两个村庄的距离数据存储在length 数组。

'如图c 所示，(V1,V3)边距离为1，则pointAB(1)=1，pointAB(2)=3，length(1)=1；

(V1,V2)边距离为6，则pointAB(3)=1，pointAB(4)=2，length(2)=6；其他依次类推，代码略。

End Sub

Function check(x As Integer) As Integer '判断x 节点是否已在规划中

check = 0

For i = 1 To 100

If x = res(i) Then check = 1: Exit Function

Next i

End Function

Private Sub Command1_Click()

Dim i As Integer, j As Integer, tmp As Integer

Dim total As Integer, sum As Integer

For i = 1 To m - 1

For j = m To i + 1 Step -1

If       ①      Then

tmp= pointAB(2 * j - 1) :pointAB(2 * j - 1) = pointAB(2 * j - 3) :pointAB(2 * j - 3) = tmp

tmp = pointAB(2 * j) : pointAB(2 * j) = pointAB(2 * j - 2) :pointAB(2 * j - 2) = tmp

tmp = length(j): length(j) = length(j - 1): length(j - 1) = tmp

End If

Next j

Next i

'开始规划管道

total = 1

res(1) = pointAB(1): res(2) = pointAB(2)

sum = length(1)

Do While total <       ②

For i = 2 To m

If       ③      Then

total = total + 1

res(2 * total - 1) = pointAB(2 * i - 1)

res(2 * total) = pointAB(2 * i)

sum = sum + length(i)

Exit For

End If

Next i

Loop

'输出连通结果res 以及管道总长度sum，代码略。

End Sub

① ② ③

查看解析
2、某程序功能如下：将自然数从1到100按某种方式排列起来，单击“输出”按钮Command1，在列表框List1中显示排列后的数表，运行结果如图所示。

(1)、下列对象中不具有Caption属性的是（单选，填字母：A .Command1 /B .Form1 /C .List1）

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

Const n = 10

Dim i As Integer, j As Integer

Dim d(0 To 100) As Integer

For i = 1 To n

    For j = 1 To n

        If i = 1 Then

            d(j) = j ^ 2

        Else

            If j = 1 Then

                    ①



                d((i - 1) * n + j) = d((i - 2) * n + j) - 1

            Else

                      ②

            End If

        End If

    Next j

Next i

‘在列表框List1中按每行10个输出数组d的所有元素，代码略

End Sub

① ②

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

查看解析
3、用Flash软件打开“致敬逆行者.fla”文件，编辑界面如图a所示。

图a

请回答下列问题：

(1)、创作多媒体作品需要进行需求分析和规划设计。下列属于需求分析的是（多选，填字母：A ．确定作品的结构类型为演示型/ B ．明确作品的工作流程/ C ．确定获取原始素材的方式/ D ．确定作品的发布方式/ E ．设计作品的三个模块的交互方式）

(2)、文件中导入的声音设置图b所示，动画播放一遍停止时，音乐播放时长是秒。

(3)、将动画GIF文件“飞奔．gif”导入库中直接得到一个影片剪辑元件，则该元件中动画的动画类型是。（选填，填字母，A ．逐帧动画/B ．形状补间动画/C ．动画补间动画）

图b

(4)、为了使该场景动画播放到最后一帧自动退出动画，可以在按钮图层的最后一帧添加动作脚本

(5)、测试该场景时，“英雄”图层内容在播放完第30帧后消失，为了使该图层第30帧内容再延续2秒，下列操作可行的是______。（多选题）

A、选中“英雄”图层第31帧执行“清除关键帧”操作 B、将“英雄”图层第50帧执行“插入关键帧”操作 C、删除“英雄”图层第31帧，在第50帧执行“插入帧”操作 D、将“英雄”图层第31帧移动至50帧，在第50帧执行“清除关键帧”操作 E、选中“英雄”图层第50帧执行“插入帧”操作，在第31帧执行“清除关键帧”操作

查看解析
4、小王用Excel软件制作了一张2019年家庭各月份用电统计表，如图所示。

请回答下列问题：

(1)、“执行峰谷电”的电价是根据高峰、低谷不同的电价进行计算。通过I3单元格的公式，对I4：I14进行自动填充，则I7单元格中显示结果是（单元，填字母：A .53.4 /B .0.0 /C .#REF! /D .#DIV/0!）

(2)、若要正确计算“执行峰谷电”列的数据，可以对I3单元格中的公式进行修改，并对I4:I14进行自动填充，则I3单元格的公式是

(3)、下面描述正确的是____________（多选，填字母）

A、C列内容显示为“#####”，其可能的原因是列宽不足 B、若要对第三季度（七、八、九月份）的数据以“执行峰谷电”为主要关键字进行降序排序，则排序时选择的数据区域是B2：I2，B9：I11 C、若要筛选出“执行峰谷电”和“不执行峰谷电”差值最小的月份，可以以“执行峰谷电”为最大1项、“不执行峰谷电”为最小1项进行筛选 D、若将M3：M5单元格的数值小数位数设置为0，则H3：I14中显示的值不会发生变化

查看解析
5、某对分查找算法的VB程序段如下:
Key = Int(Rnd * 30) * 2 + 41

s = 0: i = 1: j = 10

Do While i <= j

m = (i + j) \ 2

If Key > a(m) Then

i = m + 1: s = 3 * s + 2

Else

j = m - 1: s = 3 * s

End If

Loop

Text1.Text = s

数组a(1)到a(10)的值依次为“2,13,24,31,35,44,45,47,61,101”，执行该程序段后，s的值不可能为（）

A、8 B、18 C、60 D、78

查看解析
6、有如下VB程序段如下:
Dim s As String, t As String

s = Text1.Text

For i = 1 To Len(s) - 1

    For j = Len(s) To i + 1 Step -1

        If Mid(s, j, 1) + Mid(s, j - 1, 1) > Mid(s, j - 1, 1) + Mid(s, j, 1) Then

        If j>2 then s = Mid(s, 1, j - 2)

          s=s + Mid(s, j, 1) + Mid(s, j - 1, 1)

          If j<len(s) then s=s+ Mid(s, j + 1)

        End If

    Next j

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

Next i

Text2.Text = t

执行该程序，当文本框text1中输入了“b52Ba”时，文本框text2中输出的是（）

A、25Bab B、baB52 C、baB5 D、25Ba

查看解析
7、有如下 VB 程序段：
Dim s As String, ch As String

Dim i As Integer, t As Integer

s = Text1.Text : t = 0

For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch <> "," Then t = t * 2 + Val(ch)

    Text2.Text = Text2.Text + Str(t)

Next i

执行该程序，当文本框text1中输入了“11,10”时，文本框text2中输出的是（）

A、3 2 B、1 3 7 14 C、1 3 3 7 14 D、1 3 3 7 14 14

查看解析
8、关于排序和查找，以下说法正确的是（）

A、冒泡排序算法中，数据的交换次数与比较次数一定相同 B、选择排序算法中，若某一趟排序中数组元素没有发生过交换，则数组已有序 C、有10个数据的数组，用顺序查找算法查找某个数，查找不成功的时，查找次数为11次 D、有10个数据的有序数组，利用二分查找算法查找某个数，最多的查找次数为4次

查看解析
9、下列VB表达式的值为6的是（）

A、36 Mod 30 \ 3 B、Val("3+3") C、abs(Int(-5.34))+1 D、mid(“2016remember”,4,1)

查看解析
10、某算法的部分流程图如图所示，以下说法正确的是（）

A、该流程执行后，变量i的值是4 B、该流程执行后，变量f的值是true C、语句“i mod 3 = 0?”执行的次数为2次 D、语句“i<-i+1”和“f<- not f”执行的次数为3次

查看解析
11、未经压缩的BMP图像文件a.bmp和b.bmp，a.bmp的尺寸1024*768，颜色类别为RGB/8，b.bmp的尺寸768*512，颜色类别为16色，则图像文件a.bmp与b.bmp存储容量之比约为（）

A、4：1 B、12：1 C、16：1 D、32 ： 1

查看解析
12、使用Photoshop软件制作“抗疫”宣传图片,部分界面如图所示：

下列说法正确的是（）

A、“齐心抗疫情”图层设置了“投影”和“内阴影”效果，仅投影效果可见 B、左下角数值“50%”修改为“100%”，则图像大小变为原来的2倍 C、选中“中国”两字，用文字工具可以仅将“中国”两字变大 D、选择“背景”图层，将不透明改成0%，并以PNG格式存储可以得到背景透明的图像文件

查看解析
13、下列关于计算机信息编码的描述，正确的是（）

A、8位二进制数的最大值是128D B、处理码是计算机内部用于信息处理的汉字编码，也称为交换码 C、数据具有冗余，所以可以被压缩，压缩是编码的过程 D、16色位图的每个像素必须用16位二进制数进行编码

查看解析
14、使用Access软件打开数据库，部分界面如图所示。下列说法正确的是（）
图a
图b

A、该数据库能为多个用户共享、与应用程序彼此独立 B、当前状态下，如果添加新纪录，ID字段值一定为6 C、可以删除所有记录和字段，使该表成为一张空表 D、无论是图a还是图b，两个视图中都无法删除ID字段，因为该字段为主键

查看解析
15、某天小王老师从商场开车回学校的途中发生了以下几件事：
①在开出商场时，出口处的停车闸识别了她的车牌号，并显示相应的停车费。

②她使用微信扫描二维码的方式支付停车费

③在出发前，她不熟悉回去的路，于是用百度地图上搜索了回程路线

④在行车途中她想使用手机，喊了一声“嘿，Siri”，手机助手回应“你好，我在这儿”

⑤红绿灯停车时，她听到广播里一首歌，不知道叫什么歌名，于是使用“网易云音乐”软件中“听歌识曲”的功能。5秒钟后，软件内显示出了该歌曲的名称

⑥开到校门口，门卫大伯看到她的车，使用红外线传感遥控器，将学校的升降闸门打开，她安全地回到了学校。

上述过程中，哪几件事情运用到了人工智能技术（）

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

查看解析
16、下列说法正确的是（）

A、信息可以脱离载体被存储、保存和传播 B、微信朋友圈分享身边趣闻是一种比较常见的信息表达方式 C、微电子技术、光电子技术、广播电视技术、计算机网络都是属于现代信息技术 D、在淘宝购物页面中有货品的好评率，这属于统计评价

查看解析
17、某编码由4个信息位和3个校验位组成，通过对编码信息进行验算，能够检测并纠正一位错误代码。该7位编码中b1～b4为信息位，p1～p3为校验位，位置如表所示：

编码中位

1

2

3

4

5

6

7

对位信息

p1

p2

b1

p3

b2

b3

b4

校验的方式如下，求校验值g1、g2、g3：

g1 ＝ p1 Xor b1 Xor b2 Xor b4

g2 ＝ p2 Xor b1 Xor b3 Xor b4

g3 ＝ p3 Xor b2 Xor b3 Xor b4

其中Xor 为异或运算，规则是：0 Xor 0 ＝0，0 Xor 1 ＝1，1 Xor 0 ＝1，1 Xor 1 ＝0，p1 Xor b1 是将p1、b1 转换为二进制后按位进行异或运算，如7 Xor 12 的结果为11。

a．若计算得到的校验值g1、g2、g3 均为0，说明校验正确，数据无错误。例如：若7 位编码为1101001，计算校验值g1、g2、g3 值均为0，验证正确。

b．若校验值g1、g2、g3 不全为0，说明数据有错，出错位置为g3g2g1(二进制数表示)，纠错的方法是对错误的位进行取反，即“0”变“1”，“1”变“0”。例如：若7 位编码为1111001，计算校验值g1＝1、g2＝1、g3＝0，不全为0，说明数据有错，错误位置在011(二进制数)位，即第3位，原位置上“1”应为“0”，正确编码为1101001。

小明为此编写了VB 程序，程序运行时，在文本框Text1 中输入编码值，单击“校验”按钮Command1 后，在文本框Text2 中输出运行结果，如图所示。

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

(1)、若按上述规则的7位编码为1001000，其中一位有错，则正确的编码应为。

(2)、请在划线处填入合适的代码并对加框处改正
Function check(s As String) As Integer

Dim i As Integer, g1 As Integer, g2 As Integer, g3 As Integer

Dim c(1 To 7) As Integer

For i ＝ 1 To 7

c(i) ＝ Val(Mid(s, i, 1))

Next i

g1 ＝ c(1) Xor c(3) Xor c(5) Xor c(7)

g2 ＝ c(2) Xor c(3) Xor c(6) Xor c(7)

g3 ＝ c(4) Xor c(5) Xor c(6) Xor c(7)

If g1 ＋ g2 ＋ g3 ＝ 0 Then check＝0 Else check＝ ①

End Function

Private Sub Command1_Click()

Dim i As Integer, m As Integer, Outs As String

m＝ ②

If m ＝ 0 Then

  Text2.Text ＝ “验证正确，数据无错误”

Else

For i ＝ 1 To 7

If i ＝ m Then

   Outs＝Outs＋   ③

Else

   Outs ＝ Outs ＋ Mid(Text1.Text, i, 1)

End If

Next i

Text2.Text ＝ “第” ＋ Str(m) ＋ “位上数据有错误，正确编码应为：” ＋ Outs

End If

End Sub

① ② ③

加框处改正：

查看解析
18、小明编写了一个有关整数闭区间合并操作的VB程序：从数据库读取闭区间数据(左端点和右端点)，存储在数组a中，按区间数据左端点升序排序，然后进行合并操作，操作结果存储在数组b中。
例如，读取的数据为 2、3、15、25、10、14、1、5、30、60、15、25，过程是：

⑴设置区间信息为[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]；

⑵按区间左端点升序排序，得到J区间信息为

[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]，[15，25]；

⑶合并区间，得到[1，5]，[10，25]，[30，60]。说明：区间[1，5]和[2，3]合并为[1，5]，区间[10，14]和[15，25]合并为[10，25]，区间[10，25]和[15，25]合并为[10，25]，因此合并后的结果为：

[1，5]，[10，25]，[30，60]三个区间。

程序功能如下：单击“读数据库”按钮Command1，程序从数据库读取数据，输出在文本框Text1中；单击“开始处理”按钮Command2，程序进行区间排序，并进行区间合并操作，操作后的结果输出在文本框Text2中。程序运行结果如图所示。

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

(1)、Private Sub Command1_Click()中的Click()是(单选,填字母:A .对象名、B .属性名、C .事件名、D .事件处理过程名)

(2)、从数据库中读入的区间为[1，10]，[15，20]，[6，18]，[25，30]，[31，200]，则合并操作后的区间为。

(3)、请在划线处填入合适的代码。
Dim a(l To 100) As Integer ′数组a存储合并前的区间

Dim b(l To 100) As Integer ′数组b存储合并后的区间

Dim n As Integer    ′n表示区间个数

Private Sub Command1_Click()

Dim s1 As String, i As Integer

′读取数据，并存储到数组a中，并输出在文本框Text1中，代码略

End Sub

Private Sub Command2_CIick()

Dim s2 As String, i As Integer, j As Integer, k As Integer

Dim n As Integer, t As Integer, x As Integer

For i＝1 To n－1

For j＝1 To 2 * n－2 * i Step 2

   If ① Then

    t＝a(j): a(j)＝a(j＋2): a(j＋2)＝t

    t＝a(j＋1): a(j＋1)＝a(j＋3): a(j＋3)＝t

   End If

Next j

Next i

k＝2

b(1)＝a(1): b(2)＝a(2)

i＝2: j＝3

Do While j <＝2 * n

    If b(i) >＝a(j) Then

     If b(i) <＝a(j＋1) Then ②

    Else If b(i)＋1＝a(j) Then

     b(k)＝a(j＋l)

    Else

     k＝k＋1：③

     k＝k＋1: b(k)＝a(j＋1)

     i＝i＋2

    End If

    j＝j＋2

Loop

For x＝1 To k－2 Step 2

    s2＝s2 & “[”& b(x) & “，” & b(x＋1) & “]” & “，”

Next x

s2＝s2 & “[” & b(x) & “，” & b(x＋1) & “]”

Text2.text＝s2

End Sub

查看解析
19、小李使用Flash软件制作主题为“乌衣巷”的多媒体作品。请回答下列问题：

(1)、在制作作品前，小李进行了需求分析和规划设计，并编写了脚本。下列不属于脚本编写的是(单选，填字母：A .确定作品的结构类型/B .编写作品的脚本大纲/C .编写作品的制作脚本/D .进行媒体元素分解)。

(2)、如图a所示，“诗”图层第24帧到第48帧实现了“诗”由小变大、由淡变浓的动画效果，该动画类型为(填字：动画补间/形状补间/逐帧动画)。

(3)、要实现“诗人”图层中的人物一开始就出现在舞台，1秒钟后出现“诗人”动画，应做的调整为。

(4)、测试影片时，若各场景无交互指令，则场景播放顺序为。

(5)、“播放”按钮的部分编辑界面如图b所示，测试时鼠标放到按钮上未呈现小手形状，以下操作可使按钮有效的是(多选，填字母：A .对“背景”图层“按下”帧进行“清除关键帧”操作/B .在“文字”图层“按下”帧处插入关键帧 /C .在“声音”图层“按下”帧中绘制图形/D .删除“背景”图层“点击”帧)。

(6)、测试影片时，单击“创作背景”按钮，实现在浏览器中显示同一文件夹中的“czbj.txt”文件内容并停止所有声音的播放。则该按钮上应添加的动作脚本为on(release){ }。

查看解析
20、有VB程序段：
Function c(m As Integer, n As Integer) As Long

If n= m Then

    c=1

Else

    If n=1Then c= m Else c=c(m-1, n-1)*m\n

End If

End Function

Private Sub Command1_Click()

Dim k As Integer, i As Integer, sum As Long

k = Val (Text1. Text): sum= 0

For i= 2 To k

    sum=sum+c(k，i)

Next i

Text2. Text = Str (sum)

End Sub

在文本框Text1中输入3，执行该程序段，则文本框Text2中显示的内容是（）

A、2 B、6 C、4 D、8

查看解析

上一页 1242 1243 1244 1245 1246 下一页跳转

编码中位	1	2	3	4	5	6	7
对位信息	p1	p2	b1	p3	b2	b3	b4