如果一個自然數(shù)恰好等于它的各因數(shù)之和，則稱該數(shù)為完全數(shù)．這里的因素都是除去本身的正因數(shù)．例如：第一個完全數(shù)是6，它有因數(shù)1、2、3、6，除去它本身6外，其余3個數(shù)相加，1+2+3=6．尋找完全數(shù)并不是容易的事．經(jīng)過不少數(shù)學家研究，到2013年2月6日為止，一共找到了48個完全數(shù)．
小明設計了一個VB程序，用于求解10000以內的所有完全數(shù)．點擊按鈕Command1，標簽Label1顯示完全數(shù)的個數(shù)，并在列表框中顯示10000以內所有的完全數(shù)．
程序運行效果如圖所示

實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼．
Private Sub Command1_Click （　　）
Dim i As Integer,j  As Integer,c  As  Integer,s As Integer
c=0‘用于存儲完全數(shù)的個數(shù)
For i=1To 10000
s=0‘用于存儲各因數(shù)之和
For j=1To i-1
If fac（i,j）  Then

①

①

Next j
If  i=s Then

②

②

Listl.AddIltem Str（ i）
End  If
Next i
Label.Caption=“10000 以內共有”+Str（c）+“個完全數(shù)!”
End Sub

Function fac（x As Integer,y As Integer） As Boolean
'如果y是x的因數(shù)返回True,否則返回False
If

③

③

Then
fac=True
Else
fac=False
End  If
End  Function.