相关试卷

1、用Access软件设计家电销售系统的数据库，其中已建好的“家电库存”数据表用于存储如图所示的数据。

序号	库存编号	类别	库存数量	零售价	入库时间	盈利情况
1	cWJDO01	家电	78	265元	2021年2月10日	正利润
2	SHDQ001	生活电器	121	868元	2021年3月12日	负利润
3	SHDQ002	生活电器	98	322元	2021年3月12日	零利润
…	…	…	…	…	…	…

下列相关描述，正确的是（）

A、可以在该数据表的第1条记录前插入一条记录 B、图中“盈利情况”列在该数据表中相应字段的类型可以设置为“是/否” C、图中“库存编号”列在该数据表中相应字段可以设置为主键 D、该数据表中可有两个字段名都为“kc”的字段，分别存储图中任意两列的数据

查看解析

2、以下属于人工智能应用的是（）
①通过刷脸完成支付宝的验证登录②使用在线二维码生成器制作二维码③通过“拍照识花”APP了解花卉信息 ④通过语音命令“天猫精灵”打开电视机 ⑤通过微信发送语音消息

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

查看解析
3、果农们为推销自己种植的水果，开通了微信公众号发布销售信息，下面说法不正确的是（）

A、在信息的传递过程中，其载体是可以变化的 B、通过手机扫二维码关注公众号的过程，属于信息的编码过程 C、网民们通过微信公众号了解水果的销售信息，体现了信息的共享 D、在公众号的某篇文章下获得了258个赞，这属于信息的统计评价

查看解析
4、某密文是由一串数字加密得到，其解密规则是：①对连续重复的大写字母，仅保留1个；②在去重后的文本中，从首字符开始间隔5个字符取1个，依次连接取出的字符，即为明文。
编写解密的VB程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中显示去重后的文本，并在标签Label1中显示明文。程序运行界面如图所示。

(1)、命令按钮Command1上显示的“解密”文字，是通过修改该按钮的（单选，填字母：A .Font/ B .Caption/ C .BackColor）属性实现的。

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

    Dim s1 As String, s2 As String, c As String, mw As String

    Dim i As Integer

    s1= Text1.Text

    s2 = Mid（s1, 1, 1）

    For i=2 To

        c=Mid（s1, i, 1）

        If c>="A" And c<= "Z" Then

        IfThen s2 =s2 +c

        Else

            s2 =s2+c

        End If

    Next i

    mw=“”

    i=6

    Do While i<= Len（s2）

        mw = mw + Mid(s2, i, 1)



    Loop

    Text2. Text= s2

    Label1. Caption =mw

End Sub

查看解析

5、使用Flash软件创作“君子四艺”作品，其中“围棋”场景的制作脚本如下表所示。

场景名：围棋

类别序号：2

进入方式：来自“片头”场景，通过“围棋”按钮进入

呈现方式：

①云在舞台上方持续移动。

②一枚黑色棋子在舞台左侧由小变大，再渐变成“围棋”二字，然后持续显示至最后。

③人物在舞台右侧从完全透明到完全显示，时长1秒。

④“规则”按钮位于舞台右下角，单击该按钮跳转到“规则”场景第1帧并开始播放。

（其他略）

呈现顺序：

①开始时出现背景图片、云动画、文字动画和背景音乐。

②3.5秒时开始出现人物动画。

③最后出现“规则”按钮，并停止场景播放，背景音乐不停止。

(1)、分析制作脚本，下列说法正确的有（多选，填字母）。

A、该作品至少需要3个场景 B、开始时背景音乐和人物动画均需出现 C、云的动画效果可以通过编辑元件实现 D、当前场景的最后1帧需要添加动作脚本 E、背景音乐同步方式需要设置为“数据流”

(2)、根据上述脚本，在Flash软件中编辑“围棋”场景，部分界面如图所示。

“文字”图层的第11帧至21帧的补间动画实现了由棋子渐变为“围棋”二字的效果，则该补间类型为（选填：动画/形状）。

(3)、测试影片，为了使“人物”图层中的动画起止时间符合脚本要求（从3.5秒时开始到4.5秒时结束），正确的操作是。

(4)、根据制作脚本，“规则”按钮上的动作脚本为。

(5)、若使该作品发布后有交互功能，则发布的格式是（单选，填字母）。

A、Flash影片（*，swf） B、GIF动画（*.gif） C、Windows AVI（*.avi）

查看解析

6、Private Sub Command1_Click( )
    Dim a AsString

    Dim c AsString

    a = “lianshizhongxue”

    c = Mid (a , Len( a) \2 +1, 8)

    Text1.Text = c

End Sub

该程序段运行后，在文本框Text1上显示的是（    ）

A、”lianshi” B、”zhongxue” C、lianshi D、zhongxue

查看解析
7、模拟剪刀石头布的游戏，骰子是一个正六面体，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用RND随机函数可以表示为（）

A、INT（RND（3）+1） B、INT（RND*2+1） C、INT（RND（2）+1） D、INT（RND*3+1）

查看解析
8、使用 UltraEdit软件观察字符内码，部分界面如图所示，这些字符中包含的大小写英文字母的个数是（）

