小張編寫 VB 程序，實(shí)現(xiàn)如下功能：在前 100 個(gè)偶自然數(shù)中，計(jì)算恰好有四位為 1 的二進(jìn)制數(shù)的個(gè)數(shù)，如圖所示，單擊“計(jì)算”按鈕 Command1，在文本框 Text1 中顯示符合條件的個(gè)數(shù)，在列表框 List1 中顯示 符合條件的二進(jìn)制數(shù)．VB 程序代碼如下：
提示：本題“除 2 取余倒排法”的方法將十進(jìn)制轉(zhuǎn)化為二進(jìn)制，算法如下：
例如十進(jìn)制數(shù)“97”轉(zhuǎn)化為二進(jìn)制的過程如圖所示：

因此“97”二進(jìn)制值為：1100001

（1）解決此問題主要采用的算法是

B

B

（選填字母：A．解析算法/B．枚舉算法）．
（2）為了實(shí)現(xiàn)程序的功能，請(qǐng)?jiān)跈M線處填入合適的代碼．
 Private Sub Command1_Click （　?。?br />Dim a As Integer,c As Integer,w As Integer,i As Integer
Dim s As String,k As String
c=0
For m=1To 100
k=““
i=2*m
Do While i＞0
a=i Mod 2

i=i\2

i=i\2

k=str（a）+k
Loop

w=0

w=0

For n=1To Len（k）
s=Mid（k,n,1）
If s=“1“Then w=w+1
Next n
If w=4Then
c=c+1

List1．AddItem k

List1．AddItem k

End if
Next m
Text1．Text=Str（c）
 End Sub.