あにす #3795(2007/11/10 10:50 GMT) [ VB.net ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
Module Module1 Sub Main() For i As Integer = 1 To 20 If i <= 9 Then Console.Write(" ") End If Console.Write(i & ":") If i Mod 3 = 0 Then Console.Write("Fizz") End If If i Mod 5 = 0 Then Console.Write("Buzz") End If If i Mod 3 <> 0 AndAlso i Mod 5 <> 0 Then Console.Write("hoge") End If Console.Write(vbCrLf) Next End Sub End Module
Rating0/0=0.00-0+
[ reply ]
あにす
#3795()
[
VB.net
]
Rating0/0=0.00
Rating0/0=0.00-0+
[ reply ]