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

實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線(xiàn)處填入合適代碼．
Private Sub Command1_Click （　?。?br />Dim i As Integer,j  As Integer,c  As  Integer,s As Integer
c=0‘用于存儲(chǔ)完全數(shù)的個(gè)數(shù)
For i=1To 10000
s=0‘用于存儲(chǔ)各因數(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 以?xún)?nèi)共有”+Str（c）+“個(gè)完全數(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.