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

Question

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

Answer 1

Private Sub Command1_Click()
Dim M As Integer,N As Integer,S As Integer,I As Integer
N = Val(InputBox("输入N:"))
M = Val(InputBox("输入M:"))
If N > M Then
S = N
N = M
M = S
End If
For N = N To M
S = 0
For I = 1 To N - 1
If N Mod I = 0 Then S = S + I
Next
If N = S Then Print N;
Next
End Sub