#!/usr/bin/env /friends/bin/vbscript
For i As Integer = 1 To 30
    Select Case 0
        Case i mod 15
             Console.WriteLine("FizzBuzz")
        Case i mod 5
             Console.WriteLine("Buzz")
        Case i mod 
             Console.WriteLine("Fizz")
        Case Else
             Console.WriteLine(i)
    End Select
Next