, . . , :
For... Next
Do... Loop
ForNext , , .
For <> = <. > <. >
< 1>
< 2>
Next
, 1. , 1 10:
For i = 1 To 10
C=i^2
MsgBox C
Next
:
For < > = < . .> < . .> Step < >
< 1>
< 2>
Next
, Sin(x) 0 1 0.1 :
For x = 0 To 1 Step 0.1
y=Sin(x)
MsgBox (y)
Next
, 1, :
i=1
For x = 0 To 1 Step 0.1
y=Sin(x)
Worksheets(1).Cells(i, 1)=y
i=i+1
Next
Step , .
Do...Loop , , . , . 4 Do...Loop, :
1) While , , .. , , .
Do While <> < > Loop | , , . |
Do <> Loop While <> | , , , . |
2) Until , , .. , , .
Do Until <> <> Loop | , , . |
Do <> Loop Until <> | , , , . |
1. :
z={1; 4; 7,5; 9; 15}