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

找出满足各位数字之和等于5的所有三位数可采用的算法是（    ）。

A．解析算法

B．冒泡排序

C．枚举算法

D．选择排序

某算法的部分流程图如下图所示：

执行该算法，下列描述正确的是(　　)

A．t←t＋2执行了4次

B．s≤35? 执行了4次

C．循环结构后，t的值为7

D．该算法体现了枚举算法思想

小张的QQ密码忘记了,请你帮他找回密码。他只记得自己密码的一些零星信息:
①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如图所示,单击“找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。

(1)应用程序界面设计时,为添加“可能的密码有:”对象,应使用左图所示的“控件工具箱”中的______(填写相应编号),并在右图所示的“属性窗口”中,将______属性值设置为“可能的密码有:”。 

(2)为实现上述功能,请在划线处填入合适的选项。
Private Sub Command1_Click( )
Dim x As Integer,s As Long,y As Integer,i As Integer
For i=0 To 9999
　s=590000+i
　If________①Then 
　　x=s mod 10
　　y=(s Mod 100)\10
　　If_______②Then 
　　　List1.AddItem______③
　　End If
　End If
Next i
End Sub
划线①、②、 ③的选项:    

A．x=y

B．Str(s)

C．Str(i)

D．s Mod 12=0 and s Mod 38=0

用VB编程解决一个问题：求所有五位数中满足能被17整除且十位数字为5的数之和。
（1）本题的所有五位数所指的范围是1~10000，10000~99999，10000~90000，还是11111~99999？写出本题的所有五位数所指的范围。
（2）算术运算符：除/、整除\、求余Mod。例子，设五位数为参数i，则i\10000为万位，（i\1000）Mod 10 为千位，类推，则五位数中十位数字为（ ），i  Mod 10为个位。写出五位数中十位数字为5的表示式。
（3）将本题程序填写完整。
Private Sub Command1_Click()
s = 0
For i =   To  
If   i Mod 17 = 0    And    =5   Then
s = s + i
End If
Next i
Print  s
End Sub
（4）本题程序采用了什么算法？