[加試題]計(jì)算機(jī)中用一個(gè)字節(jié)來(lái)存儲(chǔ)一個(gè)字符的ASCII碼，低7位二進(jìn)制為ASCII編碼，在傳輸數(shù)據(jù)時(shí)最高位可作為奇偶校驗(yàn)位，具體方法是：若7位ASCII編碼有偶數(shù)個(gè)1，最高位為1，有奇數(shù)個(gè)1，則最高位為0．例如字母“A”的ASCII編碼是65（二進(jìn)制為1000001），則“A”的傳輸碼是“11000001”．小馬編寫(xiě)了一個(gè)VB程序，把ASCII編碼轉(zhuǎn)換成傳輸碼，程序界面如圖所示．

（1）如果輸入字母“F”，則它的傳輸碼是

010000110

010000110

．
（2）具體的VB程序如下，請(qǐng)?jiān)跈M線處填入合適代碼．
Private Sub Command1_Click （　?。?br />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.