例如，压缩前的原始数据为：

1111 1100 0101 1010 1011 0000  可表示为十六进制：FC 5A B0

  删除每字节的后2 bit：

1111 1100 0101 1010 1011 0000

  首尾相连构建新的数据：

11 1111 0101 1010 1100 表示为十六进制：... F5 AC

 自此，原数据进行了有损压缩。程序运行界面如下所示：

实现上述算法的VB程序如下，但程序中加框处有误，请改正。

Dim a(1 To 100) As Integer

Const code = "0123456789ABCDEF"

Const n = 100

Private Sub FormLoad()‘ 以随机数模拟读取原始数据

  s = ""

  Randomize

  For i = 1 To n

  a(i) = Int(Rnd * 16)

    Text1.Text = Text1.Text +  ①

  Next i

End Sub

Private Sub Command1Click()

For i = 1 To n

   t = t + HtoB(a(i))

Next i

For j = 1 To n * 4 Step 8'每8位一组，取前6个字符

   s = s + Mid(t, j, 6)

Next j

For i = 1 To 4 * (n - 1) Step 4'每4位一组转为十六进制显示

    Text2.Text = Text2.Text + BtoH(Mid(s, i, 4))

Next i

End Sub

Function HtoB(x As Integer) As String'十六进制转为二进制函数

 t = ""

 m = 0

Do While   ②

   r = x Mod 2

   m = m + 1

   t = Trim(r) + t'trim()用于删除前导空格

   x = x \ 2

 Loop

 HtoB = Mid("0000", 1, 4 - m) + t

End Function

Function BtoH(y As String) As String'二进制转为十六进制函数

 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
①  {#blank#}1{#/blank#}② {#blank#}2{#/blank#}

    第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；

    第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边;

    第三步：求出x被除16的商x1;

    第四步：对x1重复（1）、（2）、（3）过程，直至商为0；

    第五步：最后的S即为所求的十六进制数；

下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数制，单击“十进制转十六进制按钮”（Command1）后，在文本框Text2中输出转换的结果。 相应的Visual Basic程序如下：

Private Sub Command1_Click()

  Dim s As String, r As Integer

  dec = val(Text1.Text)                  ’dec得到一个十进制整数，例如：255；

  base = 16                               ’base表示16

     s = ""                                ’s变量存放要转换到的十六进制整数；

     Do While dec <> 0

          r =        ①   

          If r >= 10 Then                     ’如果base>10进制，r可能>10；

             s = Chr(65 + (r - 10)) + s   ’Chr (65)="A", 16进制数A对应10；

Private Sub command1_click()

  Dim X, N As Integer

  im count As Integer 'count 用来保存能被 6 整除余 2 的数据的个数

  Randomize Timer '随机数初始化，以时钟为随机数种子

  For N = 1 To 50

      X = {#blank#}1{#/blank#}+ int(Rnd * 40) '随机产生 50 个 60~100 的随机数

      If X Mod 6 = 2 Then

        List1.AddItem Str(X)

        {#blank#}2{#/blank#}

      End If

    Next N

  Label1.Caption=str（count）

End Sub

Dim i As Integer， a As Integer， b As Integer， c As Integer

Dim s As String

a = 0: b = 1: c = 0: i = 2

s = Str(a) + Str(b)

Do While c <= 10000 And i < 100

    a = b: b = c

    c = a + b

    s = s + Str(c)

    i = i + 1

Loop

Text1.Text = s

运行上面的程序，发现输出的数列不正确，应进行修改。以下修改正确的是（  ）