在vb中,如何计算一个程序的执行时间

使用Timer 函数来实现。

Timer 函数，返回一个 Single，代表从午夜开始到现在经过的秒数。

Microsoft Windows中，Timer函数返回一秒的小数部分。

你把你的代码发来看一下，描述不太清楚

For i = 1 To 1000000

If ProgressBar1.Value <1000000 Then

ProgressBar1.Value = ProgressBar1.Value + 1

End If

你是写在一个过程里，当然是顺序接着向下走的，如果你要进度条一秒一次就改成

ProgressBar1.Value = ProgressBar1.Value + 1

时钟代码和按钮代码是分开走的

Private Sub Command1_Click()

Dim t As Date

If IsDate(Text1.Text) Then

    t = CDate(Text1.Text)

    If Time > t Then t = t + 1

    t = t - Time

    MsgBox "现在距离" & CDate(Text1.Text) & "还有" & t

Else

    MsgBox "请输入合法的时间！"

End If

End Sub

---