会员登录 立即注册

搜索

开启左侧

[其它] VBA中如何停止一个无终止条件的循环

[复制链接]
etthink 发表于 2019-10-29 23:07:23 | 显示全部楼层 |阅读模式
etthink
2019-10-29 23:07:23 898 2 看全部
比如用循环生成一个为断变化的随机数,如何通过按钮停止随机数的变化呢?

欢迎大家多发帖,参与讨论,增进彼此了解。
 楼主| etthink 发表于 2019-10-29 23:16:14 | 显示全部楼层
etthink
2019-10-29 23:16:14 看全部
begin
  memo1:=tmemo.Create(self);
if  button1.Caption='start' then
    button1.Caption :='stop'
Else if    button1.Caption ='stop' then
    button1.Caption :='start'
else
     button1.Caption :='stop';
Randomize ;
memo1.Text :=inttostr(random(20));
  Showmessage(memo1.Text );

end;
欢迎大家多发帖,参与讨论,增进彼此了解。
 楼主| etthink 发表于 2019-11-3 20:28:05 | 显示全部楼层
etthink
2019-11-3 20:28:05 看全部
暂停1s
Application.Wait (Now + TimeValue("00:00:01"))
欢迎大家多发帖,参与讨论,增进彼此了解。
  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 返回列表

etthink
管理员给TA私信
http://www.qiexing.com

查看:898 | 回复:2

教育技术论坛  
联系电话:13355549901 地址:安徽省淮南市田家庵区朝阳街道 邮箱:sf@etthink.com ICP备案号: ( 皖ICP备10014945号 )
Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.4
快速回复 返回顶部 返回列表