Question

求完全数的个数用VB代码怎么表示

Answer 1

1.完全数是是除本身的因数和等于本身。那么测试因数时只能从 1 试到(自己-1)
2.并不是没试一个数就判断是否为本身。而是除自身的“所有”因数。那么判断应该留在循环后

Private Sub Form_Click()
Dim M&, N&, x&, y&, i&

N = InputBox("请输入N的值")
M = InputBox("请输入M的值")

If M <= 0 Or N <= 0 Then
MsgBox "请输入一个正整数！", vbInformation + vbOKOnly, "错误"
Exit Sub
ElseIf N > M Then MsgBox "请输入N满足N<M", vbInformation + vbOKOnly, "错误"
Exit Sub
End If

For x = N To M
y = 0
For i = 1 To (x - 1)
If x Mod i = 0 Then y = y + i
Next i
If y = x Then Print x; "是一个完全数。"
Next x

End Sub