Question

+ VB作业题.请高手帮哈忙如果一个数的因子之和等于这个数的本身,则称这样的数为“完全数”.例如,整数的28的因子为1、

Answer 1

Private Sub Command1_Click()

Dim M1 As Integer, N1 As Integer, I As Integer

N1 = InputBox("请输入查找范围的最小值：")

M1 = InputBox("请输入查找范围的最大值：")

For I = N1 To M1

If Yues(I) = I Then Print I

Next I

End Sub

Private Function Yues(YUanshu As Integer) As Integer

Yues = 1

For I = 2 To YUanshu - 1

If YUanshu Mod I = 0 Then Yues = Yues + I

Next I

End Function