学进去

随着信息技术的广泛应用，人们的生活数字化得到推广普及，下列与数字生活相关的是（       ）
①电子政务   ②驾乘新能源汽车   ③空中课堂   ④智能家居   ⑤网上购物

A．①③④

B．①②③

C．②④⑤

D．③④⑤

人类视觉系统一般能分辨2^6灰度等级，而一般的灰度图像采用2^8灰度等级，其中存在一定的视觉冗余。小陈编写了一个“颜色数据压缩”程序，用以优化颜色值数据存储，方法如下：
过程1：当图像量化位数为8位时，颜色的取值范围是[0,255]。现依据视觉冗余的特性，将其颜色值0、1、2、3折算成0；颜色值4、5、6、7折算成1……，以此类推，折算后颜色的取值范围变为[0,63]，图像量化位数只需占用6位；
过程2：依据下图方法，将4字节折算数据压缩成3字节压缩数据。

折算后数据	45						34						37						18
二进制位	1	0	1	1	0	1	1	0	0	0	1	0	1	0	0	1	0	1	0	1	0	0	1	0
压缩后数据	182								？								82

依据上述算法设计了VB程序，界面如图所示。请回答下列问题：

(1)根据题意，结合图中给出的数据，遮挡处的数据是_________ 。

(2)请在划线处填入合适的代码。

Const n = 12

Dim a(1 To n) As Integer

Private Sub Form_Load()

     ’获取原始数据依次存入数组a中，并按统一格式显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click()

     Dim b(1 To n) As Integer

Dim c(1 To n/4*3) As Integer

Dim i As Integer, j As Integer, s As String

          s = ""
          For i = 1 To n
                 b(i) = _________①
                 s = s + ads(b(i))
                 If i < n Then s = s + ","
          Next i
          Text2.Text = s
          j = 1
          For i = 1 To n Step 4
                 c(j) = b(i)* 4 + b(i+1)\16

____________②     

                 c(j+2) = (b(i+2) Mod 4)* 64 + b(i+3)
                 j = j + 3
          Next i
          s = ads(c(1))

For i = 2 To n/4*3

                 s = __________③
          Next i

Text3.Text = s

End Sub

Function ads(x As Integer) As String

’将数据x转换成4位长的字符串,代码略

End Function

小陈基于对分查找思想编写了一个三分查找VB程序，功能如下：在文本框Text1中显示n个升序排列的数。在文本框Text2中输入查找目标值key。单击“查找”按钮后，若能找到则输出key在数列中的下标位置；若找不到则输出key邻近数的下标位置。例如，当文本框Text2中输入“35”时，输出下标位置“4”；当文本框Text2中输入“33”时，输出下标位置“3，4”。程序运行界面如图所示。

实现上述功能的VB程序如下：

（1）程序窗体中“查找”按钮的对象名是_________。

（2）加框处代码有误，请改正；

（3）请在划线处填入合适代码。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_load()

’获取一组正整数，按升序排列后依次存入
’数组a并显示在文本框Text1中,代码略

End Sub

Private Sub Cmd1_Click()

　        Dim i As Integer,j As Integer
　        Dim mid1 As Integer, mid2 As Integer

　   key = Val(Text2.Text)

i = 1 : j = n : flag = False

　        Do While i <= j And Not flag
　　          mid1 = Int(i + (j - i)/ 3)
　　          ____________①           
                 If key = a(mid1) Or key = a(mid2) Then
                       flag = True
                 ElseIf key < a(mid1) Then
                       ________②       

ElseIf key > a(mid2) Then

                       ________③       
                 Else
                       i = mid1 + 1
                       j = mid2 - 1

End If

Loop

If Then　　’改错________

　　　　   List1.AddItem Str(mid1)
            ElseIf flag Then
　　　　　List1.AddItem Str(mid2)   
            Else
                 List1.AddItem Str(j) + Str(i)

End If

　   End Sub

某学校的学生机房拓扑图如图所示。

(1)防火墙能将局域网和因特网有效分隔开来，它就像一道屏障，对进出局域网的数据进行分析，或对用户身份进行认证，从而防止有害信息的侵入和非法用户的进入。若添加一台防火墙用于提高网络的安全性，最适合放置在下图中的 ________处。（填下图中的标识字母）
   (2)机房部分设备的IP地址和子网掩码信息如下表所示。

其中PC20的IP地址可能是___________，该IP地址属于_______类
(3) 访问服务器上的学习网站过程中，将域名www.baidu.com转换成IP地址的网络服务是__________。
(4) 同学们在浏览器中输入www.baidu.com访问服务器上的学习网站，服务器上应提供_________网络服务。

在一次比赛中，需要随机给10名选手各编一个0-9范围内的唯一序号，对应的Python程序段如下：
import random
a=[0]*10
b=[False]*10
i=0
while   i<=9：
             r=        
             if（not b[r]）：
                         a[i]=r
                         b[r]=True
             i=i+1
print（a）
划线处的代码为：（     ）

A．random.randint(0，10)	B．random.shuffle(0，9)
C．int(random.random())*9	D．random.choice（range(10))

某加密算法的程序代码和运行结果如下，请回答下列问题。
def encrypt(msg,key)
       result=””
       size=len(msg)
       for i in range(size):
              result+=_____________
       return result
