“5421BCD“碼是一種采用四位二進制數表示一位十進數的編碼，其各位的權依次為5、4、2、1，并要求大于等于5的十進制數所對應的編碼最高位為1（如十進制數7所對應的“5421BCD”碼為1010）．轉換時，將十進制數從右至左按位轉換成對應的“5421BCD”碼，然后依次連接．小王編寫了一個VB程序，中文本框Text1中輸入十進制數，單擊“轉換”按鈕Command1，則文本框Text2中顯示對應的“5421BCD”碼．程序運行界面如圖所示．
（1）觀察代碼，單擊“轉換”按鈕觸發的事件處理過程名是

Command_-Click

Command_-Click

．
（2）為實現上述功能，請在橫線處填入合適的代碼．①

x＞0

x＞0

；②

y=str（a1）+str（a2）+str（a3）+str（a4）+y

y=str（a1）+str（a2）+str（a3）+str（a4）+y

．
Private Sub Command_-Click（　　）
Dim x As Long,y As String,a As Integer
Dim al As Integer,a2 As Integer,a3 As Integer,a4 As Integer
x=Val（Text1．Text）
y=''''
Do While

①

①

a=x Mod 10
x=x\10
a1=a\5：a=aMod5
a2=a\4：a=aMod4
a3=a\2：a=aMod2
a4=a
y=

str（a1）+str（a2）+str（a3）+str（a4）+y

str（a1）+str（a2）+str（a3）+str（a4）+y

Loop
Text2．Text=y
End Sub
（3）如果輸入的十進制數為62，則對應的“5421BCD”碼為

10010010

10010010

．