ОСНОВЫ ПРОГРАММИРОВАНИЯ

3. Программа «Вычисление НДС»

Задание. Создать программу «Вычисление НДС (налога на добавленную стоимость)», по которой по введенной процентной ставке налога и суммы (без проверки корректности введенных данных) выводится величина НДС () и сумма без налога. Если товар не облагается налогом, то процентную ставку налога принять за 0.

1.     Запустить VBA и создать новый проект.

2.     Переименовать форму - «Вычисление НДС».

3.     Добавить на форму объекты (для всех неоговоренных специально объектов свойство Font – шрифт Tahoma, размер 12): 

4.     Включить проверку переменных (Option Explicit).

5.     Запрограммировать щелчок на кнопке Выход на завершение программы и сделать ее кнопкой отмены.

6.     Запрограммировать щелчок на кнопке Очистить: в рамке Стоимость все текстовые поля принимают нулевое  значение (пустая строка), включается флажок Облагается налогом (значение True), курсор переводится в текстовое окно для суммы (метод SetFocus): 

        Private Sub CmdClear_Click()       

        ’Текстовые поля обнуляются      

TextSum = "" 

TextNDS = "" 

        TextNewSum = ""      

        ’Ставится флажок     

CheckBox1 = True      ’Курсор ставится в текстовое поле Сумма        

TextSum.SetFocus      End Sub

7.     Запрограммировать щелчок на кнопке Вычислить.         

Примечания.  

§  Поскольку в текстовое поле могут быть ошибочно введены не только цифры, но и другие символы, то прежде чем использовать значение поля в вычислениях, переводим содержимое поля в число (функция Val).

§  Результаты вычислений – вещественные числа с несколькими знаками после запятой. Однако в реальной жизни денежные суммы вычисляются с точностью до сотых (копеек). Поэтому для вывода исходной суммы, НДС и суммы без НДС используем денежный формат (функция Format и аргумент "currency").

        Private Sub CmdCalc_Click()        

        Dim S As Currency, N As Currency, SN As Currency          

'Вычисления 

        S = Val(TextSum)      

        If CheckBox1 Then N = S * Val(TextNDS13) / 100 Else N = 0      

        SN = S – N       

        'Вывод на форму       

TextSum = Format(S, "currency") 

        TextNDS = Format(N, "currency")          

TextNewSum = Format(SN, "currency") 

End Sub  

ОБРАЗЕЦ

3. «Вычисление НДС» (задание 1).

Option Explicit

Private Sub CmdCalc_Click()

Dim S As Currency, N As Currency, SN As Currency

'Вычисления

S = Val(TextSum)

If Check Then N = S * Val(TextNDS13) / 100 Else N = 0

SN = S - N 'Вывод на форму

TextSum = Format(S, "currency")

TextNDS = Format(N, "currency")

TextNewSum = Format(SN, "currency")       

End Sub

Private Sub CmdClear_Click()

TextSum = ""

TextNDS = ""

TextNewSum = ""

Check = True

TextSum.SetFocus

End Sub

Private Sub CmdExit_Click()

End

End Sub