+ VB作业题.请高手帮哈忙如果一个数的因子之和等于这个数的本身,则称这样的数为“完全数”.例如,整数的28的因子为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