2013年3月2日土曜日 [VBA] 長い長い FizzBuzz VBA でショート コーディングすることは難しい。ならいっそ、ロング コーディングしてみてはどうか。無論、DRY 原則を破らずに。これは VBA のライブラリ不足への挑戦だ。題材は FizzBuzz で。まず、FizzBuzz のメインの処理と言っていい部分、数値を取って適切な文字列を返す関数を実装する。' Program.bas Option Explicit Function FizzBuzz(ByVal n As Long) As String Select Case BitFlag(n Mod 5 = 0, n Mod 3 = 0) Case 0: FizzBuzz = CStr(n) Case 1: FizzBuzz = "Fizz" Case 2: FizzBuzz = "Buzz" Case 3: FizzBu