2008-03-26から1日間の記事一覧
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 …
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 …