18 lines
523 B
Text
18 lines
523 B
Text
|
Rem �������� ������ ��� �������� ������������ �������� InputBox
|
||
|
|
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Dim result
|
||
|
|
|
||
|
|
result = InputBox("����� ���-������ �/��� ����� �����-������ ��������", "InputTest()")
|
||
|
|
MsgBox result
|
||
|
|
|
||
|
|
'���������:
|
||
|
|
'� ������, � ������ ������ - �������������� ���������.
|
||
|
|
'� result, � ����� �� ���� �������, ����������� �������.
|
||
|
|
'VBS, ��������, �� ����� ������� NULLable.
|
||
|
|
'������� ������ �������� ����� ����������� ��� ������ ������.
|
||
|
|
|
||
|
|
'� � ���������� ������� (������ ����� � ������ OK)
|
||
|
|
'� result ����������� �����.
|