A、2 B、9 C、11 D、15

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

A、该流程执行后，变量k的值是-1 B、该流程执行后，变量a的值是16 C、该流程用于计算并输出1+8-16的值 D、该流程共循环了2次，“a<32?”共执行了3次

查看解析
10、由于交易程序错误，十进制系统的数字被重新排列。例如：将0改为2，1改为3，2改为0，如果正确的数据为“021”，则现在系统显示“203”。该交易系统的用户特别关心他们在系统中的排名，所以公司决定紧急编写一个程序，该程序能将系统显示的价值按真实价值升序排序。
程序要求如下：给定需要排序的数字（十进制混乱版本）和映射，返回按正确的十进制值升序排序的混乱数据，如果多个映射值相等，则返回的值按其显示的原始顺序。（采用插入排序算法实现：其基本思想是将整个数组分为左边有序和右边无序两个部分，每次取出无序部分的第一个元素，把它插入到有序部分的合适位置，直至所有的数据有序为止。）

例如，固定长度为10的映射{“3”,“5”,“4”,“6”,“2”,“7”,“9”,“8”,“0”,“1”}

和混乱的错误数据{“990”,“332”,“32”}

将“990”映射为“668”：

第一个数字为“9”。在映射数组中，9在位置6处，因此映射值得第一位是“6”。

第二个数字为“9”。在映射数组中，9在位置6处，因此映射值得第一位是“6”。

第三个数字为“0”。在映射数组中，0在位置8处，因此映射值得第一位是“8”。

按同样的方法，“332”映射为“004”，“32”映射为“04”。

“004”和“04”转换成整数都是4，按整数值排序会产生{4,4,668},而保留“332”和“32”的顺序会得到混乱数据为{“332”,“32”,“990”}。

程序VB代码如下：

Const m = 1000

Const n = 10

Dim mapping(1 To n) As String    '存储映射数字

Dim nums1(1 To m) As String    '存储现在的错误数据

Dim nums2(1 To m) As String    '存储原始的正确数据

Private Sub Form_Load()

'读取系统中现在的错误数据存储在数组nums1中，并将数据添加到列表框list1，代码略

'读取映射数字存储在mapping数组中，代码略

End Sub

Private Sub Sort_Click()

    Dim errornum As String

    Dim rightnum As String

    Dim i, j As Integer

    Dim temp As String

    Dim s As String

    For i = 1 To m

        nums2(i) = ""

        For j = 1 To Len(nums1(i))

            errornum = Mid(nums1(i), j, 1)

                ①

            nums2(i) = nums2(i) + rightnum

        Next j

    Next i

    '对原始正确数据进行升序插入排序

    For i = 2 To m

        temp = nums2(i): j = i - 1

        Do While Val(temp) < Val(nums2(j))

            nums2(j + 1) = nums2(j)

            j = j - 1

            If j = 0 Then Exit Do

        Loop

         ②

    Next i

    For i = 1 To m

        nums1(i) = ""

      For j = 1 To Len(nums2(i))

            nums1(i) = nums1(i) +     ③

      Next j

    Next i

    s = ""

    For i = 1 To m

      s = s + nums1(i)+ " "

    Next i

    List2.AddItem s

End Sub

'根据错误数字返回正确数字

Function match(x As String) As String

    Dim i As Integer

    For i = 1 To n

        If mapping(i) = x Then Exit For

    Next i

    match = CStr(i - 1)

End Function

请回答下列问题：

(1)、根据代码可知，下列具有Caption属性的对象是（单选，填字母：A . List1/ B . Sort/ C . Text1）

(2)、将程序横线处的代码补充完整。
① ② ③

(3)、若mapping数组为{“4”,“2”,“3”,“7”,“6”,“8”,“1”,“0”,“9”,“5”}，混乱数据为{“425”,“63”,“25”,“778”}，则最终列表框List2中显示的是。

查看解析
11、求相邻两个元素的最大差值。随机生成n个[33,127]之间的不重复整数，将n个随机数进行排序后，返回有序后相邻两个元素之间的最大差值。程序界面如图a所示：

图a

程序VB代码如下：

Private Sub Command1_Click()

    Const n = 20

    Dim i, j As Integer

    Dim a(1 To n) As Integer

    Dim max As Integer

    Dim c As Integer

    Randomize

    For i = 1 To n

       a(i) =    ①

       For j = 1 To i - 1

          If a(j) = a(i) Then

                  ②

                Exit For

            End If

      Next j

    Next i

    '将不重复无序数组a添加到列表框List1中，代码略

    For i = 1 To n - 1

        For j = 1 To    ③

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

               temp = a(j): a(j) = a(j + 1): a(j + 1) = temp

            End If

      Next j

    Next i

    max = Abs(a(2) - a(1))

    i = 2

    Do While i <= n – 1



        If c > max Then max = c

        i = i + 1

   Loop

   Label1.Caption = "相邻两个元素最大的差值为：" + Str(max)

End Sub

请回答下列问题：

(1)、程序界面中共有类对象。

