在计算机中用一个字节(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