输入一个数字判断其是否为完全数？使用vb，编写函数
展开全部
Private Function IsWanShu(ByVal m As Integer) As Boolean
Dim i, k As Integer
k = 0
For i = 1 To m / 2
If m Mod i = 0 Then
k = k + i
End If
Next i
If m = k Then
IsWanShu = True
Else
IsWanShu = False
End If
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
