逆推算法，算法实例：存款费用计算vb.net代码

问题描述：母亲为儿子sun 4年的大学生活准备了一笔存款，方式是整取零存，规定sun 每个月月底取下一个月的生活费。假设银行年利息为1.71%,计算该母亲每个月至少要存入多少钱？

算法分析：可采用逆推法分析存钱和取钱的过程，因为按照月为周期取钱，所以4年可以分为48个月，并对每个月进行计算。
如果第48个月后sun大学毕业连本带息要取1000元，则要求第47个月银行的存钱金额为：
第47个月月末存款=1000/(1+0.0171/12);
第46个月月末存款=（第47存款+1000）/(1+0.0171/12);
第45月末存款=（第46存款+1000）/(1+0.0171/12);
…….
第2月月末存款=（第3月月末存款+1000）/(1+0.0171/12);
第1月月末存款=（第2月末存款+1000）/(1+0.0171/12);

Public Class frmMoney
    Private Sub btnMoney_Click(sender As Object, e As EventArgs) Handles btnMoney.Click
        '若在M月连续连本带息取N元，需要现在一次性存款多少？
        Dim sngDraw, sngInterest, sngDeposit() As Single
        Dim intMonth, intI As Integer
        Try
            '检测数据的合理性
            If IsNumeric