例: Timer function

' Calculate how long it takes the following loop to iterate 
' 1000 times.
Dim startTime As Single
Dim elapsedTime As Single
startTime! = Timer()
For counter% = 1 To 1000
Next counter%
elapsedTime! = Timer() - startTime!
Print "10000 iterations in "; elapsedTime; " seconds"