请教VB高手一个程序运行时间的问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 13:54:48
我怎么知道一个程序从头到尾运行完需要多长时间呢？比如可能需要3ms，怎么能测出来呢？

你可以这样计算：
开始程序前先运行一段代码
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim PerTime as Long

Private Sub Form_load()
Dim Timer1 as Long
Timer1 = GetTickCount
这里写一段代码
PerTime = GetTickCount - Timer1 '这里的PerTime就是运行以上计算量的代码所需要的时间，其他代码可以通过这个PerTime变量和其他代码的计算量推出其他代码的运行时间(注：GetTickCount可以获得系统自启动以来的时间，很精确)
End Sub

这个嘛,应该和电脑的硬件运算速度有关.在不同的系统里也可能不同,不大好说咯.

在计算前记录一个时间，计算后记录一个，最后作差。

public ST!

程序头部加入 ST!=Timer
程序尾部加入 msgbox Timer-ST!