每个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.