每個ASCII字符在計算機中都以8位二進制碼存儲．比如，英文“Hello”中5個字母的ASCII碼值十進制表示分別為：72、101、108、108、111，它們在計算機內部存儲如下表所示：

現有加密算法如下：將上述表格中的二進制數以每2bit（位）取為一組編碼，則每組編碼對應的十進制數為0、1、2、3這四個數字中的一個，設定為B、D、F、Z來依次表示0、1、2、3，則任何字符信息都可以由B、D、F、Z四個字符組成的密文表示．
如上面的明文“Hello”，加密后可得到密文“DBFBDFDDDFZBDFZBDFZZ”，加密過程如圖所示：
（1）根據上述加密規則，若字母A的ASCII碼為65，則其密文為

DBBD

DBBD

（2）小張編寫了如下VB程序以實現上述功能，請完善橫線處代碼．
Function D2B（x As Integer） As String'將x轉換成二進制字符
        Dim s As String,i As Integer
        s=““
        Do While x＞0
                  i=x Mod 2
                  s=CStr（i） & s'CStr（　　）函數的作用是將數值轉換為不帶空格的數字字符串
                  x=x\2
        Loop
        s=“00000000“+s
        D2B=

①

①

'返回8位二進制數
End Function
Private Sub Command1_Click（　　）
       Dim y As String,a As String'y為原文，m為對應的密文
       Dim b As String,k As String
       Dim a（3）As String,i As Integer,j As Integer
       Dim r As String
       Dim q As Integer'每2位二進制數對應的十進制值
       m=““
       a（0）=“B“=a（1）=“D“：a（2）=“F“：a（3）=“2“
       y=Text1．Text
       For i=1 To Len（y）
       k=Mid（y,i,1）
       b=D2B（Asc（k））
       For j=1 To 8 Step 2
             r=Mid（b,j,2）

②

②

             m=m+a（q）
       Next j
       Label3．Caption=m
End Sub.