Исправить ошибки в коде - VB
Формулировка задачи:
Pojalusta pomogite naiti oshibku ne idet nikak
Решение задачи: «Исправить ошибки в коде»
textual
Листинг программы
Private Sub cmdCalculate_Click() Dim Principal As Currency Dim InterestRate As Double Dim InterestEarned As Currency Dim FutureValue As Currency Dim RatePerPeriod As Double Dim NumberOfPeriods As Integer Dim CompoundType As Integer Dim i As Double Dim n As Integer Principal = CCur(txtPrincipal.Text) InterestRate = CDbl(10.65) / 100 ' InterestRate = CDbl(txtInterestRate.Text) nado vsegda vvodit cifri ina4e ne rabotaet' If optMonthly.Value = True Then CompoundType = 12 ElseIf optQuarterly.Value = True Then CompoundType = 4 ElseIf optSemiannually.Value = True Then CompoundType = 2 Else CompoundType = 1 End If NumberOfPeriods = CInt(3) 'Toje samoe' i = InterestRate / CompoundType n = CompoundType * NumberOfPeriods RatePerPeriod = InterestRate / NumberOfPeriods FutureValue = Principal * ((1 + i) ^ n) InterestEarned = FutureValue - Principal txtInterestEarned.Text = FormatCurrency(InterestEarned) txtAmountEarned.Text = FormatCurrency(FutureValue) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д