用VB编写求1000以内完全数的程序代码
时间: 2023-03-16 10:43:40 浏览: 154
下面是VB编写求1000以内完全数的程序代码:'定义变量
Dim i, j, sum As Integer'遍历1000以内的数字
For i = 2 To 1000
'求和
sum = 0
For j = 1 To i \ 2
If i Mod j = 0 Then
sum = sum + j
End If
Next
'判断是否为完全数
If sum = i Then
Debug.Print i
End If
Next
阅读全文