一个十进制整数的二进制表示中，如果数字“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

在数组变量A中，A（1）、A（2）、…、A(10依次放了1号、2号、…、10号同学的成绩，下面一段程序的功能是实现反次序在列表框list1中输出这10个同学成绩，即输出次序为： A（10）、A（9）、…、A(1)， 程序段如下：
Dim A(-20 To 20) As Integer
for i=① to ② step ③
List1.AddItem A( ④ )
Next i
上程序中的①,②,③,④依次填入有下面几个可能答案：
（1）、 10，  1，  -1， i
（2）、  1， 10，  1， 11-i
（3）、 -5，  4,    1,  5-i
（4）、0.2,   2,  0.2,  11-i/0.2
上面答案中，正确的有（  ）

A．1个

B．2个

C．3个

D．4个

小明编写了一个矩阵转换程序，功能如下：单击“生成”按钮Commandl后，在列表框listl中生成1-16顺序矩阵，单击“转换”按钮Command2后，在列表框list2中生成转换后的矩阵。转换的算法如下：
（1）改变列的位置：原矩阵第3列变为新矩阵的第1列，原矩阵第1列变为新矩阵第2列，原矩阵第4列变为新矩阵第3列，原矩阵第2列变为新矩阵第4列。
（2）改变行的位置：经过（1）处理后的矩阵的第1行和第4行交换，第2行和第3行交换。
实现上面的功能，程序运行界面如图所示。

实现上述功能的程序如下，请在程序划线处填入合适的语句或代码。
Dim sc(1 To 16)As Integer ′生成矩阵
Dim zh(1 To 16)As Integer ′转换矩阵
Private Sub Commandl_Click()
′在列表框 listl 中生成4*4矩阵sc，代码略
End Sub
Private Sub Command 2_Click()
Dim pb As Integer，tmp As Integer，i As Integer，line As String
For i=1 To 16 ′变化列

If i Mod 4=1 Then

____________________

Elself i Mod 4=3 Then

pb=i-2

Else

pb=pb+2

End If

zh(pb)=sc(i)

Next i
For i=1 To 8 ′交换行

If___________________Then

tmp=zh(i):zh(i)=zh(i+12):zh(i+12)=tmp

Else

tmp=zh(i):zh(i)=zh(i+4):zh(i+4)=tmp

End If

Next i
line=″″
List2.Clear
For i=1 To 16

If i Mod 4=1 Then

List2.AddItem line
line=adj(Str(zh(i)-3))

Else

___________________

End If

Next i
List2.AddItem line
End Sub
Function adj(a As String,n As Integer)As String
′adj函数的功能：在字符串a前加入适当的空格，使得a的长度为n位，代码略。
End Function

由“For k="35" To 0 Step 3 : Next k ”循环语句控制的循环次数是_______。

A．12

B．0

C．-10

D．-11

使用两种不同的VB程序段实现相同的功能：则划线处填入的代码正确的是（）
 

A．	B．
C．	D．