form1.frm

计算执行一个程序所花的时间计算执行一个程序所花的时间计算执行一个程序所花的时间

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Visual Basic 实战网 - 计算执行一个程序所花的时间"
   ClientHeight    =   6084
   ClientLeft      =   1584
   ClientTop       =   1752
   ClientWidth     =   5292
   LinkTopic       =   "Form1"
   ScaleHeight     =   6084
   ScaleWidth      =   5292
   WindowState     =   2  '最大化
   Begin VB.CommandButton Command1 
      Caption         =   "执行"
      Height          =   660
      Left            =   1104
      TabIndex        =   0
      Top             =   720
      Width           =   1764
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'1.程式名称：计算执行一个程序所花的时间
'2.开发日期：09/15/1997
'3.开发环境：Visual Basic 5.0 中文专业版 + SP3
'4.作者姓名：宋世杰 (小翰,Jaric)
'5.作者信箱：[e-mail]
'6.作者网址：http://fly.to/jaric 或 http://tacocity.com.tw/jaric
'7.网址名称：Visual Basic 实战网
'8.注意事项：您可以任意散布本程式，但是请勿将以上说明删除，谢谢！
'                     如果本程式经过您的修改，可以在下方加入您的个人资讯。
'9.VB乐园整理
Option Explicit

Private Sub Command1_Click()
     Dim sngBeginTime As Single
     Dim sngDuration As Single
     Dim lngCount As Long
     Dim dbl As Double
     sngBeginTime = Timer
     For lngCount = 1 To 10000000
          dbl = dbl + lngCount
     Next
     sngDuration = Timer - sngBeginTime
     MsgBox "执行这个程序总共耗时" & Format(sngDuration, "0.###") & "秒"
End Sub