i = 3
Do Until Worksheets("").Cells(i, 3) = ""
i = i + 1
Loop
Worksheets("").Cells(i + 4, 1) = " "
Worksheets("").Cells(i + 4, 3) = i
End Sub
. 5.1 − 1
, . i , . 4 .
2. x=3 (0,1) 4 ( 3 4 0,1).
:
Private Sub CommandButton1_Click()
x=3: n=1
Do While x<=4
t=Sin(x)^2+Exp(3-x)
Worksheets(1).Cells (1, n) =t
x=x+0.1: n=n+1
Loop
End Sub
x 3. x<=4, 4 − x. , , x, . x<=4 , .
, . Excel.
3. q : z={1; 4; 7,5; 9; 15} a=3, z=0 (0,5) 5. . Excel.
. For... Next Do...Loop. :
. 5.2 − 3
For... Next :
Private Sub CommandButton1_Click()
a = 3
j = 18 ' j − , z
For i = 1 To 5 z
z = Worksheets("4").Cells(j, 2)
q = Sqr(z ^ 2 + 8 * a) * Log(z + 0.5)
Worksheets("4").Cells(j, 3) = q
j = j + 1
Next i
End Sub
Do...Loop :
Private Sub CommandButton2_Click()
a = 3: j = 18: z = 1
Do While z <= 5
q = Sqr(z ^ 2 + 8 * a) * Log(z + 0.5)
Worksheets("4").Cells(j, 8) = q
z = z + 0.5
j = j + 1
Loop
End Sub
Excel D15 :
|
|
=(B15^2+8*$J$7)*LN(B15+0,5).
Ÿ D16:D19 I15:I23. VBA Excel .
1. .
2. . 5.1 , . Excel.
5.1
For...Next | Do...Loop | ||