下列每个控件都具有的属性是(    )

A．名称

B．Caption

C．Font

D．Interval

下面的程序代码是通过函数求出二个整数型变量a、b中的较大值，其中所定义的函数名是（   ）
Function max(a, b As Integer) As Integer
If a > b Then max = a  Else  max = b
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer, s as integer
a =" Val(Text1.Text):" b = Val(Text2.Text)
s =" max(a," b)
Text3.Text = s
End Sub

A．Command1_Click

B．function

C．max

D．max(a, b As Integer)

下列描述中，不适合使用编程来实现的是

A．编辑一份《调查报告》

B．灭火机器人软件驱动系统

C．“神舟七号”发射管理系统

D．学生成绩管理系统

如下图所示，要在窗体上添加一个命令按扭，应在工具箱中选择的控件是（  ）

A．

B．

C．

D．

完全数又称完美数或完备数，指它所有的真因子(即除了自身以外的约数)的和恰好等于它本身，例如6=1+2+3。完成下列程序，查找并输出1000以内的完全数。

程序中划线处应填入的语句是(1)____________ ___ (2)__________________
Private sub command1_click
Dim  n as integer
Dim  i as integer
Dim  s as integer
For n="2" to 1000
S=0
For i="1" to n\2
If ____(1)_____   then s=s+i
Next i
If s=n  then  list.AddItem  str(n)
__(2)______
End sub