. . n .
.
Private Sub Sum()
'. n
' -1/12; 2/26;...; (-1)^i (i^2/(3*i^2+5*i+4)
' n .
Dim , n As Integer
Dim f, s As Single
n = Val(InputBox(" n!"))
For i = 1 To n
a = ((-1) ^ i) * ((i ^ 2) / (3 * i ^ 2 + 5 * i + 4))
s = s + a
MsgBox "i=" & Format(i, "00") & " a=" & _
Format(a, "000.000")
Next i
MsgBox "n=" & Format(n, "00") & " s=" & _
Format(s, "000.000")
End Sub
11.10. Do Loop
Do While Loop :
Do While <>
< 1>
[ Exit Do ]
< 2>
Loop
<> - , : True False;
< 1>, < 2> - VBA .
Do While Loop . Do . ³ , , <>: True False. <> True, , , < 1> < 2>. , . . <> True, .. , <> . . , , [ Exit Do ], , . Do While Loop , . .
Do Loop While :
Do
< 1>
[ Exit Do ]
< 2>
Loop While <>
. Do Loop While , . .
Do Until Loop :
Do Until <>
< 1>
[ Exit Do ]
< 2>
Loop
|
|
Do Until Loop . Do . <> False, , , < 1> < 2>. , . <> False, .. , <> . . , , [ Exit Do ], , . .
Do Loop Until :
Do Until
< 1>
[ Exit Do ]
< 2>
Loop Until <>
. .