会员登录 立即注册

打印 上一主题 下一主题
开启左侧

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

[复制链接]
跳转到指定楼层
楼主
etthink 发表于 2019-10-29 23:07:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
楼主
etthink
2019-10-29 23:07:23 190 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"))
欢迎大家多发帖,参与讨论,增进彼此了解。
  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 返回列表

查看:190 | 回复:2

教育技术论坛,教育技术人交流的专业社区,专注于教育技术应用与推广!让更多的人了解教育技术,用好教育技术!
关于我们
社区简介
发展历程
联系我们
社区管理
新手指南
申请版主
申请开店
赞助我们
微信赞助
支付宝赞助

官方微信

手机版

手机APP

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

皖公网安备 34040302000242号