如果一个数的因子之和等于这个数的本身，则称这样的数为“完全数”。
例如，整数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的因子是通过求质数得来的
也就是因式分解求质数

这段代码用来求一个数的因子吗？
我看不懂什么意思啊？
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

谢谢xinfresh的鼓励和夸奖

其实我这个人做事最没耐心了

而且不爱动脑

所以要靠大家多多帮助才能茁壮成长

谢谢