作者jova9350796 (我被遗忘在哪)
看板Visual_Basic
标题[VBA ] 回圈问题
时间Thu Oct 23 00:37:54 2008
目前在设计一种投资方式
假设退休时为60岁 持有股票比例为60%
我要逐年下降比例
下降的方式为每隔u年(3~7年) 直到100岁
下降比例为k%(1%~3%)
所以共有15种组合
第一种为60岁每隔3年下降1%
也就是63岁股票比例59%,66岁股票比例58%,以此类推
请问要如何用回圈写出 每隔u年就下降k% ?
目前想法为
For u = 3 to 7 '每隔几年
For k = 0.01 to 0.03 '下降比例
For i = 1 To t '每种组合模拟t次
For j = 1 To (100-60+1) '退休期间
For a = 1 To Int(41/u)
If j = 1 Then
initialratio(j) = 60%
Else
If j = a * u + 1 Then '如果碰到u的倍数年即比其依前一期少k%
initialratio(j) = initialratio(j - 1)-k
End If
Next a
Next j
Next i
Next k
Next u
我觉得写的不是很好,请问有更好的表达方式吗?
感谢帮忙初学者!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 119.14.154.158
※ 编辑: jova9350796 来自: 119.14.154.158 (10/23 00:39)
※ 编辑: jova9350796 来自: 119.14.154.158 (10/23 00:44)
※ 编辑: jova9350796 来自: 119.14.154.158 (10/23 01:02)