五哥放羊说得没错,但其程序较慢,你试我的Private Sub Form_Click()'点击窗体事件For k = 1 To 10000
s = 0: i = 1: If Int(k / 2) = k / 2 Then d = 1 Else d = 2 '奇数时只去除以奇数
Do While i <= Sqr(k)
If Int(k / i) = k / i Then
s = s + i + k / i
End If
i = i + d
Loop
If k * 2 = s Then
Wanquanshu = Wanquanshu + 1
Print k & "是完全数"
t9 = t9 & k & "、"
End IfNext kEnd Sub