从键盘输入一个数，判断该数是否为完数。如果是，输出“该数为完数”，否,输出“该数不是完数”

来源：百度知道 编辑：UC知道 时间：2024/06/05 21:25:39
要完整的程序，循环结构程序设计。要简单点的。刚开始学的， 要下课了啊~~~~~~~~

用c就能写了 很简单 就是做个判断是不是完数就行了

Private Sub Form_Click()
Dim num As Integer, sum As Integer
num = InputBox("请输入一个正整数：")
sum = 0
For i = 1 To Int(num / 2)
If num Mod i = 0 Then sum = sum + i
Next i
If sum = num Then
Print "该数为完数！"
Else
Print "该数不是完数！"
End If
End Sub

http://zhidao.baidu.com/question/51370235.html

看下这个，会给你启发的

该数不是完数

你想说明什么“