如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。
例如，整数28的因子为1，2，4，7，14，其和1+2+4+7+14=28，因此28是一个完全数。
编写一个程序，从键盘上输入整数M和N，求出M和N之间的所有的完全数。

Dim x As Integer, y As Integer
x = Val(InputBox("输入第一个数"))
y = Val(InputBox("输入第二个数"))
For i = x To y

下面不知道该怎么写了
如何求出一个数的各个因子呢？
需要什么函数吗？
请教高手指点！
感激感激！

“整数28的因子为1，2，4，7，14”是怎么来的

Dim YinZi() As Integer,I As Integer,j As Integer,S as Integer
S = Val(Text1.Text)
For j = 2 To S / 2
If S Mod j = 0 Then
i = i + 1
Redim Preserve YinZi(i)
YinZi(i) = j
End If
Next

[此贴子已经被作者于2006-4-24 21:57:11编辑过]

整数28的因子是通过求质数得来的
也就是因式分解求质数

这段代码用来求一个数的因子吗？
我看不懂什么意思啊？
Redim Preserve YinZi(i)这句是干嘛用的

自顶一下
大家帮忙想想办法啊

自顶一下
大家帮忙想想办法啊

搞定！！！

Private Sub Form_Click()
Cls
Dim m As Integer, n As Integer, i As Integer, j As Integer
Dim k As Integer, t As Integer
t = 0
m = Val(InputBox("输入第一个数"))
n = Val(InputBox("输入第二个数"))
For i = m To n
For j = 1 To i - 1
k = i Mod j
If k = 0 Then
t = t + j
End If
Next j
If t = i Then
Print i;
End If
t = 0
Next i
End Sub

或者这个，可以减少一半运算
Private Sub Form_Click()
Cls
Dim m As Integer, n As Integer, i As Integer, j As Integer
Dim k As Integer, t As Integer
t = 0
m = Val(InputBox("输入第一个数"))
n = Val(InputBox("输入第二个数"))
For i = m To n
For j = 1 To i /2 ’改用除法
k = i Mod j
If k = 0 Then
t = t + j
End If
Next j
If t = i Then
Print i;
End If
t = 0
Next i
End Sub

我总觉得你还是很有耐心的,会有出息的