VB程序设计例题12例(2)

运行效果如下：

十二、（P180-6）编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。

程序清单如下：

Private Sub Form_Click()

Print "1000以内的完全数有：" For m = 2 To 1000

For i = 1 To m - 1

If m Mod i = 0 Then s = s + i End If Next If s = m Then Print m & "=1+";

For i = 2 To m - 1 If m Mod i = 0 Then Print "+" & i; End If Next Print End If Next End Sub

运行效果如下：