| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何能做个按钮来中止循环计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84004) |
| -- 作者：李睿涵 -- 发布时间：2016/4/21 8:55:00 -- 如何能做个按钮来中止循环计算 有个统计按钮，里面是写了个循环来完成统计 但统计过程比较长，有时候点错了也得等好久 我想做个“中断”按钮来停止循环 请教怎么写代码？ 比方一个简单循环代码是： dim sum as integer = 0 for i as Integer = 0 to 100000000 sum = sum + i next msgbox(sum)
|
| -- 作者：Hyphen -- 发布时间：2016/4/21 8:58:00 -- 加个全局变量，循环中判断一下 dim sum as integer = 0 for i as Integer = 0 to 100000000 if vars("停止") then exit for sum = sum + i next msgbox(sum) |
| -- 作者：李睿涵 -- 发布时间：2016/4/21 9:24:00 -- 可以在循环时，点击按钮，然后对变量赋值？ |
| -- 作者：大红袍 -- 发布时间：2016/4/21 9:25:00 -- 要这样做
Dim sum As Double = 0
click事件
vars("停止") = True |