2005年12月18日
完数
摘要： Sub OutputFullNumber(ByVal UpperBound As Integer) Dim i, j, s As Integer For i = 1 To UpperBound s = 0 For j = 1 To i \ 2 If i Mod j = 0 Then s = s + j Next j If i = s Then Print i ... 阅读全文
posted @ 2005-12-18 13:07 三角猫 阅读(295) 评论(0) 推荐(0)