小明设计了一个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

If x>100 then

      Y=12

        ①       x>60 then

      Y=8

     Else 

y=5

        ②   

该程序段中，①处填写的内容为{#blank#}1{#/blank#}；②处填写的内容为{#blank#}2{#/blank#}。

Private Sub Command1_click()

Dim s as integer,I as integer

S=0

For i=1 to 20 step 3

      s=s+(-1)^i*i

Next i

Label1.caption=str(i)

Label2.caption=str(s)

End Sub

For k = 1 To 4 Step 3

For i = k To k + 1

For j = i + 1 To k + 2

If a(j) < a(i) Then

temp = a(j): a(j) = a(i): a(i) = temp

End If

Next j

Next i

Next k

数组元素a(1)到a(6)的值依次为“9,8,7,6,5,4”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（    ）