FizzBuzzVB

Module1.vb

Module Module1

    Sub Main()
        Dim count = 100

        Dim result = From i In Enumerable.Range(1, count)
                     Select New With {
                        .Number = i, _
                        .FizzBuzz = IIf(i Mod 15 = 0, "FizzBuzz",
                                        IIf(i Mod 3 = 0, "Fizz",
                                            IIf(i Mod 5 = 0, "Buzz", "")
                                        )
                                    )
                     }

        For Each item In result
            Console.WriteLine("{0} : {1}", item.Number, item.FizzBuzz)
        Next

        Console.ReadKey()
    End Sub

End Module