FizzBuzz/Basic: Difference between revisions
FizzBuzz en True BASIC
(FizzBuzz en Yabasic) |
(FizzBuzz en True BASIC) |
||
Line 326:
140 NEXT I
150 END</lang>
=={{header|True BASIC}}==
<lang qbasic>
FOR number = 1 TO 100
IF MOD(number, 15) = 0 then
PRINT "FizzBuzz"
ELSEIF MOD(number, 3) = 0 then
PRINT "Fizz"
ELSEIF MOD(number, 5) = 0 then
PRINT "Buzz"
ELSE
PRINT number
END IF
NEXT number
END
</lang>
=={{header|Visual Basic .NET}}==
|