高考问答酸奶机做的酸奶好吃吗?:求高手VB编程~~~~
来源：百度文库 编辑：高考问答 时间：2024/05/03 22:50:20
6＝1+2+3 编个程序 ，找出所有1000以内的这种数 程序怎么写？会吗？
就是求出1000以内所有这样的数,三个数相加等于一个数的
就是求出1000以内所有这样的数,三个数相加等于一个数的
你说的是完全数吧
Option Explicit
Private Sub Command1_Click()
Dim i As Long
For i = 2 To 1000
If (GetGeneSum(i) = i) Then
Debug.Print i
End If
Next
End Sub
Function GetGeneSum(ByVal n As Long) As Long
Dim i As Long
For i = 1 To n - 1
GetGeneSum = GetGeneSum + IIf((0 = n Mod i), i, 0)
Next i
End Function
运行结果
6
28
496
什么意思，6 = 1 + 2 + 3 怎么了？