Beat this:-
for loop = 1 to 100 Select loop Case 1:Print "1" Case 2:Print "2" Case 3:Print "Fizz" Case 4:Print "4" Case 5:Print "Buzz" Case 6:Print "Fizz" Case 7:Print "7" Case 8:Print "8" Case 9:Print "Fizz" Case 10:Print "Buzz" Case 11:Print "11" Case 12:Print "Fizz" Case 13:Print "13" Case 14:Print "14" Case 15:Print "FizzBuzz" Case 16:Print "16" Case 17:Print "17" Case 18:Print "Fizz" Case 19:Print "19" Case 20:Print "Buzz" Case 21:Print "Fizz" Case 22:Print "22" Case 23:Print "23" Case 24:Print "Fizz" Case 25:Print "Buzz" Case 26:Print "26" Case 27:Print "Fizz" Case 28:Print "28" Case 29:Print "29" Case 30:Print "FizzBuzz" Case 31:Print "31" Case 32:Print "32" Case 33:Print "Fizz" Case 34:Print "34" Case 35:Print "Buzz" Case 36:Print "Fizz" Case 37:Print "37" Case 38:Print "38" Case 39:Print "Fizz" Case 40:Print "Buzz" Case 41:Print "41" Case 42:Print "Fizz" Case 43:Print "43" Case 44:Print "44" Case 45:Print "Fizz" Case 46:Print "46" Case 47:Print "47" Case 48:Print "Fizz" Case 49:Print "49" Case 50:Print "Buzz" Case 51:Print "Fizz" Case 52:Print "52" Case 53:Print "53" Case 54:Print "Fizz" Case 55:Print "Buzz" Case 56:Print "56" Case 57:Print "Fizz" Case 58:Print "58" Case 59:Print "59" Case 60:Print "FizzBuzz" Case 61:Print "61" Case 62:Print "62" Case 63:Print "Fizz" Case 64:Print "64" Case 65:Print "Buzz" Case 66:Print "Fizz" Case 67:Print "67" Case 68:Print "68" Case 69:Print "Fizz" Case 70:Print "Buzz" Case 71:Print "71" Case 72:Print "Fizz" Case 73:Print "73" Case 74:Print "74" Case 75:Print "FizzBuzz" Case 76:Print "76" Case 77:Print "77" Case 78:Print "Fizz" Case 79:Print "79" Case 80:Print "Buzz" Case 81:Print "Fizz" Case 82:Print "82" Case 83:Print "83" Case 84:Print "Fizz" Case 85:Print "Buzz" Case 86:Print "86" Case 87:Print "Fizz" Case 88:Print "88" Case 89:Print "89" Case 90:Print "FizzBuzz" Case 91:Print "91" Case 92:Print "92" Case 93:Print "Fizz" Case 94:Print "94" Case 95:Print "Buzz" Case 96:Print "Fizz" Case 97:Print "97" Case 98:Print "98" Case 99:Print "Fizz" case 100:Print "Buzz" End Select Next