15
VBA
: VBA, , .
. .
, .. .
:
If <> Then
<_1>
Else
<_2>
End If]
If, Then, Else, End If VBA (, , , );
<> ;
< _1>, < _2> VBA.
. <>. True (), <_1>, <_2> . False (), , <_1> , <_2>.
, Else, , . , True, , Then; .
-. - :
| ||||
| ||||
| ||||
|
:
 
|
. :
If <_1> Then
<_1>
ElseIf <_2> Then
<_2>
Else
<_n>
End If]
1
1. . .
, .
- . : (a) ; () .
() ()
, , . , . True () False ().
, True ; False .
|
|
|
VBA .
()
Sub __ ()
Dim A As Integer, B As Integer, C As Integer
A= Val (InputBox ( , ))
B= Val (InputBox ( , ))
If A>=B Then
C=A
Else
C=B
End If
MsgBox & C,
End Sub
. A=5, B=8.
| A | B | C | |||
| A= Val (InputBox ( , )) | - | - | |||
| B= Val (InputBox ( , )) | - | ||||
| A>=B | - | 5>=8, False () | |||
| C=B | |||||
| MsgBox & C, |
() .
2.
A, B C.
: A B - , , D. D C. D.
.
| : , . , , . : . , , And (), Or (). Xor( ), Not (). |
, , :
If (A>=B) And (A>=C) Then D=A
If (B>=A) And (B>=C) Then D=B
If (C>=A) And (C>=B) Then D=C
, .
1-3 . - .
1
1. . , , .
2. (x1, y1) (x2, y2). , , .
3. ( ). , . , .
4. x y, . , .
5. XOY . , : .
|
|
|
6. m, n. , , , , .
7. N. , .
8. , .
9. , N .
10. , a, b, c .
11. , a, b, c .
12. , a, b, c .
13. a, b, c.
14. a, b, c.
15. a, b, c.
16. , a, b, c k.
17. : ., . . , .
18. . , , .. .
19. -. : ? ͔. ! !.
20. v1 /. t v2 /. , , n .
21. x y , x , y .
22. , ( 1 31, 1 12). , .
23. , , n.
2.
1. 3 .
2. , , . , , .
3. max{min{a, b}, min{c, d}}.
4. , b, . , d. d, max{d-a, d-b, d-c}.
5. 1(x1, y1 ), A2(x2, y2), 3(x3, y3), 4(x4, y4). , .
6. (x1, y1), B(x2, y2), C(x3, y3). , . , ABC.
7. , b, . , <b<, , .
8. , b, . , b,c .
9. , b, . , . , .
10. ax3 + b = 0 , b.
11. R. , .
12. x, y, z. :
13. x. : sinx, cosx. lnx. - x , , .
14. A, B X, Y, Z . , .
|
|
|
15. , . , , .
16. , , , , . (x1, y1) (x2, 0), (x3, y3), (x4, 0) , , , , .
17. N ; 3 ; . . ?
18. , , - .
19. , a1, a2, a3 a4 , ; n.
20. , , (.. , 32767). , , .
3.
x :
1. 
| 2. 
|
2. 
| 4. 
|
5.  
| 6. 
|
7. 
| 8. 
|
9. 
| 10. 
|
11. 
| 12. 
|
1. . VBA?
2. -.
3. VBA.
4. . .
