阅读下面两段Visual  Basic程序：

为使两段程序运行后有相同的结果，左框内划线处的内容为

A．t=20

B．t=21

C．t=1

D．t=22

如图所示VB程序段的功能是计算n的阶乘s=1*2*3*…*n,①、②处应填入的代码是(    )

A．①s=0 ②n=i+1

B．①s=1 ②n=n+1

C．①s=1 ②i=i+1

D．①s=0 ②i=i+1

某算法的流程图如图所示，执行该算法后，输出s的值是(　　)

A．6

B．12

C．18

D．36

一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer
s = 0
For i = 1 To  1000
①
t = 0 ： k = 0
Do While n > 0
If  n mod 2=0  Then t = t + 1 Else k = k + 1
②
Loop
If ③ Then s = s + 1
Next i
Text1.Text = Str(s)
End Sub