题目

对n位二进制数进行海明码编码（n是8的倍数），以8位二进制数为一段，每段插入4位校验位，构成12位二进制数，依次处理，完成各段数据编码。 每段海明码编码方法如下：      插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0。把原8位二进制数d1~d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示： 图a      计算插入的校验位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r2为1，否则为0；以此类推…… 如8位二进制数“10101101”的编码过程如下： 1）插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。 图b 2）计算插入的校验位的值，选出形如“***1”的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。 图c 3）按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。 （1） 若要计算校验位r2的值，需统计位置号为的数据位中1的个数（依次填整数表示的位置号，用逗号分隔）。 （2） 编写VB程序实现上述功能，代码如下，请在划线处填入合适的代码。 Private Sub Command1_Click()     Dim i As Integer, j As Integer, k As Integer, m As Integer     Dim s As String, ch As String, result As String     Dim a(1 To 12) As Integer, n(1 To 4) As Integer     Dim b(1 To 8) As Integer     b(1) = 3: b(2) = 5: b(3) = 6: b(4) = 7     b(5) = 9: b(6) = 10: b(7) = 11: b(8) = 12  '编码数据的插入位置     s = Text1．Text: result = ""     For i = 1 To Len(s) \ 8         For j = 1 To 12             a(j) = 0         Next j         For j = 1 To 8         ch = Mid(s, (i - 1) * 8 + j, 1)                          '把编码数据插入相应位置     Next j     For j = 1 To 4         n(j) = 0     Next j     For j = 1 To 12         m = j         For k = 1 To 4             If m Mod 2 = 1 Then                 m = m \ 2             Next k         Next j         For j = 1 To 4             a(2 ^ (j - 1)) =         Next j         For j = 1 To 12             result = result + Chr(Asc("0") + a(j))         Next j     Next i     Text2.Text = result End Sub 答案： 【1】2,3,6,7,10,11 【1】a(b(j)) = Val(ch)【2】n(k) = n(k) + a(j)【3】n(j) Mod 2

查看本题答案和解析