FizzBuzz/Basic: Difference between revisions
Content added Content deleted
(moving PureBasic) |
(moving REALbasic) |
||
Line 114: | Line 114: | ||
Next |
Next |
||
Input()</lang> |
Input()</lang> |
||
=={{header|REALbasic}}== |
|||
<lang vb> For i As Integer = 1 To 100 |
|||
If i mod 3 = 0 And i mod 5 = 0 Then |
|||
Print("FizzBuzz") |
|||
ElseIf i mod 3 = 0 Then |
|||
Print("Fizz") |
|||
ElseIf i mod 5 = 0 Then |
|||
Print("Buzz") |
|||
Else |
|||
Print(Str(i)) |
|||
End If |
|||
Next</lang> |
|||
An alternative syntax: |
|||
<lang vb> |
|||
For i As Integer = 1 To 100 |
|||
Select Case True |
|||
Case i mod 3 = 0 And i mod 5 = 0 |
|||
Print("FizzBuzz") |
|||
Case i mod 3 = 0 |
|||
Print("Fizz") |
|||
Case i mod 5 = 0 |
|||
Print("Buzz") |
|||
Else |
|||
Print(Str(i)) |
|||
End Select |
|||
Next</lang> |