我是一个VB新手，不太会这个

如果一个数恰好等于它的因子（除自身外）之和，这个数就称为完数，例如，6的因子（除去自身）为1、2、3，而6=1+2+3，因此6是完数，编程找出100以内的所有完数以及完数的个数。

Private Sub Command1_Click()
For m = 1 To 100
s = 0
For i = 1 To m - 1
If m Mod i = 0 Then s = s + i
Next i
If s = m Then Print m
Next m
End Sub