Настоятельно рекомендую использовать операцию *.5 вместо /2, и вот почему.
Простенький тест уменьшит все числа ряда от 1 до 30000 двумя способами, измерив при этом время выполнения:
time1=MilliSecs()
For i=1 To 30000
a=i/2
Next
time1=MilliSecs()-time1
time2=MilliSecs()
For i=1 To 30000
a=i*.5
Next
time2=MilliSecs()-time2
Print " [\2] "+time1
Print " [*.5] "+time2
WaitKey()
У меня результаты 75 и 4 :o
Комментарии излишни...