“完全数”是指一个数恰好等于它的因子之和，如6 的因子为 1 2 3 ，而6 = 1 + 2 + 3，因而6就是完全数，编写程序
找出1-1000之间的所有完全数
Private Sub Command1_Click()
 Dim j As Integer, i As Integer, s As Long
 i = 1
 j = 1
 s = 0
 While i <= 1000
    While j <= i - 1
        If i Mod j = 0 Then
        s = s + j
        End If
        j = j + 1
    Wend
    If i = s Then
    Print i
    End If
  i = i + 1
 Wend
End if

______________________________________________________________________end

帮忙啊 谢谢

没细看，但后面的这个是什么意思？你的end sub呢？
______________________________________________________________________end

什么叫完全数!

其实主要是你的s后面没有清零吧、
上面周的是放在每次循环开始处
也可以在最开始
然后最后清零
 Dim j As Integer, i As Integer, s As Long
        i = 1
        j = 1
        s = 0
        For i = 1 To 10000
            For j = 1 To i - 1
                If i Mod j = 0 Then
                    s = s + j
                End If
            Next
            If i = s Then
                List1.AddItem i
            End If
            s = 0
        Next
    End Sub
上面zhou的多1个定义范围

Private Sub Command1_Click()
Dim j As Integer, i As Integer, s As Long
i = 1
j = 1
s = 0
While i <= 1000
    While j <= i - 1
        If i Mod j = 0 Then
        s = s + j
        End If
        j = j + 1
    Wend
    If i = s Then
    Print i
    End If
   
        s = 0                                  '每次都要清零后才能再次相加比较
    j = 1                                    'j也是每次都是从1开始的吧!!
       i = i + 1
Wend


End Sub

Private Sub Command1_Click()
    'i是被除数 ，j 是除数 , sum 是记录因子的和*/
    Dim i  As Integer, j As Integer, sum     As Integer
    For i = 1 To 1000 '循环从1到1000
        sum = 0
        For j = 1 To i - 1 '求余数循环 但是剔除本身
            If i Mod j = 0 Then  '如果求余为0 那么j就是i的余数
                sum = sum + j '然后累加余数
            End If
        Next
        If sum = i Then Print sum  '判断如果余数之和等于他本身,那么就输出这个数
    Next
End Sub

找因子循环至其半数即可，节省点时间。。呵呵
    Dim I As Integer
    Dim J As Integer
    Dim SUM As Long
    For I = 1 To 10000
        SUM = 0
        For J = 1 To Int(I / 2) + 1 '找因子从1开始至其半数
            If I Mod J = 0 Then
                SUM = SUM + J
            End If
        Next J
        If SUM = I Then Print I; SUM    '打印结果和sum
    Next I