Unidad 8: Métodos de Optimización

Ejercicio de la Unidad 8:

Realice un programa que permita medir el rendimiento de cualquier acción.

1.
2. Private Sub Command1_Click()
3. Dim dblStart As Double
4. Dim dblEnd As Double
5. Dim i as Long
6. dblStart = Timer ' Hora de inicio.
7. For i = 0 To 9999
8. »Rutina para probar« ' Escriba su rutina aquí.
9. Next
10. dblEnd = Timer ' Hora de terminación.
11. Debug.Print dblEnd - dblStart ' Presenta el tiempo
transcurrido.
12. End Sub