编写函数,输出1000以内的所有完数及其因子

发布网友发布时间：2023-10-19 20:44

共1个回答

热心网友时间：2024-12-03 02:01

Dim i As Integer
　　Dim j As Integer
　　Dim IntSum As Integer
　　For i = 1 To 1000
　　intSum = 0
　　For j = 1 To Int(i / 2)
　　If i Mod j = 0 Then intSum = intSum + j
　　Next j
　　If intSum = i Then Print i
　　Next i

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com