相关试卷

1、有n个整数存放在数组a中，整数k1与k2且k1<k2。某程序段如下：
i = 1: L = 0: R = n + 1

Do While i < R

If a(i) < k1 Then

L = L + 1

If L <> i Then tt = a(i): a(i) = a(L): a(L) = tt

i = i + 1

ElseIf a(i) > k2 Then

R = R - 1

tt = a(i): a(i) = a(R): a(R) = tt

Else

i = i + 1

End If

Loop

则执行上述代码后，下列说法正确的是（）

A、数组a变成升序排列 B、a(L)<=k1 C、a(R)>=k2 D、a数组中大于等于k1小于等于k2的元素个数为R-L-1

查看解析
2、如下VB程序段:
k=0:n=Len(s)

For i = 1 To n\2

k = k+Abs(Asc(Mid(s,i,1)) - Asc(Mid(s,n-i+1,1)))

Next i

If k=0 Then flag=True

运行后该程序段后，变量flag的值为True，s的值可能的是（）

A、"appyappy" B、"12321" C、"Appa" D、"2021-2021"

查看解析
3、某算法的流程图如图所示，若输入s的值为字符串“Abc123456def”,执行这部分流程后，输出c的值是（）

A、Abcdef B、123456 C、123456def D、Abc123456def

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

A、Mid(“True Or False”,1,4) B、Int(Rnd*100)>0 C、Len(“2021”) > Sqr(50) D、123 Mod 10 \ 2 <=10 \ 3

查看解析
5、一段分辨率为1024×768、16位色、PAL制式（25帧/秒）的未经压缩AVI格式无声视频，其存储容量为1125MB，则该视频时长约为（）

A、120秒 B、60秒 C、30 秒 D、12 秒

查看解析
6、使用GoldWave软件编辑某音频文件，部分界面如图所示。下列说法正确的是（）

A、直接保存后声音文件的容量约为1.9MB B、执行“删除”命令后直接保存，文件容量变小 C、另存时将采样频率提高为48000Hz,声音品质明显提高 D、无法获取声音的量化位数，所以不能正确计算文件容量

查看解析
7、用UltraEdit软件查看字符内码，部分界面如图所示。下列说法正确的是（）

A、共有5个ASCII字符 B、共有3个GB2312字符 C、是“3-2=1正确！”的内码 D、是“1+2=3正确？”的内码

查看解析

8、为了防控“新冠”疫情，技术组开发了校园疫情系统，使用Access软件创建健康信息管理的数据库，其中“测温”表需要记录如下信息

序号	姓名	班级	测量时间	体温(℃)	是否去过高风险地区
1	张三	高一(3)	7:23	36.8	否
2	李四	高二(5)	7:31	36.9	否
…	…	…	…	…	…

下列描述正确的是（）

A、“校园疫情系统”是数据库管理系统 B、“测温”表只能有6个字段 C、记录“测温时间”信息字段类型可以“日期/时间” D、记录“是否去过高风险地区”信息的字段类型不可以设为“文本”

查看解析

9、下列关于网站与网页描述正确的是（）

A、保存网页就是收藏网页地址 B、网页内容是用HTTP语言描述的 C、网站由若干静态或动态网页组成，网页之间可能通过超链接实现跳转 D、以“网页，仅 HTML”方式保存网页，可以保存网页中的超链接、表格和图片

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

A、信息要进行传递和共享，必须先进行数字化 B、信息的数字化过程就是采样、量化、编码的过程 C、信息本身是看不见摸不着的，所以不能用某种方式表现 D、信息的表达技术有电视、广播、网络、书籍、声音等

查看解析
11、对n位二进制数进行海明码编码（n是8的倍数），以8位二进制数为一段，每段插入4位校验位，构成12位二进制数，依次处理，完成各段数据编码。
每段海明码编码方法如下：

     插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0。把原8位二进制数d1~d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示：

图a

     计算插入的校验位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r2为1，否则为0；以此类推……

如8位二进制数“10101101”的编码过程如下：

1）插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。

图b

2）计算插入的校验位的值，选出形如“***1”的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。

图c

3）按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。

