小王設(shè)計(jì)了一個(gè)Visual Basic小程序，該程序的功能是將一個(gè)二進(jìn)制數(shù)轉(zhuǎn)化為十六進(jìn)制數(shù)。程序運(yùn)行時(shí)，在文本框Text1輸入二進(jìn)制數(shù)（由0、1構(gòu)成的數(shù)串），單擊“轉(zhuǎn)換”按鈕Command1后，在文本框Text2中顯示轉(zhuǎn)換結(jié)果。程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的程序代碼如下所示，請(qǐng)?jiān)跈M線處填上合適的代碼：
Private Sub Command1_Click （　　）
Dim x As String,y As String,
Dim i As Integer,s As Integer,n As Integer,c As String
Dim q As String,h As String,ans As String
n=Len（Text1．Text）
y=Text1．Text
If n Mod 4＜＞0 Then （1）

s=4-n Mod 4

s=4-n Mod 4

For i=1 To s
y=″0″+y
Next i
For i=1 To n Step 4
（2）

h=Mid（y,i,4）

h=Mid（y,i,4）

If h=″0000″Then q=″0″
If h=″0001″Then q=″1″
If h=″0010″Then q=″2″
If h=″0011″Then q=″3″
If h=″0100″Then q=″4″
If h=″0101″Then q=″5″
If h=″0110″Then q=″6″
If h=″0111″Then q=″7″
If h=″1000″Then q=″8″
If h=″1001″Then q=″9″
If h=″1010″Then q=″A″
If h=″1011″Then q=″B″
If h=″1100″Then q=″C″
If h=″1101″Then q=″D″
If h=″1110″Then q=″E″
If h=″1111″Then （3）

q=“F“

q=“F“

ans=（4）

ans=ans+q

ans=ans+q

Next i
Text2．Text=ans
End Sub