解答例/FizzBuzz/Excel VBA の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• 解答例/FizzBuzz/Excel VBA へ行く。
  • 1 (2013-07-13 (土) 01:12:46)

練習問題

Sub Fizzbuzz()
Dim num As Integer
num = Range("A1").Value
   For i = 1 To num
        'i mod 15 = 0でもよい
        If i Mod 3 = 0 And i Mod 5 = 0 Then
            Cells(i, 2).Value = "FizzBuzz"
        ElseIf i Mod 5 = 0 Then
            Cells(i, 2).Value = "Buzz"
        ElseIf i Mod 3 = 0 Then
            Cells(i, 2).Value = "Fizz"
        Else
            Cells(i, 2).Value = i
        End If
   Next i
End Sub

変というかレベル高いのは
http://www.env.kochi-tech.ac.jp/monma/vba_seminar/pages/quizzes/fizzbuzz.html