VB编程：利用循环嵌套求1000以内的完数-18
【摘要】
运行效果：
编写总结
完数：它的因子之和恰好等于它的本身；
亏数：它的因子之和小于本身；
盈数：它的因子之和大于本身；
程序代码：
Private Su...
运行效果：
编写总结
完数：它的因子之和恰好等于它的本身；
亏数：它的因子之和小于本身；
盈数：它的因子之和大于本身；
程序代码：
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
文章来源: pengshiyu.blog.csdn.net，作者：彭世瑜，版权归原作者所有，如需转载，请联系作者。
原文链接：pengshiyu.blog.csdn.net/article/details/81048872
【版权声明】本文为华为云社区用户转载文章，如果您发现本社区中有涉嫌抄袭的内容，欢迎发送邮件进行举报，并提供相关证据，一经查实，本社区将立刻删除涉嫌侵权内容，举报邮箱：
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论（0）