fslashtさめ経由、FizzBuzz問題をVisualBasic Scriptで実行してみた。
他言語と比較するまでもなく簡単に実装可能ですなぁ…。

なお、FizzBuzz.vbsを単体実行すると、WScript.Echo() はWindows Formのメッセージボックスを表示する。
OKボタンを100回押すことになるので注意されたし。

'
' 1.以下のスプリクトをテキスト形式で保存。
'   ファイル名：FizzBuzz.vbs
' 2.コマンドプロンプトで実行する。
'   cscript //NoLogo FizzBuzz.vbs | more
'
    Option Explicit
    Dim iLoop       ' ループカウンタ
    Dim strMsg      ' メッセージ出力
 
    For iLoop = 1 to 100 step 1
        strMsg = ""
 
        ' 3で割り切れる値ならFizzをセット。
        If ((iLoop Mod 3) = 0) then
            strMsg = "Fizz"
        end if
 
        ' 5で割り切れる値ならBuzzをセット。
        If ((iLoop Mod 5) = 0) then
            If (RTrim(strMsg) <> "") then: strMsg = strMsg & space(1)
            strMsg = strMsg & "Buzz"
        end if
 
        ' 上記以外の場合は数値をセット。
        If (RTrim(strMsg) = "") then: strMsg = CStr(iLoop)
 
        Call WScript.Echo(strMsg)
    next

# すらどでコードを公開するのはこれが初めてかもしれず。
----
2007/06/26 17:00 追記
初エントリからちょうど４年が経過してました。