Помогите пожалуйста найти ошибку в написаной программе - Форум
Среда, 07.12.2016, 11:38
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста найти ошибку в написаной программе (до 24.05 VBA)
Помогите пожалуйста найти ошибку в написаной программе
MariNETAДата: Пятница, 21.05.2010, 14:19 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Составить программу, реализующего вычислительный процесс по определению суммы возврата кредита с уплатой процентов банку по истечению срока действия кредитного договора. Предусматривается выплата по процентам в конце действия кредитного договора.
Option Explicit 'Обязательное объявление переменных
Const t = 2 'Срок кредитования в месяцах

Private Sub cmdВыход_Click() 'Щелчок по кнопке "Выход" завершает работу приложения
Unload Me
Set FrmКредит = Nothing
End Sub

Private Sub cmdПечать_Click()
Me.PrintForm 'Выдача на печать графического образа формы с результатами расчета
End Sub

Private Sub TextВозврат_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'Объявление переменных
DimcurСумКредит As Currency, curГодПроц As Currency, curСумПроц As Currency, curВозвратКред As Currency

'Присваивание переменным значений введенные в текстовые поля TextBox
curСумКредит = CCur(txtКредит)
curГодПроц = CCur(txtСтавка)

'Вычесление платежей по процентам и общей суммы возврата средств банку
curСумПроц = curСумКредит * curГодПроц / 100 'Вычесление платежей по процентам
curВозвратКред = curСумКредит + curСумПроц 'Вычесление общей суммы возврата средств банку

'Вывод результата
txtВозврат.Text = Format(curВозвратКред, "# ### ##0.00") 'Формируем строковый тип

End Sub

Private Sub UserForm_Initialize()
txtДата2.Text = Format(Date + 60, "dd/mm/yyyy") 'Формируем строковый тип
txtДата1.Text = Now 'Текущая дата и время заключения кредитного договора
End Sub

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста найти ошибку в написаной программе (до 24.05 VBA)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016