新人请教

程序由1加到100，累加值慢慢的跳，不要一下子就显示答案5050，要能够看出变化过程…新人请教。谢谢

for i=1 to 100
a=a+1
print a
next i

不感兴趣

开通SVIP免广告

用timer控件

For i = 1 To 100
a = a + i
DoEvents
Sleep 1000
Print a
Next i

是不是想看
1+2=3
3+3=6
6+4=10
......

For i = 1 To 100
a = a + i
DoEvents
Sleep 500
Print a-i&“+”&i&“=”&a
Next i
是不是想看
1+2=3
3+3=6
6+4=10
......
用我的吧。。。

下载贴吧APP
看高清直播、视频！

分享到: