作者idaidai (^^)
看板Visual_Basic
标题[VBA ] 重复模拟1000次
时间Fri Nov 28 10:54:04 2008
想请问各位好手
我要做蒙地卡罗模拟 需重复一千次
我需要的过程写好如下
Sub macro1()
Sheets(Array("sheet1")).Select
With ActiveSheet
Randomize
Dim H, E As Double
For j = 1 To 10000
If Cells(j + 1, 5) < 0 Then
Cells(j + 1, 4).Value = 1
Else
Cells(j + 1, 4).Value = 0
End If
H = 2 * Exp(-7) + 0.03 * Cells(j + 1, 5).Value ^ 2
+ 0.9 * Cells(j + 1, 3).Value
+ 0.02 * Cells(j + 1, 4).Value * Cells(j + 1, 5).Value ^ 2
Cells(j + 2, 3).Value = H
Cells(j + 2, 5).Value = E
E = Application.TInv(Rnd, 6) * Sqr(Cells(j + 2, 3).Value)
Next j
想请问要怎麽写一个回圈让上面的程式重复跑1000次
因为我才刚学VBA一个月 可能问的有点笨 很不好意思
先感激各位的帮忙
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.240.240.137
1F：→ MOONRAKER:再用一个for i=1 to 1000包起来就是了 11/28 11:19
2F：→ idaidai:不好意思 忘记说我要重复跑1000次後 取E这一千次的平均 11/28 11:42
3F：→ idaidai:如果我再用 i=1 to 1000包起来 好像就没有取到平均值了 11/28 11:44
4F：→ disc1002:平均就是加起来在除以加多少 那就是E=(E+???)/次数 11/28 12:17
5F：→ timmy5519:for i = 1 to n : E=E+1 : next i : E =E/n ??? 11/28 13:02