FizzBuzz 問題
FizzBuzzとは - はてなキーワード
VB で書いてみた。こんな感じかなぁ。
Option Explicit Public Sub FizzBuzzProblem() Dim i As Integer Dim output As String For i = 1 To 100 Select Case IIf(i Mod 3 = 0, 0, 1) & ":" & IIf(i Mod 5 = 0, 0, 1) Case "1:1": output = output & i & vbCrLf Case "0:1": output = output & "Fizz" & vbCrLf Case "1:0": output = output & "Buzz" & vbCrLf Case "0:0": output = output & "FizzBuzz" & vbCrLf End Select Next i Debug.Print output End Sub
実行結果
1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 23 Fizz Buzz 26 Fizz 28 29 FizzBuzz 31 32 Fizz 34 Buzz Fizz 37 38 Fizz Buzz 41 Fizz 43 44 FizzBuzz 46 47 Fizz 49 Buzz Fizz 52 53 Fizz Buzz 56 Fizz 58 59 FizzBuzz 61 62 Fizz 64 Buzz Fizz 67 68 Fizz Buzz 71 Fizz 73 74 FizzBuzz 76 77 Fizz 79 Buzz Fizz 82 83 Fizz Buzz 86 Fizz 88 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz
あと、NabeAtzz も書いてみた。
そろそろ FizzBuzz に飽きた - にぽたん研究所
Option Explicit Public Sub NabeAtzz() Dim i As Integer Dim output As String For i = 1 To 40 output = output & ConvHiragana(i) & vbCrLf Next i Debug.Print output End Sub Public Function ConvHiragana(ByVal suji As Integer) As String Dim tmp As String tmp = CStr(suji) If InStr(1, tmp, "3") > 0 Or suji Mod 3 = 0 Then Select Case Len(tmp) Case 2: tmp = IIf(Left$(tmp, 1) = "1", vbNullString, Left$(tmp, 1)) & "じゅう" & Right$(tmp, 1) End Select tmp = Replace$(tmp, "0", vbNullString) tmp = Replace$(tmp, "1", "いち") tmp = Replace$(tmp, "2", "に") tmp = Replace$(tmp, "3", "さん") tmp = Replace$(tmp, "4", "よん") tmp = Replace$(tmp, "5", "ご") tmp = Replace$(tmp, "6", "ろく") tmp = Replace$(tmp, "7", "なな") tmp = Replace$(tmp, "8", "はち") tmp = Replace$(tmp, "9", "きゅう") End If ConvHiragana = tmp End Function
実行結果
1 2 さん 4 5 ろく 7 8 きゅう 10 11 じゅうに じゅうさん 14 じゅうご 16 17 じゅうはち 19 20 にじゅういち 22 にじゅうさん にじゅうよん 25 26 にじゅうなな 28 29 さんじゅう さんじゅういち さんじゅうに さんじゅうさん さんじゅうよん さんじゅうご さんじゅうろく さんじゅうなな さんじゅうはち さんじゅうきゅう 40
もっと、きれいに書けるよう気がする。