Private Sub Command1_Click()
For n = 1 To 1000
s = "" '这一句要加上
Sum = 0
For i = 1 To n / 2
If n Mod i = 0 Then
Sum = Sum + i
s = s + Str(i) + "+"
End If
Next i
If n = Sum Then
s = Left(s, Len(s) - 1)
Picture1.Print s; "="; n '这里 Picture1是图片框的名字
End If
Next n
End Sub
什么叫做“完数”？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024