For i = m To n
sum = 0
For j = 1 To i / 2
If i Mod j = 0 Then
sum = sum + j
End If
Next j
If sum = i Then
Print i
End If

Next i

'求m 到n 之间的完全数

其中 把 i/2 改为 i 结果就不能显示,请问是为什么呢??

当然了 你知道什么是完全数吗？
你改成i 等于多加了一个自己！ 自己mod自己当然等于 0

你改成i－1就不会有错 不过从算法角度来说 i/2 后面的再去判断没有意义 因为不会有比自己的一半还大的约数。