三年的定期存款年利率为2.52%. 当按下命令按纽command1时,要求用求用户输入存款金额.计算机自动计算出三年后连本带利的总金额,并显示结果

该程序如何编写........

按复利算？

Private Sub Command1_Click()
Dim c
c = InputBox("您的存款是：", "输入存款", 100)
If IsNumeric(c) And c >= 0 Then
MsgBox "三年后本息共计：" & Format(Val(c) * (1 + 0.0252) ^ 3, "0.000")
Else
MsgBox "你输入的存款有误！"
End If
End Sub

谢谢