VBA高手进来帮帮忙~解释一个程序就好了~

来源：百度知道 编辑：UC知道 时间：2024/05/04 15:50:57
就是这段代码啦~
是照葫芦画瓢编出来的，所以不知道具体的意思
请把每一句都解释一遍，我很菜。。。
特别是。。。为什么用savetime,这个词是什么意思？
反正每一句解释得浅显易懂就好了
~谢了~！
Private Sub CommandButton1_Click()
savetime = Timer
While Timer < savetime + 10
DoEvents
TextBox1.Text = 10 - (Timer - savetime)
Wend
CommandButton1.Caption = "stop"
End Sub

Private Sub CommandButton1_Click() '定义一个按钮单击过程
savetime = Timer '把Timer赋值给savetime变量
While Timer < savetime + 10 '当Timer小于savetime+10时(开始循环)
DoEvents '做你想做的事情
TextBox1.Text = 10 - (Timer - savetime) 'TextBox1编辑框显示10,9,8的倒计过程。
Wend '结束循环
CommandButton1.Caption = "stop" 'TextBox1编辑框显示stop
End Sub '结束过程

Bxybo都回答过了，还不错，我就不麻烦了。。

这是一段倒计时的代码：

Private Sub CommandButton1_Click()
savetime = Timer '以当前时间为计时起点，存入变量savetime
While Timer < savetime + 10 '倒计时范围是10秒
DoEvents
TextBox1.Text = 10 - (Timer - savetime) '实时显示倒计时过程
Wend
CommandButton1.Caption = "stop" '倒计时结束后CommandButton1按钮显示stop信息
End Sub