用vb来编写,计算存款利息.当本金为10000(p),年利率为0.125®时每年复利计息一次,计算10年本利合计是多

求大家帮帮忙

Private Sub Form_Click()
p = 10000
r = 0.125
Print "p=" & p
Print "r=" & r
For i = 1 To 10
p = p * (1 + r)
Next
p = Format(p, ".00")
Print "Sum=" & p
End Sub

参考资料:如果您的回答是从其他地方引用,请表明出处

温馨提示:答案为网友推荐,仅供参考