msg=input(“请输入明文：”)
key=int(input(“请输入密钥：”))
re=_______________
print(“加密后的密文：”,re)
运行情况如下：
请输入明文：abcdef
请输入密钥：2
加密后的密文：cdefab
（1）这种加密算法机制属于__________（单选，填字母：A.替代密码/B.换位密码/C.简单异或密码）。
（2）请在划线处填入合适的代码。
（3）如果输入msg的字符为“FDGFHH”，key为4，则输出的结果为 _________________ 。

在Python中，ord()函数的作用是将字符转换为对应的ASCII码值，chr()函数的作用是将ASCII码值转换为对应的字符。阅读下列程序，写出运行结果。

def encrypt（st1）： st2="" for s in stl: st2 += chr（ord（s）+5） return st2 print（encrypt（"ktocji"））

运行结果是____________

以下网络设备中，（   ）能够判断数据传输的最佳路径。

A．调制解调器

B．交换机

C．路由器

D．都不可以

灰度图像像素的灰度值为0～255的整数，为区分图像的前景与背景，寻找一个最佳灰度值T，使得前景、背景这两类像素之间的差异最大。

求T值的方法如下：取某个灰度值k，将图像所有N个像素分成两类，灰度值小于k的作为背景像素，灰度值大于等于k的作为前景像素，统计两类像素的个数分别为N₁、N₂，计算灰度值的均值分别为μ₁、μ₂，利用公式计算出两类像素的差异值。当该值最大时，k即为要找的最佳灰度值T。若某区间段内有连续多个T满足要求，则T取中间值。

例如：图a所示图像像素的灰度值仅为0～5，统计0～5灰度值像素的个数依次为8、7、2、6、9、4，如图b所示。当k=2时，N₁=15，N₂=21，μ₁=(0*8+1*7)/(8+7)，μ₂=(2*2+3*6+4*9+5*4)/(2+6+9+4)，计算出差异值为2.5635。依此类推，计算差异值如图c所示。可知，当k=3时差异值最大，3是最佳灰度值T。

编写VB程序，实现如上功能。读取图像所有像素的灰度值后，单击按钮Command1，在标签Label1上显示T值。

(1)在上例中，取k=3，则背景像素的个数N₁为___________。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
ConstN= 32 * 24
Dim a(1 To N) As Integer     'a数组存储图像所有像素的灰度值
Private Sub Form_ Load)
读取图像中的所有像素的灰度值存入a数组，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim sum As Long, suml As Long, N1 As Long, N2 As Long
Dim μl As Double, μ2 As Double, diff As Double, max_var As Double
Dim tl As Integer, t2 As Integer, T As Integer
Dim h(255)As Long
Dim c(255) As Long
max_ var=0:tl= 0:t2=0:N1 =0:N2= 0: sum= 0: suml = 0
For i=0 To 255

h(i)= 0:c(i)= 0

Next i
For i= 1 To N

h(a(i))= h(a(i))+ 1

Next i
c(0)= h(0)
For i= 1 To 255

_______       统计灰度值小于等于i的像素个数

sum = sum+ i* h(i)

Next i
For k= 1 To 255

N1=c(k-1)

N2=N-N1

If N1<>0 And N2<>0   Then

_____

μl=suml/NI.

μ2 = (sum- suml)/N2

dif=N1/N*N2/N*(μl-μ2)^2

diff = Round(diff, 4)     'Round函数的作用是对diff保留四位小数

If diff>= max_ var Then

tl =k

If diff> max_ var Then   _________

max_ var= diff

End If

End If

Next k
T=(t1 + t2)\2
Labell .Caption = "将该图像分割为前景与背景两部分的最佳灰度值为: "& T
End Sub

在平面坐标系上分布着n个点，从这n个点的集合中取出4个点，使之构成一个正方形，要求正方形的边长与x轴、y轴平行。程序界面如图所示，点击“生成”按钮，自动产生n个点的坐标，这n个点按x坐标值升序排列，x坐标相同时按y坐标值升序排列。

点击“查找”按钮，查找所有符合要求的正方形。算法思路：枚举正方形对角线上的线段端点A、C(即保证线段AC与x轴呈斜45度的夹角)，通过A、C点，计算出正方形另-条对角线上的线段端点B、D，再查找B、D是否存在，若存在，则说明该正方形可以生成。
(1)能够在List1中显示“OK”的语句是__________(单选，填字母：A.List1.Addtem"OK"/ B.List1.Caption="OK"/C.List1.AddItem="OK")
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
(3)程序中加框处代码有错，请改正。
Dim n As Integer, x(1000) As Integer, y(1000) As Integer
Private Sub Command2_Click()
’生成n个点的坐标，并按要求排序，代码略
’第i个点的坐标保存在x(i)和y(i)并显示在List1中
End Sub
Private Sub Command2_Click()
   Dim i As Integer, j As Integer
   For i = 1 To n
For j = i + 1 To n
   If Then_____
       If search(x(i), y(j)) = True And search (( )① ) = True Then
          ’将4个坐标点显示在List2中，代码略
          cnt = cnt + 1
       End If
   End If
Next j
Next i
List2.AddItem “总共有” + Str(cnt) + “个符合要求的正方形”
End Sub
Function search(sx As Integer, sy As Integer) As Boolean
   Dim L As Integer, R As Integer, m As Integer
   search = False: L = 1: R = n
   Do While L <= R
m = (L + R)\2
If sx < x(m) Or _____②       Then
   R = m – 1
ElseIf sx > x(m) Or sx = x(m) And sy > y(m) Then
   L = m + 1
Else
   Search = True: Exit Do
End If
   Loop
End Function