Исправить ошибки в коде - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5