标题: vb 完数算法 [打印本页] 作者: 孙方 时间: 2009-3-25 17:28 标题: vb 完数算法 Dim i, j, sum As Integer
For i = 1 To 1000
sum = 0
For j = 1 To i - 1
If i Mod j = 0 Then
sum = sum + j
End If
Next j
If i = sum Then Print i
Next i作者: 钱瑞雪 时间: 2009-3-25 21:58 标题: 致最敬爱的老师 老师，我太感谢你了！:loveliness:作者: 徐志华 时间: 2009-3-26 20:34
提示: 作者被禁止或删除 内容自动屏蔽作者: 钱瑞雪 时间: 2009-3-27 07:41
我也有一点啊！:handshake 看起来，我们离二级距离太远。唉！！作者: etthink 时间: 2009-3-27 09:02 标题: 回复 4楼 钱瑞雪 的帖子 同志们多一点信心吧....花点时间，程序也如读书，写上百次，也有效果