9 lines
108 B
Text
9 lines
108 B
Text
Public Sub Main()
|
|
Dim siCount As Short
|
|
|
|
Repeat
|
|
Inc siCount
|
|
Print siCount;;
|
|
Until siCount Mod 6 = 0
|
|
|
|
End
|