VB程序，求1到1000的所有完全数
答案:1 悬赏:10 手机版
解决时间 2021-03-23 18:00
- 提问者网友：太高姿态
- 2021-03-23 08:17
VB程序，求1到1000的所有完全数
最佳答案
- 五星知识达人网友：轮獄道
- 2021-03-23 08:48
Private Sub Command1_Click()
For i = 2 To 1000
If yinzihe(i) = i Then Print Format(i, "@@@@")
Next i
End Sub
Function yinzihe(n)
s = 0
For i = 1 To n 2
If n Mod i = 0 Then s = s + i
Next i
yinzihe = s
End Function
For i = 2 To 1000
If yinzihe(i) = i Then Print Format(i, "@@@@")
Next i
End Sub
Function yinzihe(n)
s = 0
For i = 1 To n 2
If n Mod i = 0 Then s = s + i
Next i
yinzihe = s
End Function
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