Foxtable(狐表)用户栏目专家坐堂 → 测试


  共有2480人关注过本帖树形打印复制链接

主题:测试

帅哥哟,离线,有人找我吗?
1234567
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:821 积分:6422 威望:0 精华:0 注册:2013/2/18 17:46:00
测试  发帖心情 Post By:2023/12/7 10:35:00 [只看该作者]

有1万行数据,每For Each 100行数据就输入msgbox(),求代码。

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110808 积分:563978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/12/7 10:37:00 [只看该作者]

Dim Sum As Integer
Dim 
i As Integer
For 
i = 1 to 10000
if i mod 100 = 0 then
msgbox(i)
end if
    Sum = Sum + i

Next

Output.Show(Sum)

 回到顶部