如果一个整数的所有因子（包括1,但不包括这个数本身）之和与该数相等,则称这个数位完数.例如6=1+2+3,

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/05/15 01:00:06

如果一个整数的所有因子（包括1,但不包括这个数本身）之和与该数相等,则称这个数位完数.例如6=1+2+3,
所以6是完数,编写一个函数来判断m是否为完数,函数返回值为boolean.主调程序在列表框中显示1000以内的完数.用VB编写.
我写的程序如下,他显示其中mid函数的length不能为0,而且显示结果如下
6=
28=
496=
没有后面因子相加.求高手指导.
Public Class f7
Private Sub f7_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load
Dim i%,ss$
Label1.Text = "1000以内的完数为：" & vbCrLf
For i = 1 To 1000
If f(i,ss) Then
Label1.Text &= i & "=" & Mid(ss,1,Len(ss) - 1) & vbCrLf
End If
Next
End Sub
Function f(ByRef a As Integer,ByVal b As String) As Boolean
b = ""
Dim i%,sum%
sum = 0
For i = 1 To a \ 2
If a Mod i = 0 Then
sum += i
b &= i & "+"
End If
Next
If sum = a Then f = True Else f = False
Return f
End Function
End Class

Function f(ByRef a As Integer, ByVal b As String) As Boolean
应该变为：
Function f(ByVal a As Integer, ByRef b As String) As Boolean

如果一个整数的所有因子（包括1,但不包括这个数本身）之和与该数相等,则称这个数位完数.例如6=1+2+3, C++完数问题如果一个整数其所有因子（包括1但不包括自己）之和等于它自身,那么这个整数就是一个完数. 如果一个数等于其所有真因子(包括本身)之和,则称该数为完数例如 6=1+2+3.求2~1000中的完数如果一个正整数恰好等于它的所有因子(包括1但不包括自身)之和,则称之为“完数”,例如6的因子是1,2,3,且6=1+2+ VB编程题求编写：如果一个数的因子之和等于这个数的本身,则称这样的数为“完全数”.例如,整数28的因子为1,2,4,7 vb 如果一个数的因子之和等于这个数的本身,则称这样的数为完全数. (1/2)有关C语言的一些问题：一个数如果恰好等于它的因子数之和,这个数就称为“完数”.例如,6的因子... 一个数如果恰好等于它的因子之和,这个数就称为完数.例如6=1+2+3,6是完数.编程序找出1000以内所有完数. c语言一个数如果恰好等于它的因子之和,这个数就称为“完数”.例如6=1＋2＋3.编程找出1000以内的所有完数一个数如果恰好等于它的因子之和,这个数就称为“完数”.例如6=1＋2＋3.编程　找出1000以内的所有完数. 1算作质因数么?一个数如果恰好等于它的质因子之和,这个数就称为"完数".例如6=1＋2＋3.编程找出1000以内的所有完一个数如果恰好等于它的因子之和,这个数就称为“完数”.例如6=1＋2＋3.编程找出1000以内的所有完