Книжный интернет-магазин: Вывести название книг с ценой. Указать варианты доставки: курьерская (постоянная цена 800 руб), наложенным платежом (зависит от кол-ва книг и от общей стоимости) и оплата через банк (зависит от стоимости книг). 120 Написать приложение для выбора книг и подсчета общей стоимости. vba

Ответ:Вот пример кода на VBA для Excel, который может использоваться в книжном интернет-магазине. Этот код предполагает, что у вас есть лист Excel с информацией о книгах, и пользователь может выбирать книги и указывать количество каждой книги. Цены и методы доставки устанавливаются в соответствии с вашими требованиями.

vba

Copy code

Option Explicit

Private Sub CalculateTotal_Click()

   Dim totalCost As Double

   totalCost = 0

   ' Цены за доставку

   Const courierPrice As Double = 800

   Dim codPercentage As Double

   Dim bankPercentage As Double

   codPercentage = 0.05  ' Процент за наложенный платеж (5%)

   bankPercentage = 0.03 ' Процент за оплату через банк (3%)

   ' Перебираем строки с выбранными книгами

   Dim i As Integer

   For i = 2 To 10 ' Предполагаем, что данные начинаются со второй строки

       If Cells(i, 2).Value > 0 Then ' Проверяем, выбрана ли книга

           totalCost = totalCost + Cells(i, 3).Value * Cells(i, 2).Value ' Считаем стоимость выбранных книг

       End If

   Next i

   ' Проверяем метод доставки и добавляем соответствующие расходы

   If OptionCourier.Value = True Then

       totalCost = totalCost + courierPrice

   ElseIf OptionCOD.Value = True Then

       totalCost = totalCost + totalCost * codPercentage

   ElseIf OptionBank.Value = True Then

       totalCost = totalCost + totalCost * bankPercentage

   End If

   ' Выводим общую стоимость

   TotalCostLabel.Caption = "Общая стоимость: " & Format(totalCost, "Currency")

End Sub

Это примерный код, который может быть адаптирован к вашим конкретным потребностям. Вы можете изменить расположение и структуру данных, добавить или убрать опции, а также изменить цены и проценты в соответствии с вашими требованиями.

Объяснение:

Сережа ,дело в шляпе .нюхай бебру