DO LOOP 11.5. Label ().
. 11.5. 3 (-)
( ) FOR NEXT (.). - 11.6. , . , , ( ).
. 11.6.
4 VBA
Dim strY As String * 15
Dim strX As String * 7
Dim I As Integer
Rad = Atn(1) * 4 / 180 '
I = 0
For x = -180 To 180 Step 10
I = I + 1
strI = I
strX = x
ModX = Abs(x)
If ModX > 89 And ModX < 91 Or ModX > 269 _
And ModX < 271 Then
strY = "- "
Else
Y = b ^ sin(a ^ 2) / cos(x * Rad) - d
strY = Y
End If
lbx.AddItem strI + "| " + _
strX + "| " + strY
Next x
FOR NEXT 11.7.
. 11.7. ( 4)
*, VBA For Each Next, . ( ) , . For Each Next .
11.5 FOR NEXT
FOR NEXT , , () : , (). :
FOR _ = TO [ STEP ]
[ _ ]
[ EXIT FOR ]
NEXT [ _ [, _ ]...]
_ , ; , ; , . (STEP ) , . FOR NEXT ( !) , ( ) / + 1.
, , . (EXIT FOR) *.
|
|
NEXT , .
FOR NEXT :
For I = To
lsb.AddItem I
Next I
(. 5), () () .
5 VBA
Private Sub cmbStart_Click()
Dim I As Integer
Dim As Integer
Dim As Integer
= txtIstart.Value
= txtIstop.Value
For I = To
lsb.AddItem I
Next I
lbl.Caption = "* ="& I