VB編程：利用循環嵌套求1000以內的完數-18

運行效果： 編寫總結     完數：它的因子之和恰好等於它的本身；     虧數：它的因子之和小於本身；     盈數：它的因子之和大於本身； 程序代碼： Private Sub Form_Click()     Dim n, r, j, i As Integer     n = 1000     Me.Cls     For i = 1 To n - 1         r = 0      

>>阅读原文<<