1   2   3
::: [ "] [ ] :::         [ ]

For

For





For
Do



.



:





For a=
To



()



Next


:(a)







:





For a = 0
To 5

MsgBox '', vbMsgBoxRight, a

Next


0 a



5 .



a . :
Next







: For
. :



. For For





:





For s = 0
To 1



'

For a = 0 To 2

Print 's='; s, 'a='; a


Next

'



Print ''

Next


For



Timer Interval=100





Dim h

Dim w

h = Me.Height / 2

w = Me.Width / 2

For i = 1 To w

Me.Circle (h, w), i, RGB(Rnd * 100, Rnd * 200,
Rnd * 90)

Next


For Do
.



. .







- -
1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 -

: 168 : 84