明編寫了一個(gè)輸出十進(jìn)制與二進(jìn)制數(shù)對應(yīng)表的VB程序．程序運(yùn)行時(shí)，單擊“輸出”按鈕Command1后，在列表框List1中輸出運(yùn)行結(jié)果如圖所示．實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請改正．
Dim b（4）As Integer'數(shù)組b按位存儲(chǔ)二進(jìn)制數(shù)
Private Sub pprint（m As Integer）
'本過程打印輸出一行十進(jìn)制數(shù)m和對應(yīng)的二進(jìn)制數(shù)
'代碼略
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer
List1．Clear
List1．AddItem“十進(jìn)制數(shù)      二進(jìn)制數(shù)“
For i=1To 4
b（i）=0
Next i
For i=0To 15
Call pprint（i）'打印輸出一行
j='（1）
b（j）=b（j）+1
Do While  '（2）
b（j）=0
j=j-1
b（j）=b（j）+1
Loop
Next i
End Sub.