填空题 在计算机中用一个字节(8位),来存储一个字符的Ascii码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为”0”,在数据传输时可用作奇偶校验位，传输时Ascii代码转换成传输码的方法是:若7位Ascii码有偶数个1，最高位为1，有奇数个1，则最高位为0，例如字母”A”的Ascii码十进制表示为65,二进制表示为00100001。”A”的传输码则为”1010 0001”,本程序的功能就是把Ascii码转换成这种传输码 Option Explicit Private Sub Commandl_Click1 Dim i As Integer，S As String Dim str As String，ch As String str=Text1.text For i=1 To Len(str) ( 27 ) 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= ( 28 ) n=Asc(ch) Do While n>0 ( 29 ) 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 ( 30 ) Else S="0" & S End If End Sub