(1)、若要计算校验位r2的值，需统计位置号为的数据位中1的个数（依次填整数表示的位置号，用逗号分隔）。

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

    Dim i As Integer, j As Integer, k As Integer, m As Integer

    Dim s As String, ch As String, result As String

    Dim a(1 To 12) As Integer, n(1 To 4) As Integer

    Dim b(1 To 8) As Integer

    b(1) = 3: b(2) = 5: b(3) = 6: b(4) = 7

    b(5) = 9: b(6) = 10: b(7) = 11: b(8) = 12 '编码数据的插入位置

    s = Text1．Text: result = ""

    For i = 1 To Len(s) \ 8

       For j = 1 To 12

            a(j) = 0

      Next j

       For j = 1 To 8

        ch = Mid(s, (i - 1) * 8 + j, 1)

                         '把编码数据插入相应位置

  Next j

  For j = 1 To 4

      n(j) = 0

   Next j

   For j = 1 To 12

      m = j

        For k = 1 To 4

            If m Mod 2 = 1 Then

                m = m \ 2

            Next k

      Next j

      For j = 1 To 4

            a(2 ^ (j - 1)) =

      Next j

      For j = 1 To 12

            result = result + Chr(Asc("0") + a(j))

       Next j

    Next i

    Text2.Text = result

End Sub

查看解析
12、某教室在上午8点到12点的时间段可以安排活动。为了安排尽可能多场次的活动，按以下方法安排：先安排结束时间早的活动；若有多个活动的结束时间相同，则优先安排占用时间少的活动。要求编写一个VB程序，实现上述功能。在文本框Text1中输入一批数据（数据都用逗号分隔并以逗号结尾），奇数位置数据表示某活动的起始时间，偶数位置数据表示该活动的结束时间，单击“确定”按钮Command1后，在列表框List1中显示各活动的起始和结束时间，在列表框List2中显示选择安排的活动。运行界面如图所示。

(1)、要清空Text1中的内容，可以把Text1对象的属性设置为空值。（单选，填字母：A . Caption / B . Text / C . Text．Clear）。

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

    Const n = 100

    Dim ss As String, t As String, i As Integer

    Dim k As Integer, p As Integer, temp As Integer

    Dim s(1 To n) As Integer, f(1 To n) As Integer

    Dim num(1 To n) As Integer, flag(1 To n) As Boolean

    ss = Text1.Text

    starttime = 480: endtime = 720     '教室可以安排活动时间为8:00到12:00

    k = 0: p = 0

    For i = 1 To Len(ss)

      ch = Mid(ss, i, 1)

       If ch <> "," Then

            t = t + ch

      Else



            p = (k - 1) \ 2 + 1

            If k Mod 2 = 1 Then s(p) = convert(t) Else f(p) = convert(t)

            t = ""

      End If

    Next i

    For i = 1 To p

      num(i) = i

    Next i

    For i = 1 To p

      List1.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))

    Next i

    For i = 1 To p - 1

        For j = p To i + 1 Step -1

            If Then

                temp = num(j): num(j) = num(j - 1): num(j - 1) = temp

                temp = s(j): s(j) = s(j - 1): s(j - 1) = temp

                temp = f(j): f(j) = f(j - 1): f(j - 1) = temp

            End If

      Next j

    Next i

    For i = 1 To p

      If s(i) >= starttime And f(i) <= endtime Then

          flag(i) = True



      End If

    Next i

    List2.AddItem "活动号起始时间结束时间"

    For i = 1 To p

       IfThen

            List2.AddItem Str(num(i)) + " " + ff(s(i)) + " " + ff(f(i))

      End If

    Next i

End Sub

Function convert(s As String) As Integer

    '把时间格式的s转换为整数，如"08:20"转化为500。代码略

End Function

Function ff(t As Integer) As String

    '把整数t转换为时间格式，如500转化为"08:20"。代码略

End Function

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

查看解析
13、使用Flash软件创作“党建”作品，编辑“片头”场景，部分界面如图所示。请回答下列问题：

(1)、在制作作品前进行多媒体作品设计，下列说法正确的有 (多选，填字母)。

A、分析该作品的社会效益属于创作需求分析 B、分析创作该作品所需的硬件和软件属于应用需求分析 C、在结构设计阶段需确定作品的组成部分、工作流程和主要界面 D、在脚本编写阶段需确定各模块所需的媒体元素及获取、处理方法

