Вычисление накопленной суммы по выданному кредиту с использованием формулы простых процентов - VB

Формулировка задачи:

Создать проект для вычисления накопленной суммы по выданному кредиту с использованием формулы простых процентов: S=P*(1+i/100*t/m) где S-значение накопленной суммы;i-номинальная годовая процентная ставка;t-ставка кредита (может задаваться в годах, кварталах, месяцах, днях); способ задания срока кредита выбирается из списка; m-коофициент, значение которого зависит от способа задания срока кредита (m=1, если срок кредита задан в годах,m=4, если срок кредита задан в кварталах,m=12, если срок кредита задан в месяцах,m=360 или 365, если срок кредита задан в днях)

Решение задачи: «Вычисление накопленной суммы по выданному кредиту с использованием формулы простых процентов»

textual
                            Листинг программы 
                        

                            Dim S As Single, P As Single, t As Integer, i As Single, m As Integer
Private Sub Form_Load()
   List1.AddItem "Год"
    List1.AddItem "Квартал"
    List1.AddItem "Месяц"
    List1.AddItem "День"
End Sub
 
 
Private Sub List1_Click()
    Select Case List1.Text
    Case "Год"
     m = 1
     Case "Квартал"
     m = 4
       Case "Месяц"
       m = 12
         Case "День"
         m = 360
         End Select
    
End Sub
Private Sub Command1_Click()
      P = Text2.Text
    i = Text3.Text
S = P
    For t = 1 To m
    S = P + P * (1 + i / 100 * t / m)
    Next
Text1.Text = S
End Sub
                        