用户注册



邮箱:

密码:

用户登录


邮箱:

密码:
记住登录一个月忘记密码?

发表随想


还能输入:200字
云代码 - vb代码库

输出1000以内的所有完数。

2012-09-20 作者: 神马举报

[vb]代码库

Private Sub Command1_Click()
'完数定义:一个数如果正好等于它的因子之和,这个数就称为完数。例如,6的因子为1、2、3,而6=1+2+3,因此6是"完数"。
OutputWanNumber 1000
End Sub

Sub OutputWanNumber(ByVal n As Integer)
Dim i As Integer
Dim j As Integer
Dim s As Integer
 
For i = 1 To n
 s = 0
 For j = 1 To i\ 2
    If i Mod j = 0 Then s = s + j
 Next j
 If s = i Then Print i & "是完数"
Next i
End Sub


网友评论    (发表评论)


发表评论:

评论须知:

  • 1、评论每次加2分,每天上限为30;
  • 2、请文明用语,共同创建干净的技术交流环境;
  • 3、若被发现提交非法信息,评论将会被删除,并且给予扣分处理,严重者给予封号处理;
  • 4、请勿发布广告信息或其他无关评论,否则将会删除评论并扣分,严重者给予封号处理。


扫码下载

加载中,请稍后...

输入口令后可复制整站源码

加载中,请稍后...