RosettaCodeData/Task/Loops-For/BASIC/loops-for-16.basic

Public OutConsole As Scripting.TextStream
For i = 0 To 4
    For j = 0 To i
        OutConsole.Write "*"
    Next j
    OutConsole.WriteLine
Next i
September Morn Update 2019-09-12 10:33:56 -07:00			`Public OutConsole As Scripting.TextStream`
			`For i = 0 To 4`
			`For j = 0 To i`
			`OutConsole.Write "*"`
			`Next j`
			`OutConsole.WriteLine`
			`Next i`