Here's my entry:
For Local i:Int = 1 To 100 Local div35:Int = 0 If isInt(i / 3.0) Then div35 :+ 1 If isInt(i / 5.0) Then div35 :+ 2 Select div35 Case 1 Print "Fizz" Case 2 Print "Buzz" Case 3 Print "FizzBuzz" Default Print i End Select Next Function isInt:Int(num:Float) If num = Int(num) Return True Else Return False End Function