【实例说明】
    本例将介绍如何计算运行某段程序的所用的时间。提高代码运行速度最简单的方法莫过于使用正确的数据类型了。也许你不相信，但是正确地选择数据类型可以大幅度提升代码的性能。在大多数情况下，程序员可以将Single，Double和Currency类型的变量替换为Integer或Long类型的变量，因为VB处理Integer和Long的能力远远高于处理其它几种数据类型。

【编程思路】
    测试程序时间的便是API函数timeGetTime()。
    API函数timeGetTime：Declare Function timeGetTime Lib "winmm.dll" () As Long

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。

    2.源程序  [素材源程序下载]


Option Explicit

'API Function
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Form_Load()
        Dim t1 As Long, t2 As Long, t As Long
        Dim i As Long, sum As Long
        Const num As Long = 1000
        Const str As String = "(1+2+3+...+100)"
        sum = 0

        t1 = timeGetTime

        For t = 1 To num
                sum = 0
                For i = 1 To 100
                        sum = sum + i
                Next i
        Next t

        t2 = timeGetTime

        t = t2 - t1
        MsgBox num & "次" & str & "所用时间为：" & t & "(MilliS)", , "『VB网』"
        Unload Me
End Sub