Vb程序设计查找1000以内的完数输出格式如:6的因子为123是完数

Dim i As Integer, j As Integer, num(100) As Integer, num1(30)
Private Sub Form_Load()

Dim k As Integer, p As Integer, p2 As Integer, p3 As Integer, p4 As Integer, h As String
k = 0
p = 0
p2 = 0
p3 = 0
p4 = 0
For i = 1 To 1000
For j = 1 To i - 1
If i Mod j = 0 Then

num(k) = j
k = k + 1
num(k) = i \ j
k = k + 1
End If
Next j

For j = 0 To k - 1
If num(j) <> i Then
For p2 = 1 To j - 1
If num(j) = num(p2) Then
p3 = 1
End If
Next p2
If p3 = 0 Then
p = num(j) + p
num1(p4) = num(j)
p4 = p4 + 1
End If
p3 = 0
End If
Next j

If p = i Then

Text1.Text = Text1.Text & ";" & i & "的因子是"
For k = 0 To p4 - 1
Text1.Text = Text1.Text & num1(k) & ","
Next k
End If
p = 0
k = 0
p4 = 0
Next i
End Sub

这段代码已经可以筛选出完数来啦，同时得出其因子，存放于num1数组内，不过还没有排序，你自己再加一段冒泡排序啥的排一下顺序就OK了，看不懂的再M我