摘要： 在研究类这块，有个小例子对我的帮助特别大。在这里跟大家分享一下。本例中，主要讲的百米赛跑中的计时。下面是TimerTask类模块中代码：Option Explicit Public Event UpdateTime(ByVal dblJump As Double) Public Event ChangeText() Public Sub TimerTask(ByVal Duration As Double) Dim dblStart As Double Dim dblSecond As Double Dim dblSoFar As Double dblSta... 阅读全文