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