vb 判断一个数是不是完数

判断一个数是不是完数Private Sub Command1_Click()Dim m As Integer, i As Integer, j As Integer, sum As IntegerDi