如果一个数恰好等于它的因子(除自身外)之和,这个数就称为完数,例如,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
开发者们正在绞尽脑汁回答中...
小贴士:分享此问题到sns社区可以获得更多关注