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

Лабораторная работа №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