數(shù)據(jù)的有損壓縮：對(duì)多媒體數(shù)據(jù)進(jìn)行有損壓縮時(shí)，通常是以少量數(shù)據(jù)丟失作為代價(jià)的，比如對(duì)某8bit量化的數(shù)據(jù)壓縮為6bit量化，其算法可簡單表示為：逐一刪除各個(gè)字節(jié)的后2bit,將刪除除后的6bit數(shù)據(jù)首尾相連，然后重新按照8bit一組構(gòu)建字節(jié)，以十六進(jìn)制顯示．
例如，壓縮前的原始數(shù)據(jù)為：
1111 1100 0101 1010 1011 0000  可表示為十六進(jìn)制：FC 5A B0
刪除每字節(jié)的后2bit：
1111 1100 0101 1010 1011 0000
首尾相連構(gòu)建新的數(shù)據(jù)：
11 1111 0101 1010 1100 表示為十六進(jìn)制：…F5AC
自此，原數(shù)據(jù)進(jìn)行了有損壓縮．程序運(yùn)行界面如圖所示：

實(shí)現(xiàn)上述算法的VB程序如下，但程序中加框處有誤，請(qǐng)改正．
Dim a（1To 100）As Integer
Const code=“0123456789ABCDEF“
Const n=100
Private Sub Form_Load （　?。噪S機(jī)數(shù)模擬讀取原始數(shù)據(jù)
s=““
Randomize
For i=1To n
a（i）=Int（Rnd*16）
Text1．Text=Text1．Text+   ①
Next i
End Sub
Private Sub Command1_Click （　?。?br />For i=1To n
t=t+HtoB（a（i））
Next i
For j=1To n*4Step 8'每8位一組，取前6個(gè)字符
s=s+Mid（t,j,6）
Next j
For i=1To 4*（n-1）Step 4'每4位一組轉(zhuǎn)為十六進(jìn)制顯示
Text2．Text=Text2．Text+BtoH（Mid（s,i,4））
Next i
End Sub
Function HtoB（x As Integer） As String'十六進(jìn)制轉(zhuǎn)為二進(jìn)制函數(shù)
t=““
m=0
Do While      ②
r=x Mod 2
m=m+1
t=Trim（r）+t'trim （　?。┯糜趧h除前導(dǎo)空格
x=x\2
Loop
HtoB=Mid（“0000“，1，4-m）+t
End Function
Function BtoH（y As String） As String'二進(jìn)制轉(zhuǎn)為十六進(jìn)制函數(shù)
t1=Val（Mid（y,4，1））
t2=Val（Mid（y,3，1））
t3=Val（Mid（y,2，1））
t4=Val（Mid（y,1，1））
s=t1+t2*2+t3*4+t4*8
BtoH=Mid（code,s+1，1）
End Function.