m = m & «Товар – » & vbcrlf & f1.tov.Value & vbcrlf

m = m & «Цена за 1 кг – » & vbcrlf & f2.cena.Value & vbcrlf m = m & «Дата заказа – » & date()

MsgBox m

End Sub

Рис. 14.5. Интерфейс анкеты «Заказ товара» с элементами управления для обработки заказа товара

Вывод обработанной информации по приведенной выше программе для кнопки «Информация о заказе» производится с использованием функции MsgBox аналогично выводу информации о товаре для кнопки «Информация о товаре» (рис. 14.6).

Рис. 14.6. Окно сообщения с информацией о заказе

14.2.Задание для выполнения на компьютере

1.Создать cтраницу «Анкета потребителя» с интерфейсом, представленным на рис. 14.1.

124