Essays.club - Получите бесплатные рефераты, курсовые работы и научные статьи
Поиск

Лабораторная работа по "Информатике"

Автор:   •  Май 29, 2018  •  Лабораторная работа  •  279 Слов (2 Страниц)  •  522 Просмотры

Страница 1 из 2

Лабораторная работа №3.

Задание 1.

Создайте пользовательскую форму следующего вида

Напишите программу, которая по нажатию кнопки «Расчет дохода» вычислит сумму, которую получит вкладчик по истечении срока депозита. Сумма рассчитывается по формуле сложных процентов. Далее из полученной суммы вычитается подоходный налог, взимаемый с суммы начисленных по вкладу процентов при условии, что срок депозита более одного года.

Private Sub CommandButton1_Click()

Dim sum As Currency, R As Double, nalog As Double, N As Integer, k As Integer, D As Double, summa_pro As Double

sum = CDbl(TextBox1.Value)

R = CDbl(TextBox2.Value)

N = CInt(TextBox3.Value)

nalog = CDbl(TextBox4.Value)

k = CInt(TextBox5.Value)

D = sum * (1 + R / k) ^ (N * k)

If N <= 1 Then

summa_pro = D - sum

D = D - summa_pro * nalog

End If

TextBox6 = D

End Sub

Задание 2.

На листе Excel приведены данные об инвестиционных проектах. Создайте кнопку на рабочем листе excel, по нажатию которой будет выполняться расчет чистой приведенной стоимости и определение года, в который инвестиционный проект преодолеет точку безубыточности.

Sub Ðàñ÷¸ò()

Dim NPV1 As Currency, P As Currency, r As Integer, n As Integer, cps As Currency, tchk As Integer, i As Integer, nom As Integer, prib As Integer

For nom = 1 To 5

n = Worksheets(2).Cells(nom + 2, 2)

NPV1 = 0

For

...

Скачать:   txt (2.5 Kb)   pdf (48.9 Kb)   docx (11.9 Kb)  
Продолжить читать еще 1 страницу »
Доступно только на Essays.club