小明设计了一个VB程序，用于求解10000以内的所有完全数。点击按钮Command1，标签Label1显示完全数的个数，并在列表框中显示10000以内所有的完全数。

程序运行效果如图所示

实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click( )

Dim i As Integer, j  As Integer, c  As  Integer, s As Integer

c = 0 ‘用于存储完全数的个数

For i =1 To 10000

s=0 ‘用于存储各因数之和

For j = 1 To i - 1

If fac(i, j)  Then {#blank#}1{#/blank#}

Next j

If  i = s Then

{#blank#}2{#/blank#}

Listl.AddIltem Str( i)

End  If

Next i

Label.Caption =“10000 以内共有” +Str(c) + “个完全数!”

End Sub

Function fac(x As Integer, y As Integer) As Boolean

'如果y是x的因数返回True，否则返冋False

If  {#blank#}3{#/blank#}Then

fac = True

Else

fac = False

End  If

End  Function

执行这部分流程后，变量x，y的值分别是（  ）

Dim i As Integer，s As Integer

s＝0

For i＝2 To ________ Step 2

  s＝s＋i

Next i

Label1.Caption＝Str(s)

Dim n As Integer, i As Integer, a As Integer, b As Integer

Randomize

n=5：i=1

Do While i <=n

a= Int(Rnd*90)+ 10

b= Int(Rnd*90)+ 10

If a>b Then

List1.AddItem Str(a)+"-"+ Str(b)+“=“

i=i+1

End If

Loop

执行该程序段后，下列说法正确的是（  ）

Private Sub Command1_Click()

 Dim i As Integer

 Dim a(10)As Integer    ‘①

 For i=1 To 10    ‘②

  a(i)=Rnd* 100    ‘③

 Next i

 Label1.Caption=Str(a(i))    ‘④

End Sub