求大神能帮忙解决这个问题，急

完数 什么玩意

dim s as integer
dim a() as integer
dim num as integer = 0
for i = 0 to 700
foe j = i to 700
s += j
if s = i then
a(num) = i
num += 1
exit for
next
next
for i = 0 to num
textbox1.text += a(num) & vbtab
next

好好学 别挂了

我能弱弱的问这是什么意思么？num+=1？

很有可能挂了

你挂了

。。。。。

num+=1
即
num = num + 1