VB編程題 求編寫：如果壹個數的因子之和等於這個數的本身，則稱這樣的數為“完全數”。

form load()

'int i,j,m,n,sum

m =inputbox("輸入最小正整數")

n =inputbox ("輸入最大正整數")

for j=m to n

sum=0

for i=1 to j

if (j mod i=0) and (i <>j ) then sum=sum i

next

if j=sum then print sum & " 是完全數"

next

print "查找完畢"

beep

end sub