dim as double tim = timer
dim as double testdouble
dim as single testsingle
for i as ulong = 0 to 100000000
    testdouble += 0.123
next
print "Double: "&timer-tim
tim = timer
for i as ulong = 0 to 100000000
    testsingle += 0.123
next
print "Single: "&timer-tim