このページに関してのお問い合わせはこちら
プログラマーなら「FizzBuzz問題」解けるよな?
ツイート
6
:
んじゃVBA
:
2008/04/29(火) 21:12:18
Dim s, i
For i = 1 To 100: s = s & IIf(i Mod 15 = 0, "FizzBuzz", IIf(i Mod 3 = 0, "Fizz", IIf(i Mod 5 = 0, "Buzz", i))) & vbCrLf: Next
MsgBox s