在計算機(jī)中用一個字節(jié)（8位）來存儲一個字符的ASCII碼，其中低7位二進(jìn)制數(shù)對應(yīng)字符的編碼，每個字節(jié)的最高位一般保持為“0”，在數(shù)據(jù)傳輸時該位可用作奇偶校驗位。傳輸時ASCII代碼轉(zhuǎn)換成傳輸碼的方法是：若7位ASCII碼中有偶數(shù)個1，則最高位置為1；有奇數(shù)個1，則最高位置為0．例如字母“A”的ASCII碼十進(jìn)制表示為65，二進(jìn)制表示為1000001．“A”的傳輸碼則為“11000001”，本程序的功能就是把ASCII碼轉(zhuǎn)換成這種傳輸碼，運行效果如圖所示。
（1）根據(jù)上述ASCII代碼轉(zhuǎn)換成傳輸碼的方法，字符“D”的傳輸碼為

11000100

11000100

。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼。
Private Sub Command1_Click （　?。?br />Dim i As Integer,S As String
Dim str As String,ch As String
str=Text1．Text
List1．Clear
For i=1 To Len（str）
ch=     ①
S=convert（ch）
List1．AddItem ch &“=＞“& S
Next i
End Sub
Private Function convert（ch As String）  As String
Dim m As Integer,k As Integer,n As Integer,i As Integer
convert=““
n=Asc（ch）
Do While n＞0
          ②
convert=m & convert
If m=1 Then
k=k+1
End If
n=n\2
Loop
For i=1 To 7-Len（convert）'將字符的二進(jìn)制代碼補(bǔ)足7位
convert=“0“& convert
Next i
If k Mod 2=0 Then
convert=    ③
Else
convert=“0“& convert
End If
End Function
程序中橫線處的代碼應(yīng)為

Mid（str,i,1）

Mid（str,i,1）

。
程序中橫線處的代碼應(yīng)為

m=n Mod 2

m=n Mod 2

。
程序中橫線處的代碼應(yīng)為

“1“&convert

“1“&convert

。