10 lines
126 B
VB.net
10 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
|