会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
http://rtmd.net
博客园
首页
新随笔
联系
订阅
管理
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 三角猫
阅读(285)
评论(0)
推荐(0)
编辑
公告