1
˲ Ѳ
For Next, Do Loop, For Each, While Until .
1.2
³, (), . , .
:
.
:
For = To Step
[ ]
Next .
, . ʳ :
n = + 1;
.
:
.
:
.
, While , , Until , .
ᒺ.
:
For Each in
[ ]
Next .
, ᒺ .
, .
.
VBA .
1.3
.
1.3.1 ,
, n=10 .
.
.
1
InputBox, MsgBox. 1_1.
.
:
Sub tab1()
Dim xn As Single, xk As Single, x As Single, y As Single, n As _ Integer, h As Single, st As String
st = ' st
xn = InputBox(" =")
xk = InputBox(" =")
n = InputBox(" n=")
h = (xk - xn) / n
|
|
For x = xn To xk Step h
y = (Sin(x) - 2.7) / (Abs(x) + Sqr(x ^ 4 + 1))
st = st & "x=" & x & vbTab & "y=" & y & vbCrLf
Next x
MsgBox st,,
End Sub
. 1.1:
1.1
2
y 1 EXCEL, . 1.2.
5, 5.
CommandButton1, : Caption ; Font , 14.
1.2 1
: