求1000以内的所有完数之和。编程|升学

【编程】求1000以内的所有完数之和。

--------------------------------------------

傻大方资讯为您精选的网友回复（供您参考）：

[升学] Public int因数集合 As New List(Of Integer) Public int完全数集合 As New List(Of Integer) Private Function fun是否为完全数(ByVal int整数 As Integer) As Boolean int因数集合.Clear() For int数 As Integer = 1 To int整数 - 1 If int整数 Mod int数 = 0 Then int因数集合.Add(int数) End If Next Dim int测试数 As Integer For Each int因数 As Integer In int因数集合 int测试数 += int因数 Next If int测试数 = int整数 Then Return True Else Return False End If End Function Private Sub 主窗体加载(sender As Object, e As EventArgs) Handles MyBase.Load For int整数 As Integer = 2 To 1000 If fun是否为完全数(int整数) Then int完全数集合.Add(int整数) Else Continue For End If Next Dim int结果 As Integer = 0 For Each int完全数 As Integer In int完全数集合 lst完全数.Items.Add(int完全数) int结果 += int完全数 Next MsgBox("1000 以内所有的完全数的和是：" & int结果) End Sub这是 .NET 的

--------------------------------------------

傻大方资讯为您精选的网友回复（供您参考）：

[升学]你自己搜一下吧

--------------------------------------------