下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。

Private Sub Command1_Click()

    Dim i As Integer, m As Integer, n As Integer

    Label1.Caption = "1000以内的完全数如下："

    For i = 1 To 1000

        n = 0

        For m = 1 To i \ 2

            If i Mod m = 0 Then n = n + m

        Next

        If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)

    Next i

End Sub

该过程采用的算法是（     ）

A、枚举

B、查找

C、排序

D、解析