一個十進制整數(shù)的二進制表示中，如果數(shù)字“1”的個數(shù)多于數(shù)字“0”的個數(shù)，則稱該整數(shù)為A類數(shù)．如十進制整數(shù)26的二進制表示為11010，26是一個A類數(shù)．下列VB程序的功能是：統(tǒng)計前1000個自然數(shù)中A類數(shù)的個數(shù)，并在文本框中輸出．請在橫線處填入合適代碼．
Private Sub Command1_Click （　?。?br />Dim i As Integer,n As Integer
Dim s As Integer,t As Integer,k As Integer
s=0
For i=1To  1000
n=i
t=0
k=0
Do While n＞0
If n Mod 2=1Then t=t+1Else k=k+1

①

①

Loop
If

②

②

Then s=s+1
Next i
Text1．Text=Str（s）
End Sub.