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

もっと、きれいに書けるよう気がする。