(2)、将程序横线处的代码补充完整
① ② ③

(3)、加框处代码有误，请改正。

查看解析
12、小明使用Flash软件制作了主题为“战胜疫情”的多媒体作品，如下图所示。

请回答下列问题：

(1)、     创作多媒体作品需要进行需求分析和规划设计，下列属于需求分析的是
（多选，填字母：A .了解用户的计算机应用水平/B .确定获取原始素材的方式/C .设计作品的主要界面/D .考虑作品创作及运行需要的硬件设施/E .确定作品的发布方式）。

(2)、     通过查阅制作脚本，发现“按钮”图层的动画有误，要求按钮实例在最后一帧才出现，则应如何修改：。

(3)、     “背景”图层最后一帧设置有“stop();”动作脚本，测试影片时，单击当前场景中的“播放”按钮，动画跳转到“main”场景第一帧播放，同时停止所有声音的播放，则“播放”按钮的动作脚本为。

(4)、“音乐”图层的第一帧添加了“music”文件，其声音属性设置如下图所示，测试影片时声音将播放秒。

(5)、若使该作品发布后具有交互功能，下列格式中应选择（多选，填字母：A .GIF动画（*.gif）/B .Windows放映文件（*.exe）/C .Windows AVI（*.avi）/D .Flash影片（*.swf）/E .JPEG序列文件（*.jpg））

查看解析
13、小王收集了“浙江省2014-1018年城乡居民人均消费支出情况”的统计数据，并用Excel软件进行分析，部分界面如图所示。请回答下列问题：

图a

(1)、已知“恩格尔系数”是居民“食品烟酒”支出占“生活消费支出”的百分比，单元格区域B12:F12中的数据是由B12单元格向右填充得到的，则B12单元格中的公式是。

(2)、若要以“2018年”为主要关键字对各项消费支出进行降序排序，则选择的数据区域为。

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

图b

(4)、若将单元格B12:F12中数据的小数位数增加到4位，则图b中各点的数据将（单选，填字母：A .变大/B .变小/C .不变）。

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

   a(i) = Int(Rnd * 90) + 10

Next i

For i = 7 To 2 Step -1

   If a(i) Mod 2 = 1 And a(i) < a(i - 1) Then

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

   Else

        a(i) = a(i) \2

    End If

Next i

执行该程序段后，数组a(1)～a(7)各元素不可能是（    ）

A、11,73,58,62,36,37,79 B、29,42,79,20,14,40,42 C、72,55,57,61,18,39,5 D、19,22,71,82,15,31,32

查看解析
15、某VB程序段如下：
Dim a(1 To 6) As Integer

a(1) = 15: a(2) = 11: a(3) = 58: a(4) = 38: a(5) = 26: a(6) = 9

k = 1

For i = 1 To 2

   For j = 1 To 6 - 2 * i

      If k * a(j) < k * a(j + 2) Then

            t = a(j): a(j) = a(j + 2): a(j + 2) = t

        End If

        k = -k

   Next j

Next i

执行该程序段后，数组a元素的值分别为（    ）

A、58,9,26,11,15,38 B、58,38,26,11,15,9 C、15,38,26,11,58,9 D、58,38,26,15,11,9

查看解析
16、有如下程序段：
Dim a(1 To 6) As String

For i = 6 To 2 Step -1

   k = i

   For j = 1 To i - 1

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

  Next j

   If k <> i Then



   End If

Next i

已知数组元素a(1)～a(6)的值依次为“35”,“12”,“35”,“110”,“47”,“123”，下列说法不正确的是（    ）

A、程序执行后，数组呈现升序排序 B、在程序执行过程中，数据的比较次数为15次 C、程序中加框处代码执行4次 D、数组中数据相同的元素排序前后相对位置不变（如：a(1)的“35”保持在a(3)的“35”前面）

查看解析
17、某VB程序段如下：
s = "297082"

For i = 1 To 3

  n = Len(s)

  k = 1

  For j = 2 To n

      If Mid(s, k, 1) >= Mid(s, j, 1) Then

            k = j

        Else

            Exit For

        End If

  Next j

  s = Mid(s, 1, k - 1) + Mid(s, k + 1, n - k)

Next i

Label1.Caption = s

执行该程序段后，标签Label1中显示的值是（    ）

A、082 B、982 C、972 D、702

查看解析
18、某算法的部分流程图如图所示，已知输入a,b的值为10，25，执行这部分流程后，下列说法不正确的是（）

A、判断条件f=False共执行5次 B、输出m的值为50 C、赋值语句f←True只执行1次 D、变量f的值为True

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

A、Mid(“645712”,4,2)<”110” B、Len(“二零二零”)=8 C、Abs(Int(-25.48))*2=52 D、Fix(25.483*10)=255

查看解析
20、一个时长为2分钟的未经压缩NTSC制式的AVI视频，尺寸为800*600像素。已知压缩后的存储容量为16.5MB，压缩比约为100：1，则该视频每帧图像中每个像素可表示的颜色数量最多有（）

A、8 B、16 C、256 D、65536

查看解析

上一页 909 910 911 912 913 下一页跳转