Question

求2-1000中的亲密数对简单编程

求2-1000中的亲密数对简单编程

Answer 1

Private Sub Command1_Click()
s = 0
For i = 1 To 1000
If yinzihe(yinzihe(i)) = i And i < yinzihe(i) Then Print i; "<==>"; yinzihe(i)
Next i
Print "OK"
End Sub

Function yinzihe(n)
s = 1
For i = 2 To n \ 2
If n Mod i = 0 Then s = s + i
Next i
yinzihe = s
End Function