| 1,0668 | |
| 2,1336 | |
| 21,336 | |
| 711,2 | |
| 44,45 | |
| 304,8 | |
| 25,4 | |
| 2,54 | |
| 0,254 |
| 1,138 2 | |
| 10,925 2 | |
| 4,552 2 | |
| 0,05058 2 | |
| 19,758 2 | |
| 9,290 2 | |
| 6,452 2 | |
| 6,452 2 |
,
| 9,713 3 | |
| 0,3597 3 | |
| 87,824 3 | |
| 28,317 3 | |
| 16,387 3 | |
| 16,387 3 | |
| 12.299 | |
| 1,230 | |
| 0,7687 | |
| 0,6150 | |
| 123,0 3 | |
| ( ) | 0,2624 3 |
| 3,280 |
| 163,8 | |
| 16,38 | |
| 409,5 | |
| 12,80 | |
| 4,266 | |
| 44,43 |
:
2, 2, 2, (), (), 2 - .
| : | : | |||||
| 2 | 2 | 2 | () | () | 1 2 : | |
| 1 2 : | 0,01 | 0,0001 | 0,000001 | 0,00000001 | 0,0000000001 | |
| 1 2 : | 0,01 | 0,0001 | 0,000001 | 0,00000001 | ||
| 1 2 : | 0,01 | 0,0001 | 0,000001 | |||
| 1 : (=1 :) | 0,01 | 0,0001 | ||||
| 1 : | 0,01 | |||||
| 1 2 : |
2
If Select Case.
1. :
1.1. .
1.2. .
2. :
2.1. .
2.2. IBM PC/XT.
2.3. MS Office.
2.4. Visual Basic for Application.
3. :
3.1. ( ).
3.2. ( , ) :
3.2.1. If.
3.2.2. Select Case.
3.3. () . . .
3.4. .
4. :
|
|
|
4.1. .
4.2. .
4.3. .
4.4. .
4.5. .
4.6. .
5. :
5.1. ?
5.2. .
5.3. .
5.4. If Then Else
5.5. If Then Else End If
5.6. If Then ElseIf Else End If
5.7. Select Case End Select
.
(), (), ().
() , , , .
():
(_1;_2;)
() , , , .
():
(_1;_2;)
, , . , , , . , () #!
:
| A | B | A B | A B |
() () . , , , .
():
(_; __ ; _ _)
_ , . , 10=100 ; 10 100, , .
__ , , _ .
__ , , _ .
. 7 .
VBA.
- , .
VBA :
─ If;
─ Select Case;
─ Goto.
If
, . :
|
|
|
If <1> Then
< 1>
[ElseIf <2> Then
< 2>
[ElseIf <N> Then
< N>]
[Else
< _Else>]]
End If
:
<N> - ;
< N>; - , ;
< _Else> - , .
ElseIf Else - .
, :
If <> Then <>
1 2.
1.
Sub sample1()
Dim value As Long
Const MSG = " , "
value = InputBox(prompt:=" ", Title:=" 1")
If value = 0 Then
MsgBox (MSG & " 0")
ElseIf value > 0 Then
MsgBox (MSG & " 0")
Else
MsgBox (MSG & " 0")
End If
End Sub
2.
Sub sample2()
Dim value As Long
Const MSG = " , "
value = InputBox(prompt:=" ", Title:=" 1")
If value = 0 Then MsgBox (MSG & " 0")
If value > 0 Then MsgBox (MSG & " 0")
If value < 0 Then MsgBox (MSG & " 0")
End Sub
Not, And, Or, Xor, Imp, Eqv ( 3).
3.
' ,
' .
Sub sample3()
Const UNAME = "User"
Const PASSWD = "TopSecret"
login = InputBox(prompt:="")
pass = InputBox(prompt:="")
If (login = UNAME) And (pass = PASSWD) Then
MsgBox (" !")
Else
MsgBox (" !")
End If
End Sub
