'fizzbuzz.sb とりあえず書いてみたレベル
For n = 1 To 100
    f=Math.Remainder(n,3)
    b=Math.Remainder(n,5)
    s=""
    If f = 0 Then
        s="Fizz"
    EndIf
    If b = 0 Then
        s=s+"Buzz"
    EndIf
    If f*b > 0 Then
        s=n
    EndIf
    TextWindow.WriteLine(s)
EndFor