VBA - 显示子程序运行所需的时间

使用VBA编程语言可以轻松地显示子程序运行所需的时间。这对于优化代码和改进程序的性能非常有用。在本文中，我们将介绍如何使用VBA编写代码来测量子程序的运行时间，并提供一个实际的案例来演示其用法。

vba
Sub MeasureTime()
    Dim startTime As Double
    Dim endTime As Double
    Dim elapsedTime As Double
    
    '记录开始时间
    startTime = Timer
    
    '执行子程序
    '这里可以是任何你想要测量的代码
    
    '记录结束时间
    endTime = Timer
    
    '计算运行时间
    elapsedTime = endTime - startTime
    
    '显示运行时间
    MsgBox "子程序运行时间为：" & elapsedTime & "秒"
End Sub

vba
Sub BubbleSort()
    Dim arr() As Variant
    Dim startTime As Double
    Dim endTime As Double
    Dim elapsedTime As Double
    Dim i As Long
    Dim j As Long
    Dim temp As Variant
    
    '生成随机数组
    ReDim arr(1 To 1000)
    For i = 1 To 1000
        arr(i) = Int((100 - 1 + 1) * Rnd + 1)
    Next i
    
    '记录开始时间
    startTime = Timer
    
    '冒泡排序
    For i = 1 To UBound(arr) - 1
        For j = 1 To UBound(arr) - i
            If arr(j) > arr(j + 1) Then
                temp = arr(j)
                arr(j) = arr(j + 1)
                arr(j + 1) = temp
            End If
        Next j
    Next i
    
    '记录结束时间
    endTime = Timer
    
    '计算运行时间
    elapsedTime = endTime - startTime
    
    '显示运行时间
    MsgBox "排序运行时间为：" & elapsedTime & "秒"
End Sub