12 lines
204 B
Text
12 lines
204 B
Text
|
Option Explicit
|
||
|
|
Sub LoopEx()
|
||
|
|
Dim i As Long, j As Long, s As String
|
||
|
|
For i = 1 To 5
|
||
|
|
s = ""
|
||
|
|
For j = 1 To i
|
||
|
|
s = s + "*"
|
||
|
|
Next
|
||
|
|
Debug.Print s
|
||
|
|
Next
|
||
|
|
End Sub
|