Anonymous user
FizzBuzz/Basic: Difference between revisions
moving REALbasic
(moving PureBasic) |
(moving REALbasic) |
||
Line 114:
Next
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>
| |||