作者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)