过程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

同类型试题

y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2


y = sin x, x∈R, y∈[–1,1],周期为2π,函数图像以 x = (π/2) + kπ 为对称轴
y = arcsin x, x∈[–1,1], y∈[–π/2,π/2]
sin x = 0 ←→ arcsin x = 0
sin x = 1/2 ←→ arcsin x = π/6
sin x = √2/2 ←→ arcsin x = π/4
sin x = 1 ←→ arcsin x = π/2

