采样定理在数字式遥测系统、时分制遥测系统、信息处理、数字通信和采样控制理论等领域得到广泛应用。其定理是在1948年由信息论的创始人(     ) 明确提出的。

以下不属于物联网应用的有（      ）

查看CPU温度需要选择下图中的哪个选项。（   ）

矩阵卷积运算在图像处理中有着广泛的应用，它的描述如下：

1)对于两个形状相同的矩阵，它们的内积是每个对应位置的数字相乘之后的和；

2)对于小矩阵和大矩阵卷积运算时，以小矩阵为参考，沿着横向和纵向两个方向逐个滑动（取同样大小的矩阵），依次横向和纵向两个方向逐个滑动（取同样大小的矩阵），依次求出内积，得到结果矩阵，如图a所示。

图a

小A同学用VB程序模拟上述的矩阵卷积运算，单击“初始化小矩阵”按钮command1，随机生成小矩阵数据，单击“初始化大矩阵”按钮command2，随机生成大矩阵数据，单击“运算”按钮command3，进行矩阵卷积运算并生成结果矩阵，运行界面如图b所示：

图b

计算机经历了、、、四个时代。

下列不属于采集信息工具的是（    ）

给定区间[a1，a2]和[b1，b2]，若a2≥b1，则认为这两个区间是有重叠的，可进行合并｡如区间[1，3]和[2，6]可合并为[1，6]；区间[1，6]，[2，5]可合并为[1，6]；区间[1，4]和[4，5]可合并为[1，5]｡

编写一个“合并重叠区间”的VB程序，功能如下：在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值（数据都用逗号分隔并以逗号结尾），单击“确定”按钮后，在Text2中显示合并后的各个区间｡例如，在文本框Text1中输入“1，2，3，5，4，6，9，12，10，11，”，表示区间[1，2]，[3，5]，[4，6]，[9，12]，[10，11]，合并后的区间分别为[1，2]，[3，6]，[9，12]｡程序运行界面如图所示，实现上述功能的VB代码如下：

Const n=100

Private Sub Cmd1_Click()

    Dim i As Integer, k As Integer, L As Integer, R As Integer

    Dim s As String, c As String, t As String, result As String

    Dim a(1 To n) As Integer

    s=   ①   : t=" ": k=0

    For i=1 To Len(s)

        c=Mid(s, i, 1)

        If c<>"," Then

                 ②      

        Else

            k=k+1

            a(k)=Val(t)

            t=""

        End If

    Next i

    L=a(1): R=a(2)

    i=3

    Do While i<=k

        If a(i)>R Then

            result = result+"("+Str(L)+","+Str(R)+"),"

            L=a(i): R=a(i+1)

       

            R=a(i+1)

        End If

            ③   

    Loop

    result=result+"("+Str(L)+","+Str(R)+"),"

    Text2. Text=result

End Sub

汉字输入法有多种，如五笔字型、智能ABC、微软拼音、全拼等。下列①kwwl；②zhhrmghg；③zhonghuarenm；④zhonghuarenminggongheguo四种都能在不同的输入法中输入多字词“中华人民共和国”。那么在“智能ABC”输入法中用最少的击键也能输入“中华人民共和国”的是(   )

使用Word软件编辑某文档，部分界面如图所示。

下列说法正确的是（  ）

只要计算机不上网就一定不会感染计算机病毒。

有如下VB程序段：

bianliang_a = 3:bianliang_b = 4

Label1.caption = “bianliang_a*bianliang_b”

该程序段运行之后，标签Label1将显示：(   )

张扬的儿子今年小学毕业，想了解某知名初中的招生信息，以下最恰当的方式是(     )

有如下VB程序段：

s= "Jinhua2022": t="": i= 1

Do While i< Len(s)

  c=Mid(s,i,1)：d=Mid(s,i+1,1)

  If c <= d Then t=t+ c

  Else t=t+d

  i=i+2

Loop

Label1.Caption = t

执行该程序段后，标签Label1中显示的内容是(    )

采用冒泡排序算法对数据序列“18,13,15,2,1,20”进行排序，第一轮排序后的结果为“1,18,13,15,2,20”，则完成整个序列的排序交换的次数是（    ）

要建立一个“班级藏书”的Access数据表，存放下列表格数据：

序号	书名	作者	收藏日期	价格	是否借出
自动编号	玫瑰门	铁凝	2012/11/15	39	□
自动编号	蛙	莫言	2012/11/24	32	√
自动编号	瓦尔登湖	梭罗	2012/11/11	28	□

以下表结构设计合理的是（    ）

智能手机都有导航软件。在对路途不熟悉的情况下，我们可以通过语音与导航软件对话，完成线路规划等操作，路径规划功能使用了人工智能技术。

_______可对本地计算机上存放的文件进行分类整理。

【加试题】某排序算法思想如下：每一趟将一个待排序的记录，按其关键字的大小插入到已经排好序的一组记录的适当位置上，直到所有待排序记录全部插入为止。例如(9,3,1,4)升序排序；第一步 3 插入到有序记录(9)，得到(3,9)；第二步 1 插入到有序记录(3,9)，得到(1,3,9)；第三步 4 插入到有序记录(1,3,9)，得到最终有序记录为“1,3,4,9”。

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer        '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

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

For i = 2 To n

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

Do  While  t < a(j)

 a(j + 1) = a(j) j = j – 1

If     Then Exit Do  ①

Loop

       ②

Next i

For i = 1 To n

 List2.AddItem Str(a(i))

Next i

End Sub

① ②

目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关键的信息。现编写VB程序实现如下功能：在文本框Text1中输入短信内容，点击“提取”按钮，将短信中的数字以“，”间隔输出到文本框Text2中。程序运行界面如图1所示。

Windows操作系统是一种字符界面。