VB，谁帮我如果一个整数的因子之和等于这个数本身，则称这样的数为“完全数”。如完全数28的因子为1，2，4，7，14，其和1+2+4+7+14=28。试编写程序，找出所有不500以内最大的完全数。我只

Question

VB，谁帮我
如果一个整数的因子之和等于这个数本身，则称这样的数为“完全数”。如完全数28的因子为1，2，4，7，14，其和1+2+4+7+14=28。试编写程序，找出所有不500以内最大的完全数。

我只会求所有的，题目要最大的，我用 exit for 弄半天也不会。


Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
For a = 500 To 1 Step -1
c = 0
For b = 1 To a - 1
If a Mod b = 0 Then c = c + b
Next b
If a = c Then Print Str(a)
Next a
End Sub

Answer 1

'我就会求最大值：
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, max As Integer
For a = 500 To 1 Step -1
c = 0
For b = 1 To a - 1
If a Mod b = 0 Then c = c + b
Next b
If a = c Then
Print Str(a)
If max < a Then max = a
End If
Next a
Print "max:" & max
End Sub