[分享]暂停循环实例（公开源码） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]暂停循环实例（公开源码）

共有69879人关注过本帖树形打印复制链接主题：[分享]暂停循环实例（公开源码）

qianqian1530

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

Post By：2015/12/6 13:42:00 [显示全部帖子]

'''

Vars("Mark1") = True

If Vars("s") Is Nothing Then

Vars("s") = 1

End If

Dim Sum As Integer

Dim i As Integer

For i = Vars("s") To 100

If Vars("Mark1") Then

Sum = Sum + i

Else

Vars("s") = i

End If

Output.Show(Sum)

暂停

Vars("Mark1") = False

主题：[分享]暂停循环实例（公开源码）