求高手帮我看看这道程序有没有错！

利用FOR循环输出“完全数”
Private sub form_click()
Dim m%,n%,x%,t%,s%
m=inputbox("请输入一个数")
n=inputbox("请输入一个数")
if m>n then t=m,m=n,n=t
for x=m to n
for i=2 to x-1
if x mod i=0 then
s=s+i
next i
if s=x then
print x
next x
End sub
求高手帮我看看这道程序有没有错！