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

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#}

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

    Dim i As Integer, j As Integer

    Dim temp As Integer, flag As Boolean

    '读取一组正整数，存储在数组a中，代码略

    i = 1: j = n

    temp = a(j): flag = True

    Do While i < j

        If flag Then

            If a(i) Mod 2 = 0 Then

                a(j) = a(i)

                j=j-1

                flag=Not flag

            Else

                    '⑴

            End If

        Else

            If a(j) Mod 2 = 1 Then

                a(i)=a(j)

                flag=Not flag

            Else

                j=j-1

            End If

        End If

    Loop

         '⑵

    '依次输出排序后的数据，代码略。

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

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

实现上述功能的VB程序如下，但划线部分代码有错，请改正。

Private Sub Command1_Click()

  Dim x(1 To 100) As Single， y(1 To 100) As Single

  Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single

  Dim i As Integer， j As Integer， k As Integer

Randomize 

List1.Clear

  k = Val(Text1.Text)

  For i = 1 To k

      x(i) = Int(Rnd * 90) / 10 + 1

      y(i) = Int(Rnd * 90) / 10 + 1

      List1.AddItem "X：" + Str(x(i)) + "   " + "Y：" + Str(y(i))

  Next i

  For i = 1 To k - 1

      For j = 1 To k - i

          If x(j) > x(j + 1) Then

              x(i)=x(i) + x(j)

              x(j) = x(i) - x(j)

              x(j) = x(i) + x(j)   ‘①

              tmp = y(j)

              y(j) = y(j + 1)

              y(j + 1) = tmp

          End If

      Next j

  Next i

  sum = 0： length = 0

  For i = 1 To k - 1

      x1 = (x(i) - x(1)) ^ 2     ‘②

 '变量y1计算方法同x1，代码略

      length = Sqr(x1 + y1)

      sum = sum + length

  Next i

  Text2.Text = Str(Int(sum * 10) / 10)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

实现上述功能的VB程序如下，但加框代码有错，请改正。

   Private Sub Command1_Click()

Dim d(1 To 1001) As Integer

Dim str1 As String, str2 As String

Dim i As Integer, n As Integer, k As Integer, s As Integer

str1 = Text1.Text

n = Len(str1)

For i = 1 To n

    D(i) = Val(Mid(str1, i, 1))

Next i

s = 0

k = Val(Text2.Text)

For i = n To 1 Step -1

          ①

      s = d(i) \ 10

   D(i) = d(i) Mod 10

Next i

If s <> 0 Then str2 = CStr(s) Else str2 = ""  'CStr()不会在返回的字串前加1个空格。

For i = 1 To n

          ②

Next i

Text3.Text = str2

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}