RosettaCodeData/Task/Loops-For/VBScript/loops-for.vb
2016-12-05 22:15:40 +01:00

9 lines
126 B
VB.net

Option Explicit
Dim i, j, s
For i = 1 To 5
s = ""
For j = 1 To i
s = s + "*"
Next
WScript.Echo s
Next