Сумма вклада - VB

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

Уважаемые. Уделите минуту своего опыта и времени и поделитесь своими знаниями, пожалуйста. В VB толком ничего не понимаю (только "азы). Есть задача: Составить программу, которая рассчитывает сумму вклада через t лет при p процентах годовых в случае простых процентов: SПП = S0· (1 + p/100 - t) и в случае сложных процентов: SСП = S0· (1 + p/100 )^t по задаваемым начальной сумме вклада S0, количеству лет t и процентной годовой ставке р. Понимаю, что для знающих это 5-10 мин делов. Буду очень благодарен и признателен, если кто-то сделает. Спасибо за Ваше внимание.

Решение задачи: «Сумма вклада»

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

                            Private Sub Command1_Click()
Dim s As Double
Dim n As Integer
Dim God As Integer
Dim T, MAX As Double
 
s = InputBox("ГўГўГҐГ¤ГЁГІГҐ Г±ГіГ¬Г¬Гі Г¤ГҐГ*ГҐГЈ ГЇГ®Г¬ГҐГ№Г*ГҐГ¬ГіГѕ  в банк")
T = InputBox("ГўГўГҐГ¤ГЁГІГҐ ГЇГ°Г®Г¶ГҐГ*ГІ ГўГЄГ«Г*Г¤Г*")
God = 0
n = 0
MAX = 2 * s
List1.AddItem "В№ ГЏ/ГЏ" & vbTab & "ГѓГ®Г¤" & vbTab & "Г‘ГіГ¬Г¬Г*"
Do While s <= MAX
s = Round(s * (1 + T * God / 100), 2)
n = n + 1
List1.AddItem n & vbTab & God & vbTab & s
God = God + 1
Loop
 
End Sub
                        