vb简单编程请教各位高手！！！12

来源：百度知道 编辑：UC知道 时间：2024/05/31 17:34:38
如果一个数的因子之和等于这个数的本身,则称这样的数分为"完全数".例如,整数28的因子为1,2,4,7,14其和1+2+4+7+14=28,因此25是一个完全数.编写一个程序,从键盘上输出正整数N和M,求出M和N之间的所有完全数.
都不能用我晕！！

Private Sub Form_Click()
Dim m%, n%, x%, y%, sum%
m = Val(InputBox("输入M"))
n = Val(InputBox("输入N"))
If m > n Then '如果M>N调换
Dim temp As Integer
temp = m: m = n: n = temp
End If
For x = m To n
For y = 1 To x - 1
If x Mod y = 0 Then sum = sum + y
Next y
If sum = x Then Print x
sum = 0 '别忘sum清0
Next x
End Sub

3个控件：text1，text2，command1

Private Sub Command1_Click()

m = Text1
n = Text2

For i = n To m Step IIf(m > n, 1, -1)

Sum = 0

For j = i - 1 To 1 Step -1
If i Mod j = 0 Then
Sum = Sum + j
End If
Next

If Sum = i Then
Print Sum
End If
Next

End Sub