VB编程：利用循环嵌套求1000以内的完数-18
运行效果：
编写总结
完数：它的因子之和恰好等于它的本身；
亏数：它的因子之和小于本身；
盈数：它的因子之和大于本身；
程序代码：
Private Sub Form_Click()
Dim n, r, j, i As
Integer
n = 1000
Me.Cls
For i = 1 To n - 1
r = 0
For j = 1 To i - 1
If i Mod j
= 0 Then
r = r + j
'累加因子
End
If
Next
If r = j Then
'判断完数：数字=因子之和
Print
Str(r) + "的因子是:";
For j = 1
To i - 1
If i Mod j = 0 Then
Print Str(j) + ";";
End If
Next
Print
End If
Next
End Sub