将数学表达式写成VB程序设计语言表达式(2分)  。

完全数又称完美数或完备数，指它所有的真因子(即除了自身以外的约数)的和恰好等于它本身，例如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

属性窗口中没有的是（    ）

A．对象下拉列表框

B．标题栏

C．选项卡

D．按钮

能得到一个大于等于20且小于50随机整数的VB表达式是（   ）

A．Int(rnd*50)-20

B．Int(rnd*30+20)

C．Int(rnd*31+20)

D．Int(rnd*30)+1

如下程序在调试时出现了如图所示的出错信息，该程序段出错的原因是缺少了（   ）

m=0:n=0
For i=" 1" to 100
If i mod 3="0" then
m=m+1
Else
n=n+1
next i
print m,n

A．For

B．  End if

C．Next

D．If