Question

vb编写函数iswanshu(n)判断n是否为完数,函数的返回值为布尔值。调用该函数,将？

Answer 1

Private Sub Command1_Click()

  Dim n As Integer, i As Integer

  n = CInt(InputBox("N="))

  Print n; "以内的完数有："

  For i = 2 To n

    If iswanshu(i) Then Print i

  Next i

End Sub

Function iswanshu(n As Integer) As Boolean

  s = 1

  For i = 2 To n / 2

    If n Mod i = 0 Then s = s + i

  Next i

  iswanshu = (n = s)

End Function