request for printing patterns with for loops tutorial

[bplus]

Code: (Select All)

Dim spaces%

Dim n%

spaces% = 20

n% = 1



Print

Print





For count% = 1 To 20

    Print String$(spaces%, " ");



    'Print String$(n%, "*")

    For i = 1 To n%

        Color Int(Rnd * 15) + 1

        Print "*";

    Next

    Print



    spaces% = spaces% - 1

    n% = n% + 2

Next

spaces% = 18

For count% = 1 To 2

    Print String$(spaces%, " ");

    Print String$(4, "|")

Next