[填空题] 在计算机中用一个字节(8位),来存储一个字符的Ascii码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为”0”,在数据传输时可用作奇

[填空题] 在计算机中用一个字节(8位),来存储一个字符的Ascii码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为”0”,在数据传输时可用作奇偶校验位，传输时Ascii代码转换成传输码的方法是:若7位Ascii码有偶数个1，最高位为1，有奇数个1，则最高位为0，例如字母”A”的Ascii码十进制表示为65,二进制表示为00100001。”A”的传输码则为”1010 0001”,本程序的功能就是把Ascii码转换成这种传输码Option ExplicitPrivate Sub Commandl_Click()Dim i As Integer，S As StringDim str As String，ch As Stringstr=Text1.textFor i=1 To Len(str)（）Call convert(ch，s)List1.AddItem ch & "==>" & SNext iEnd SubPrivate Sub convert(ch As String，S As String)Dim m As Integer,k As Integer,n As Integer,i As Integers= （）n=Asc(ch)Do While n>0（）S=m & SIf m=1 Thenk=k+1End Ifn=n2LoopFor i=1 To 7-Len(s) ’将字符的二进制代码补足7位S="0" & SNext iIf k Mod 2=0 Then（）ElseS="0" & SEnd IfEnd Sub

ch=Mid(str，i，1)，" "，m=n Mod 2，s="1" & s