質因數判斷與完全數

[q123997788 (小小小強)]

Private Sub Command1_Click()

    a = Text1.Text
    b = 0   '記錄幾個因數
    List1.Clear '把列出來的數字清掉

    For i = 1 To a

        If a Mod i = 0 Then

        List1.AddItem i

        b = b + 1

        Text2.Text = b

        End If
    Next i

End Sub
接下來該怎麼寫出裡面因數的質數出來呢?
完全數是什麼?該怎麼寫?
請求各位大大解惑　　謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 218.165.137.130