會員登錄 立即注冊

搜索

打印 上一主題 下一主題
開啟左側

[其它] VBA中如何停止一個無終止條件的循環

[復制鏈接]
跳轉到指定樓層
樓主
etthink 發表于 2019-10-29 23:07:23 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
樓主
etthink
2019-10-29 23:07:23 357 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"))
歡迎大家多發帖,參與討論,增進彼此了解。
  • 您可能感興趣
您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則 返回列表

查看:357 | 回復:2

教育技術論壇,教育技術人交流的專業社區,專注于教育技術應用與推廣!讓更多的人了解教育技術,用好教育技術!
關于我們
社區簡介
發展歷程
聯系我們
社區管理
新手指南
申請版主
申請開店
贊助我們
微信贊助
支付寶贊助

官方微信

手機版

手機APP

站點統計| Archiver| 手机版| 小黑屋| 幫助| 教育技術論壇   
聯系電話:13355549901 地址:安徽省淮南市田家庵區朝陽街道 郵箱:[email protected] ICP備案號: ( 皖ICP備10014945號-4 )
Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.4
快速回復 返回頂部 返回列表

皖公網安備 34040302000242號

意甲球员