每個(gè)ASCII字符在計(jì)算機(jī)中都以8位二進(jìn)制碼存儲(chǔ)．比如，英文“Hello”中5個(gè)字母的ASCII碼值十進(jìn)制表示分別為：72、101、108、108、111，它們?cè)谟?jì)算機(jī)內(nèi)部存儲(chǔ)如下表所示：

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

DBBD

DBBD

（2）小張編寫了如下VB程序以實(shí)現(xiàn)上述功能，請(qǐng)完善橫線處代碼．
Function D2B（x As Integer） As String'將x轉(zhuǎn)換成二進(jìn)制字符
        Dim s As String,i As Integer
        s=““
        Do While x＞0
                  i=x Mod 2
                  s=CStr（i） & s'CStr（　?。┖瘮?shù)的作用是將數(shù)值轉(zhuǎn)換為不帶空格的數(shù)字字符串
                  x=x\2
        Loop
        s=“00000000“+s
        D2B=

①

①

'返回8位二進(jìn)制數(shù)
End Function
Private Sub Command1_Click（　?。?br />       Dim y As String,a As String'y為原文，m為對(duì)應(yīng)的密文
       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位二進(jìn)制數(shù)對(duì)應(yīng)的十進(jìn)制值
       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.