3.1. ������� ������ ����������
��� ������ ���������� ���������� �������������� ��������� ������:
- ������ ����� �������� ������������ � ����� ������.
- ����� �������� ��������� ���������� �� ����� ������, �� ��������� ����� ����� ���������� (:).
- ���� �������� �� ���������� � ����� ������, �� ���������� ��������� � ����� ������ ������ � ���� ������������� ( _), � ����� ���������� �� ������������� ����� �� ��������� ������.
3.2. �������� ������������
�������� ������������ ������������, ���� �����-�� ���������� ����� ��������� ����� ��������. �� ����� ��������� ���������:
���_���������� = ���������
������� ����������� ��������� � ������ �����, � ����� ��������� ������������� ����������, ������� � ����� �����.
��������. �������� � ������� ��������� ������������ ��������� �������������� ���������:
�� V�� ��� ��������� ����� �������� � ���� ���������� ���������:
Y = a^(1/3)+(a^2+Exp(-b))/(Sin(a)^2-Log(b))
3.3. ��������� �����-������
3.3.1. �������� � ������� MsgBox
�������� MsgBox ������������ ����� ���������� � ���������� ���� � ������������� ����� �������� ������� ������ �������������.
�� ����� ��������� ���������:
MsgBox ���������[,������][, ���������]
���������:
��������� - ������������ ��������, �������� � ���� ��������� �������������� ���������. ����� �������� �� ���������� ��������� �����, ������������ ������ &. ������������� � ���� ��������� Chr(13) �������� � �������� �� ����� ������ ��� ������ ����������.
������ - �������� ����� ��������� ���������� ��������� ������������ � ���� ������. �� �������� ��������� ������ ������� �����, ���������� �� � ���� �����-���� ������. ���� �� �������, ����� ������ ���������� ���������� � ���� ���������, �� ������������ �������� �� ���������, ��������������� ������ ��. � ����. 3.1 ��������� ��������� ���������� ������ � ������� � ���� ���������.
��������� - ������ ��������� ����.
������� MsgBox ���������� �������� ���� Integer, �����������, ����� ������ ���� ������ � ���������� ����.
������� 3.1. ���������� �������� ���������� ������
����������� |
�������� |
������ �� |
VbOKOnly |
������ �� � ������ |
VbOKCancel |
������ �� � ��� |
VbYesNo |
������ ��, ��� � ������ |
VbYesNoCancel |
������ ����������, ��������� � ������������ |
VbAbortRetryIgnore |
������ ��������� � ������. |
VbRetryCancel |
�������������� ���� |
VbInformation |
���� |
VbCritical |
���� ������� |
VbQuestion |
���� ����������� |
VbExclamation |
��������. ������� ��������� � ������� ����.
��� ����� ����� ������������ ��������� ��������:
MsgBox "������� �� ���������" & Date , , "��������"
� ���������� ����� �������� ��������� ���� (���.3.1).
���. 3.1
����� ������ �� ������ �� ���� ��������� ���������, � ���������� ��������� ������������ � ���������, �������� ��������������� �� ������� MsgBox.
3.3.2. ������� InputBox
������� InputBox ������������ ���� �������� ���������� � ������� ���� ����� � ����� ��������� ���������:
���_���������� = InputBox( ���������[, ���������])
���������:
��������� - ������������ ��������. ������ � ���� �������������� ���������, ������ ���������� ����� �������� ��������
��������� - ������ ��������� ����.
��������, ������ �������� ���������� N � ����������, ������������ �������� �� ��������� ������ 10.
��� ����� ����� ������������ ��������� ��������:
N = InputBox("������� N", "���� �������� ������",10)
� ���������� ����� �������� ��������� ���� ��� ����� �������� ���������� N (���.3.2).
���� �������� �� ��������� �������� ������������, �� ����� ������ ������ �� ���� ����� ���������, ���������� N ���������� �������� 10 � ���������� ��������� ������������ � ���������, �������� ��������������� �� ������� InputBox.
���� �� �������� �� ��������� �� �������� ������������, �� ����� ������� �� ������ �� ���������� ������ ������ �������� ���������� N.
3.4. �������� �������� IF
��� ���������� ���������������� ��������������� �������� � VBA ������������ �������� If…Then…Else, ������� ������������ ����� ���������� ����� �������� �������. �� ����� ��������� ���������:
If ������� Then ��������_1 Else ��������_2
��������_1 �����������, ���� ������� �������, � ��������� ������ ����������� ��������_2. ��� ���� �������� If…Then…Else ������������ � ���� ������.
������� – ��� ��������� ����������� ����. ��������� ��������� ������ ����� ��������� ���. ��������� ����� ���� ������� � �������. ��� ������ ������� ������� ����� �������������� ��� ��������� �������� ���������, ��������� � ����. 3.2.
������� 3.2. ���������� ���������
�������� |
�������� |
��������� |
��������� |
= |
����� |
A = � |
True, ���� � ����� � |
<> |
�� ����� |
A<>� |
True, ���� � �� ����� � |
> |
������ |
�>B |
True, ���� � ,������ � |
< |
������ |
A<B |
True, ���� � ������ � |
>= |
������ ��� ����� |
A>=B |
True, ���� � ������ ��� ����� � |
<= |
������ ��� ����� |
A<=B |
True, ���� � ������ ��� ����� � |
������� ������� ���������� �� ������� ����� ���������� ���������� �������� � ������� ������. ������ ���������� �������� �������� � ����. 3.3.
������� 3.3. ���������� ��������
|
�������� |
��������� |
� |
� |
��������� |
Not |
���������� |
Not A |
False True |
|
True False |
And |
���������� � |
A And B |
True True False False |
True False True False |
True False False False |
Or |
���������� ��� |
A Or B |
True True False False |
True False True False |
True True True False |
� �������� ��������� ��������� ������������� ����� ���������� ������ ������ �� ����������. � ���� ������ �������� �������� ����� ���:
If ������� Then
����_����������_1
Else
����_����������_2
End If
� �������� ��������� ����� ����������� ��������� �������. � ���� ������ �������� �������� ����� ���:
If �������_1 Then
����_����������_1
ElseIf �������_2 Then
����_����������_2
Else
….
End If
������ 1. �������� ����� ��������� ��� ��������� �� ���. 3.3.
������ 2. �������� ����� ��������� ��� ��������� �� ���. 3.4.
3.5. �������� ������ Select Case
�������� Select Case ������ ������������, ����� � ����������� �� �������� ���������� ���������, �������� �������� ��������� ���������� ��������, ���������� ��������� ������ ��������. �� ����� ��������� � �������� ����������, �� ����� ������ ���:
Select Case �����������_���������
Case ��������_1
���������_1
Case ��������_2
���������_2
. . .
Case ��������_N
���������_N
[Case Else
�����_���������]
End Select
�����������_��������� ����� ����� ����� ��������� ���, ����� �������������. �������� ������� �� ������������� ���������� �������� ��� ����������, ���������� ���� �� ����� ��������.
��� �������� ������ ��������� � ����� ������������_���������.
������� ����������� �����������_���������. ���� ��� �������� ��������� � ����� �� �������� ��������_I, �� ���������� ���������_I � ���������� ���������� ���������, �������� ����� End Select. ���� ��� �������� �� ��������� �� � ����� �� �������� ��������_I, �� ���������� �����_��������� � ���������� ���������� ���������, �������� ����� End Select
��������. �������� ����� ��������� ��� ��������� �� ���. 3.5, ������������� �������� ���������� S � ����������� �� �������� ���������� n.
3.6. ��������� �����
��� ���������� ������������ ��������������� ��������, �. �. ������������� ���������� ������ ��� ���������� ����������, ������ �������� ����� For…Next, ������� ����� ��������� ���������:
For �������=���_�������� �o ���_�������� Step ���
����_����������
[Exit For]
����_����������
Next �������
���� For…Next ���������� �������� ���������� �������, ������� �������� ���������� �����, �� ���������� �� ��������� �������� � ��������� ����� ���������. ��� ���� �������������� ���������� ����� ���������� ���� ����� ��� ������ ����� �������� ��������. ���� Step ��� � ����������� �����������, �� �� ��������� ���������, ��� ��� ����� 1. �� ��������� Exit For ����� ����� �� ��������� ����� �� ����, ��� ������� ��������� ���������� ��������.*
��� �������� �������� �� ������ �������� ��������, ��������, ����� �� ��������� ��� ��������� �������, ������ ������������ �������� ����� For… Each…Next.
For Each ������� In ������
����_����������
[Exit For]
����_����������
Next �������
� VBA ��� ����������� ������ � ����������� ������� ������ ���������� ������������ � ������ ��������� �����:
����� � ������������ – Do While … Loop,
Do Until … Loop;
����� � ������������ – Do … Loop While,
Do … Loop Until.
���� �������� ��������� ���� ���������� �����:
' ���� � ������������ Do While … Loop
Do While �������
����_����������
[Exit Do]
����_����������
Loop
����������. �� ������������� ������������� �������� �������� ��������� �����, ��� ���������� � ��������� �������� � ���� ����� For…Next.
' ���� � ������������ Do Until … Loop
Do Until �������
����_����������
[Exit Do]
����_����������
Loop
' ���� � ������������ Do … Loop While
Do
����_����������
[Exit Do]
����_����������
Loop While �������
' ���� � ������������ Do … Loop Until
Do
����_����������
[Exit For]
����_����������
Loop Until �������
�������� Do While…Loop ������������ ������������ ���������� ����� ���������� �� ��� ���, ���� ������� �����������, � �������� Do Until…Loop ���� ������� �� �����������. ��������� Do…Loop While, Do…Loop Until ���������� �� ������������� ���� ���������� ���, ��� ������� ���� ���������� ����������� �� ������� ���� ���� ���, � ����� ����������� �������.
��� ��������� ������������ � ���� ����� ������ ���� ���� �� ���� ��������, ������� �������� �������� ����������, ������� � �������.
�������� Exit Do ������������ ��������� ����� �� ��������� �����.