vb找出5000内亲密对数

Private Sub Command1_Click() s = 0 For i = 1 To 5000 If yinzihe(yinzihe(i)) = i And 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 yin