下面这个题的VB编程怎么写啊“完全数是指一个数恰好等于它的因子之和.例如6=1+2+3,因而6是完全数,编制

问题描述:

下面这个题的VB编程怎么写啊“完全数是指一个数恰好等于它的因子之和.例如6=1+2+3,因而6是完全数,编制

你的问题不全,下面程序找的是1000以内的完全数.Private Sub Command1_Click()Dim i As Integer, s As IntegerFor i = 2 To 1000s = 0For j = 1 To i - 1If i Mod j = 0 Then s = s + jNext ...