26 lines
623 B
Text
26 lines
623 B
Text
|
Rem ����������, ��������� � ��.
|
||
|
|
||
|
'��� �����������.
|
||
|
Rem � ��� �����������.
|
||
|
Rem � � ������� �������
|
||
|
Rem Option Explicit
|
||
|
Rem ����� �������, ����� ���������� ������
|
||
|
Rem ��� ����������� �� ����������� �����������.
|
||
|
Rem ������ ������ �� �����, �.�. ������ ����������������.
|
||
|
Rem �� � ��� ���� ������ ����������� ���������� name.
|
||
|
Rem ���� �� ������!
|
||
|
|
||
|
Dim a, b
|
||
|
|
||
|
a = "������!"
|
||
|
b = 10
|
||
|
|
||
|
MsgBox a
|
||
|
MsgBox b
|
||
|
MsgBox a & " " & b
|
||
|
|
||
|
name = InputBox("��� ���� �����?", "��������")
|
||
|
result = MsgBox("������, " & name & "!", vbOKCancel, "�������� ����������")
|
||
|
Rem MsgBox "����!", vbOK, "�������� ����������"
|
||
|
MsgBox "����!"
|