(2)、如上图所示，“军人”图层的第1帧到第20帧实现军人从完全透明到完全显示变化的效果，则该图层第1帧中实例的Alpha值为%。修改“军人”实例的Alpha值，则库中对应元件（填：会/不会）发生改变。

(3)、在上图所示状态下，若要使“党徽”图层的补间动画推迟2秒出现，时长变为2秒且结束时间保持不变，则可行的操作是。

(4)、测试影片时，单击当前场景中的“继续”按钮，跳转到“main”场景第1帧继续播放。以下脚本命令正确的是（多选，填字母）。

A、on (release) {play();} B、on (release) {play("main",1);} C、on (release) {gotoAndplay(1);} D、on (release) {gotoAndplay("main",1);}

查看解析
14、小王收集了2020年12月和2021年1月我国重要生产资料市场价格数据，并使用Excel软件进行数据处理，如图a所示。

图a

请回答下列问题：

(1)、区域G3:G35的数据是通过公式计算得到的，在G3单元格中输入公式后，使用自动填充功能完成区域G4:G35的计算，则G3单元格中的公式是。
（提示：涨跌幅（%）=本期价格（元）-上期价格（元）/ 上期价格（元）*100）

(2)、根据图a中的数据制作图表如图b所示，则图表的数据源是。

图b

(3)、结合图a、图b分析，下列说法正确的有（多选，填字母）。

A、若删除“F列”，则图b所示图表不会随之改变 B、若不小心删除D3单元格的值，则G3单元格显示的内容变为“#DIV/0!” C、以“类别”为“黑色金属”，“涨跌幅（%）”为“最大一项”进行筛选，则筛选出黑色金属中涨幅最大的产品 D、选中区域A2:F35，按“比上期价格涨跌(元)”降序排序，区域G3:G35显示的值不会随之改变

查看解析
15、某对分查找算法的VB程序段如下：
key = Val(Text1.Text)

s = ""

i = 1: j = 10

Do While i <= j

   m = (i + j) \ 2

   s = s + Str(m)

   If a(m) = key Then Exit Do

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

Loop

Label1.Caption = s

数组元素a(1)到a(10)依次存放10个升序的整数。在文本框Text1中输入一个任意整数执行该程序段，标签Label上中显示的内容可能的是（    ）

A、5 2 3 1 B、5 3 2 4 C、5 8 6 7 D、5 8 9 7

查看解析
16、有如下VB程序段：
c = 0

For i = 1 To n - 1

  k = i

  For j = i + 1 To n

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

   Next j

   If i <> k Then

        c = c + 1

        t = a(i): a(i) = a(k): a(k) = t

  End If

Next i

数组元素a(1)到a(6)的初始值依次是5,3,1,0,9,8,，执行该程序段后，变量c的值是（    ）

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

查看解析
17、以下VB程序实现把文本框Text1和Text2中输入的升序字符串s1和s2合并成一个升序字符串s，并在文本框Text3中显示。如s1为“aceghi”，s2为“bdf”，合并结果为“abcdefghi”。
s1 = Text1．Text : s2 = Text2．Text

i = 1: j = 1: k = 1

Do While    ⑴

   If j > Len(s2) Or i <= Len(s1) And Mid(s1, i, 1) < Mid(s2, j, 1) Then

          ⑵

    Else

          ⑶

    End If

Loop

Text3.Text = s

上述程序段3个方框处的代码分别为（    ）

A、 B、 C、 D、

查看解析
18、有如下VB程序段：
s = "python": b = 0

For i = 1 To Len(s) - 1

   a = Abs(Asc(Mid(s, i, 1)) - Asc(Mid(s, i + 1, 1)))

  If a > b Then b = a

Next i

Label1．Caption = Str(b)

执行该程序段后，标签Label1上显示的内容是（    ）

A、1 B、7 C、9 D、12

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

执行这部分流程，若依次输入2,-3,5,1,2,-1,-8,3,4,0，则输出变量m的值为（）

A、5 B、6 C、7 D、8

查看解析
20、要实现将整数变量a、b和c中的最大值存变量m，下列VB程序段中不正确的是（）

A、 B、 C、 D、

查看解析

上一页 591 592 593 594 595 下一页跳转