VB编程求1000之内的所有完数？主要是d的初值为0，c=1，则c>d，所以永远不会执行do--loop，而且许多语句位置也不对，根据你的代码，稍微调整了一下： Private Sub Form_
VB编程求1000之内的所有完数？
主要是d的初值为0，c=1，则c>d，所以永远不会执行do--loop，而且许多语句位置也不对，根据你的代码，稍微调整了一下： Private Sub Form_Click() Dim a%， b%， c%， d% For a = 2 To 1000 b = a - 1 c = 1 d = 0 Do While c <= b If a Mod c = 0 Then d = d c End If c = c 1 Loop If a = d Then Print a End If Next a End Sub用vb语言求1000内所有的完数？
Private Sub Command1_Click（) "完数定义：一个数如果正好等于它的因子之和，这个数就称为完数。例如，6的因子为1、2、3，而6=1 2 3，因此6是＂完数＂。OutputWanNumber 1000 End Sub Sub OutputWanNumber(ByVal n As Integer) Dim i As Integer Dim j As Integer Dim s As Integer For i = 1 To n s = 0 For j = 1 To i 2 If i Mod j = 0 Then s = s j Next j If s = i
本文链接：http://21taiyang.com/Business-Operations/12869065.html
编程求1000以内的de 完数转载请注明出处来源
