【推荐1】【加试题】一个十进制整数的二进制表示中，如果数字“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

n = i

t = 0

k = 0

Do While n > 0

If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

___________________

Loop

If ___________________Then s = s + 1

Next i

Text1.Text = Str(s)

End Sub

【推荐2】下列VB程序实现如下功能：程序运行时，在文本框Text1和Text2中分别输入x和n的值，单击命令按钮Command1后，调用函数f计算s＝x＋＋＋…＋的值，并在文本框Text3中显示计算结果。请在划线上填入合适的代码。
Private Sub Command1_Click( )
Dim x As Single，n As Integer，s As __①__
x＝Val(Text1.Text)
n＝Val(Text2.Text)
s＝f(x，n)
Text3.Text＝str(s)
End Sub
Private Function f(x As Single，n As Integer) As Single
Dim sum As Single，i As Integer，t As Single
sum ＝ 0
t＝1
For i＝1 To n
t＝t*x/i
sum＝sum＋t
Next i
____②____
End Function
填写划线①处代码_____________________________________。
填写划线②处代码______________________________________。

【推荐3】图图基于排序算法设计了一个数字矩阵排序的 VB 程序，功能如下：在文本框 Text1 中输入矩阵的大小 n，单击“生成”按钮 Command1，在左侧列表框 List1 中显示行数和列 数均为 n 的随机整数矩阵。单击“排序”按钮 Command2，奇数行从左到右升序排序， 偶数行从左到右降序排序，结果显示在列表框 List2 中，输出时保持矩阵大小不变。运 行结果如图所示。

请回答下列问题：
（1）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim a(1 To 100) As Integer
Dim n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim s As String, k As Integer
n = Val(Text1．Text)
For i = 1 To n
       ①_____
       For j = 1 To n
             k = (i - 1) * n + j
             a(k) = Int(Rnd() * 45 + 5) * 2
             s = s + “ ” + Str(a(k))
       Next j
       List1．AddItem s
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, L As Integer, R As Integer
Dim f As Integer
For i = 1 To n
If i Mod 2 = 1 Then
       f = 1
Else
       f = -1
       ②____
       R = i * n
       List2．AddItem sort(L, R, f)
Next i
End Sub
Function sort(left As Integer, right As Integer, order As Integer) As String
Dim i As Integer, j As Integer, k As Integer
Dim s As String, t As Integer s = “”
For i = left To right - 1 k = i
       For j = i + 1 To right
             If③______Then
                    k = j
       Next j
       If k <> i Then
             t = a(k): a(k) = a(i): a(i) = t
       End If
       s = s + “ ” + Str(a(i))
Next i

sort = s
End Function
（2）若删除上述 VB 程序中加框处代码，_______（选填：会/不会）影响程序运行结果。