RosettaCodeData/Task/Loops-For/Visual-Basic/loops-for.vb

8 lines
148 B
VB.net

Public OutConsole As Scripting.TextStream
For i = 0 To 4
For j = 0 To i
OutConsole.Write "*"
Next j
OutConsole.WriteLine
Next i