[加试题]计算机中用一个字节来存储一个字符的ASCII码，低7位二进制为ASCII编码，在传输数据时最高位可作为奇偶校验位，具体方法是：若7位ASCII编码有偶数个1，最高位为1，有奇数个1，则最高位为0．例如字母“A”的ASCII编码是65（二进制为1000001），则“A”的传输码是“11000001”．小马编写了一个VB程序，把ASCII编码转换成传输码，程序界面如图所示．

（1）如果输入字母“F”，则它的传输码是

010000110

010000110

．
（2）具体的VB程序如下，请在横线处填入合适代码．
Private Sub Command1_Click （　　）
Dim s As String,i As Integer
Dim str As String,ch As String
List1．Clear
str=Text1．Text
For i=1To Len（str）

ch=Mid（str,i,1）

ch=Mid（str,i,1）

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,s As String
s=““
n=Asc（ch）
Do While n＞0

m=n mod 2

m=n mod 2

s=m & s
If m=1Then
k=k+1
End If
n=n\2
Loop
For i=1To 7-Len（s）
s=“0“& s
Next i
If k Mod 2=0Then
s=“1“& s
Else
s=“0“& s
End If

convert=s

convert=s

End Function.