. VBA . WhileWend ForNext. (.5.1.). :
1. .
2. . , . , ( ). , , .
3. .
4. 2.
5.1. WhileWend
:
While <>
< >
Wend
, :
k=1
While k<=N+1
y=k+N
MsgBox k= & k & N=, & N _
& y=& y
k=k+0.5
Wend
, . :
k=1
While k<=N+1 and N>0
y=k+N
MsgBox k= & k & N=, & N _
& y=& y
k=k+0.5
Wend
- ;
- .
. , . . Esc Ctrl + Break.
ForNext, .. .
5.2. ForNext
ForNext .
:
For = [Step ]
< >
Next []
:
. . .
. , .
. , .
Step
. . ( 1).
, .. .
Next -. , . For Next, , .
|
|
, ForNext :
For i=1 To p
y=x+1
Cells (1+i,1)=i: Cells (1+i,2)=x;
Cells (1+i,3)=y
x=x+DX
Next
i 1 p 1. i , 1 ( ). .. p .
, , 2, For :
For i=1 To p Step 2
. .
:
For i = N To 1 Step -1
< >
Next
ForNext . , .
:
Ø For i = 1 To N Step 0.2
y = x + 1
MsgBox "i=" & i & " y=" & y
Next
0,2. x, 4, .
Ø For i = 1.5 To 3
y = x + 1
MsgBox "i=" & i & " y=" & y
Next
: i=1.5 i=2.5
Ø For i = 1.5 To 3.7 Step 0.5
y = x + 1
MsgBox "i=" & i & " y=" & y
Next
: i=1.5, i=2, i=2.5, i=3 i=3.5.
ForNext . . , .
.
5.1. y=2x(x+b) x, .
Excel.
y | y | . | |
x | x | ||
b | b | . | |
x | XN | ||
x | XK | ||
x | DX | (>0) | |
N |
:
XN, XK | XN>XK | |
DX | £0 |
XN, XK DX
|
|
(XK<=XN) Or (DX<=0)
, , .
.5.2, .5.3.
Sub Pr5_1()
Dim y As Single, x As Single, b As Single
Dim XN As Single, XK As Single, DX As Single
Dim N As Byte
'
b = InputBox(" b")
XN = InputBox(" ")
XK = InputBox(" ")
DX = InputBox(" ")
'
If (XK<=XN) Or (DX<=0) Then
Cells(1, 1) = " :"
Cells(2, 1) = "XN=" & XN: Cells(3, 1) = "XK" & XK
Cells(4, 1) = "DX=" & DX
Else
'
Cells(1, 1) = "": Cells(1, 2) = "x": Cells(1, 3) = "y"
N = 1
x = XN
While x <= XK
y = 2 * x * (x + b)
Cells(1 + N, 1) = N: Cells(1 + N, 2) = x
Cells(1 + N, 3) = y
N = N + 1
x = x + DX
Wend
Cells(1 + N + 1, 1) = " b=" & b
End If
End Sub
5.2.
x, .
. .
y | y | . | |
x | x | ||
x | XN | ||
x | XK | ||
x | DX | ||
N | |||
f |
: , x , - 5.1. , .. : 1, 2 3.
.5.4, .5.5.
Sub Pr5_2()
Dim y As Single, x As Single
Dim XN As Single, XK As Single, DX As Single
Dim N As Byte, f As Byte
'
XN = InputBox(" ")
XK = InputBox(" ")
DX = InputBox(" ")
If (XK<=XN) Or (DX<=0) Then
Cells(1, 1) = " :"
Cells(2, 1) = "XN=" & XN: Cells(3, 1) = "XK=" & XK
Cells(4, 1) = "DX=" & DX
Else
'
Cells(1, 1) = "": Cells(1, 2) = "x" '
Cells(1, 3) = "y": Cells(1, 4) = ""
N = 1 '
For x = XN To XK Step DX '
If x >3 Then
y = x - 1: f = 1 ' 1
ElseIf x < -3 Then
y = x + 1: f = 2 ' 2
Else
y = x^2: f = 3 ' 3
End If
Cells(1 + N, 1) = N: Cells(1 + N, 2) = x '
Cells(1 + N, 3) = y: Cells(1 + N, 4) = f ' y
N = N + 1 '
Next
End If
End Sub
: 5.1 While Wend, 5.2 For Next.
1. ., . VBA Jffice 2000: .-.: , 2001. -432.
|
|
2. .. Excel, VBA, Internet . .: -,2002. 816 .; .
3. .. VBA 2002. .: -, 2003 . 880 .; .
4. . Visual Basic (5) : . . .: BHV -, 1998. 704 .
5. . Visual Basic 6: . .: , 2002. 576 .: .
6. . Visual Basic 6: . .: , 2002. 416 .: .
7. ., . Visual Basic 6.0: . . .: BHV, 2000. 288 . ( )