VBA中如何停止一个无终止条件的循环

etthink · 发表于 2019-10-29 23:07:23

比如用循环生成一个为断变化的随机数，如何通过按钮停止随机数的变化呢？

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;