, . , .
Select Case:
Select Case <>
Case <1> <1>
[Case <2> <2>]
[...]
[Case Else <_Else>]
End Select
Select Case. , . , . :
─ <> - , .
─ <1> To <2> - , .
─ Is <> <> - ( ).
. Select Case 4.
4.
' ,
' Yes, No Cancel;
' ,
' .
Sub sample4()
Const mTitle = " MsgBox"
Dim Resp As Integer
Resp = MsgBox(prompt:=" ", Title:=mTitle, _ Buttons:=vbYesNoCancel + vbQuestion)
Select Case Resp
Case Is = vbYes MsgBox prompt:=" ''", Title:=mTitle, _ Buttons:=vbInformation
Case Is = vbNo MsgBox prompt:=" ''", Title:=mTitle, _ Buttons:=vbInformation
Case Is = vbCancel MsgBox prompt:=" ''", Title:=mTitle, _ Buttons:=vbCritical
End Select
End Sub
GoTo
GoTo VBA - . GoTo:
GoTo <>
:
<> , GoTo.
5. GoTo
'
Sub sample5()
getValue: '
value = InputBox(prompt:=" ")
If (value Mod 2 <> 0) Then GoTo getValue
End Sub
5 , ( 6).
6. GoTo.
Sub sample6()
Do
value = InputBox(prompt:=" ")
|
|
|
Loop While value Mod 2 <> 0
End Sub
1.
>0.1
≤0.1
VBA:
Select Case:
Sub 2_1()
Dim y As Single
Dim x As Single
Dim m As Single
Dim n As Single
Dim S As Single
x = InputBox("x=", " x")
y = InputBox("y=", " y")
m = (7.002 * 0.1 ^ (1 / 3) - 1 + x * (Exp(2) + Exp(-2)) / 10) ^ (1 / 5)
n = Log(3) * (Cos(Application.Pi() / 5) + Cos(3 * Application.Pi() / (5 * y)))
Select Case m ^ 2 + n ^ 2
Case Is > 0.1
S = Atn(5 * m ^ 2 + 7 * n ^ 2)
Case Else
S = Atn(5 * m ^ 2 - 7 * n ^ 2)
End Select
MsgBox ("S=") & S
End Sub
IF..THENELSEEND IF:
Sub 2_2()
Dim y As Single
Dim x As Single
Dim m As Single
Dim n As Single
Dim S As Single
x = InputBox("x=", " x")
y = InputBox("y=", " y")
m = (7.002 * 0.1 ^ (1 / 3) - 1 + x * (Exp(2) + Exp(-2)) / 10) ^ (1 / 5)
n = Log(3) * (Cos(Application.Pi() / 5) + Cos(3 * Application.Pi() / (5 * y)))
If m ^ 2 + n ^ 2 > 0.1 Then
S = Atn(5 * m ^ 2 + 7 * n ^ 2)
Else
S = Atn(5 * m ^ 2 - 7 * n ^ 2)
End If
MsgBox ("S=") & S
End Sub
1. 
, 
2. 
, 
3. 
, 
4. 
, 
5. 
, 
6. 
, 
7. 
, 
8. 
, 
9. 
, 
10. 
, 
11. 
, 
12. 
, 
13. 
, 
14. 
, 
15. 
, 
16. 
, 
17. 
, 
18. 
, 
19. 
, 
20. 
, 
21. 
, 
22. 
, 
23. 
, 
24. 
, 
25. 
, 
 |
26.
, 
27. 
, 
 |
28.
, 
 |
29.
, 
30. 
, 
3
