Visual Basic版FizzBuzz

FizzBuzz 5日目です。C# をやったんだから Visual Basic でも、というだけです^_^;

Namespace Rextester
  Public Module Program
    Public Sub Main(args() As string)
      For I As Integer = 1 To 100
        Dim S = If(I Mod 3 > 0, "", "Fizz") + If(I Mod 5 > 0, "", "Buzz")
        System.Console.WriteLine(S + If(S = "", I.ToString(), ""))
      Next
    End Sub
  End Module
End Namespace

ホントはもっと短くできますが、なぜか ideone.com の VB.net が動作しない……;_;　なので、こちらで動かそうとして長くなってしまいました。
Option Strict Off だったら変数の型定義要らないのに:-)

ついでに、なにかネタはないかと検索してたら、こんなのがありました→ Quite Basic
「え、Quick Basic？」と思いきや、Quite Basic です。でも、こんなプログラムが動きます:-)

10 FOR I=1 TO 100
20   IF I % 3 = 0 THEN PRINT "Fizz";
30   IF I % 5 = 0 THEN PRINT "Buzz";
40   IF (I % 3 > 0) AND (I % 5 > 0) THEN PRINT I ELSE PRINT
50 NEXT I

Quite Basic は、JavaScript で実装されているらしく、サーバーでコンパイル、なんてこともしないようです。
今は何でもありますね。