19 lines
328 B
Plaintext
19 lines
328 B
Plaintext
Dim Shared As Integer i
|
|
|
|
Sub timeit
|
|
Dim As Integer iter = 0
|
|
Dim As Double starter = Timer
|
|
While True
|
|
iter += 1
|
|
If Timer >= starter + i Then Exit While
|
|
Wend
|
|
Print iter; " iteraciones en"; i; " milisegundo"; Iif(i > 1, "s", "")
|
|
End Sub
|
|
|
|
For i = 1 To 3
|
|
timeit
|
|
Next i
|
|
|
|
i = 200 : timeit
|
|
Sleep
|