3到500的亲密对数

上传人：仙*** 文档编号：142530538 上传时间：2022-08-25 格式：DOC 页数：1 大小：79KB

返回下载相关举报

第1页 / 共1页

亲，该文档总共1页，全部预览完了，如果喜欢就下载吧！

资源描述

若正整数A的所有因子（包括1但不包括自身，下同）之和为B，而B的因子之和为A，则称A和B为一对亲密数。求3到500以内的所有亲密数对用VB解题，代码如下：Private Sub Command1_Click()Dim k As IntegerDim sum As Integer For k = 3 To 500 sum = f(k) If k = f(sum) Then List1.AddItem (k & 和 & sum & 是一对亲密数) Next kEnd SubFunction f(n As Integer) As Integer i =2: sum = 1 Do While i n If n Mod i = 0 Then sum = sum + i i = i + 1 Loop f = sumEnd Function

展开阅读全文

3到500的亲密对数

最新文档