RosettaCodeData/Task/Loops-For/Visual-Basic/loops-for.vb
2023-07-01 13:44:08 -04:00

7 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