mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Loops-For/VBScript/loops-for.vb

10 lines
126 B
VB.net
Raw Permalink Blame History

Option Explicit
Dim i, j, s
For i = 1 To 5
s = ""
For j = 1 To i
s = s + "*"
Next
WScript.Echo s
Next
Reference in New Issue View Git Blame Copy Permalink