第1.40例 Timer 函数

一、题目：

　　要求编写一段代码，运用 Timer 函数来计算本代码运行所化的时间。

二、代码：

Sub 示例_1_040() Dim t, i&, a t = Timer For i = 1 To 1000000 a = a + i Next i MsgBox Timer - t & "秒" ‘返回0.046875秒 End Sub