Second_magistr / ВЕБ-програм / Lab8_web_Yermolenko

Order Form Заполните форму заказа Здесь можно прикупить книжек: и Вам польза и автору на чай :)

Фамилия Имя Отчество

Полный адрес Заказываемая книга Нильсен М., Ченг И. Квантовые вычисления 330 руб Рассел С. Норвиг П. Искусственный интеллект 210 руб Хэйкин С. Нейронные сети Полный курс 220 руб Прескилл Д. Квантовая информация и квантовые вычисления 310 руб Cпособ оплаты Наличный расчет

Оплата картой

Webmoney

Способ доставки Самовывоз Доставка курьером 100 руб Доставка почтой 150 руб Дальность доставки Москва 10 руб Московская область 30 руб Европейская часть России 50 руб Сибирь 80 руб Дальний Восток 140 руб

Количество экземпляров

Информировать о новых поступлениях

transp = 0 bookc = 0 delivery = 0 qntt = 1 SUB Radio_1_Clicked() transp = 0 END SUB SUB Radio_2_Clicked() transp = 100 END SUB SUB Radio_3_Clicked() transp = 150 END SUB SUB bookselekted(obj) Select Case obj Case "Andr" bookc = 330 Case "Ker1" bookc = 210 Case "Ker2" bookc = 220 Case "Dick" bookc = 310 End Select END SUB SUB farnotfar(obj) Select Case obj Case "Mscw" delivery = 10 Case "Mscd" delivery = 30 Case "Eurp" delivery = 50 Case "Sibr" delivery = 80 Case "East" delivery = 140 End Select END SUB SUB quantity(obj) qntt = obj END SUB SUB Finalcost() MsgBox "К оплате "&transp + bookc*qntt + delivery&" руб." END SUB