[院校资料]vb-章节05.pptVIP

第五章 程序控制结构 1-1 2-1 3-1 3-2 4-1 4-2 例5.3.5 设银行一年期定期存款利率为2.52%，则10 000元存款在一年到期后的本利合计为10 252元。若按此方式将本利合计反复存入银行，试问多少年后本利合计会翻一番。 Option Explicit Private Sub Form_Click() Dim money As Single, interest As Single, original, n As Integer money = 10000 original = money interest = 0.0252 Do While money original * 2 n = n + 1 money = money * (1 + interest) Loop Print 到第 n 年,存款本利合计翻一番达: money 元 End Sub图5.3.4 程序运行的结果，如图5.3.4所示。 5.3 循环结构 说明：在本例中，由于循环次数无法预知，因此选择使用Do While…Loop循环。本例也可用Do Until…Loop改写如下： Option Explicit Private Sub Form_Click()