1. Запустить на выполнение VB для создания нового проекта.
2. Построить форму согласно проекту.
3. Дважды щелкнуть на форме и в открывшемся окне кода в заготовку процедуры Form_Load ввести ее тело, т.е. операторы:
txtНачало = Date
lblрзтОкончание = Date + КД
4. В окне кода в поле со списком Object выбрать элемент General, чтобы перейти в раздел общих описаний формы и там ввести описание константы КД (Const КД =7).
5. В окне кода в поле со списком Object выбрать элемент txtНачало, а в поле со списком Procedure – событие «LostFocus» и в заготовку процедуры txtНачало_LostFocus ввести ее тело, т.е., оператор:
lblрзтОкончание =СDate(txtНачало)+ КД
6. В окне кода в поле со списком Object выбрать элемент «сmdВычислить», а в поле со списком Procedure – событие «Click» и в заготовку процедуры сmdВычислить_Click ввести ее тело.