当前位置:新励学网 > 秒知问答 > 怎么用VB表达一个完数的计算过程

怎么用VB表达一个完数的计算过程

发表时间:2024-07-30 17:47:07 来源:网友投稿

'求完数Dim i, j, sum As LongPrint \"1000以内的完数:\"For i = 5 To 1000 '1000以内的完数,最小的完数为6,所以从数字5开始求,以节省计算量!sum = 1 '子因子1不用再求,直接赋予。For j = 2 To Int(i / 2) '子因子小于所求数的一半If (i Mod j) = 0 Then sum = sum + jNext 'jIf i = sum Then Print i '输出完数Next 'i

免责声明:本站发布的教育资讯(图片、视频和文字)以本站原创、转载和分享为主,文章观点不代表本网站立场。

如果本文侵犯了您的权益,请联系底部站长邮箱进行举报反馈,一经查实,我们将在第一时间处理,感谢您对本站的关注!