UC知道vb编程，怎样找到介于n于m之间的最小的完美数？
来源：百度知道 编辑：UC知道 时间：2024/06/24 06:21:17
vb编程，怎样找到介于n于m之间的最小的完美数？n和m为自变量时
Option Explicit
Function parfaitlpp(ByVal n As Integer, m As Integer) As Integer
'hypothese: n,m>=0
'Renvoie: le plus grand nombre parfait entre deux entiers n et m
Dim i As Integer
Dim j As Integer
Dim parfait As Boolean
Dim somme As Integer
somme = 0
For j = n To m
For i = 1 To j / 2
If j Mod i = 0 Then
somme = somme + i
Else
somme = somme
End If
Next i
Next j
parfait = somme = j
parfaitllp = j
End Function
以上是我写的，总是有问题，但我不会改。请问怎样做？
Option Explicit
Function parfaitlpp(ByVal n As Integer, m As Integer) As Integer
'hypothese: n,m>=0
'Renvoie: le plus grand nombre parfait entre deux entiers n et m
Dim i As Integer
Dim j As Integer
Dim parfait As Boolean
Dim somme As Integer
somme = 0
For j = n To m
For i = 1 To j / 2
If j Mod i = 0 Then
somme = somme + i
Else
somme = somme
End If
Next i
Next j
parfait = somme = j
parfaitllp = j
End Function
以上是我写的，总是有问题，但我不会改。请问怎样做？
前10个完全数
6
28
496
8128
130816
2096128
33550336
536854528
8589869056
137438693128
我觉得楼主编这求完美数 挺没意义的~而且不太现实 科学家都只能求出46个来~
而前几个数就这么大了~完全没必要求它~都是固定的
语句没发现有啥错误。
n