hi.我朝回来一段代码:
Sub GBM_Process(ByVal n As Long, _
ByVal drift As Double, _
ByVal sigma As Double, _
ByRef process)
Dim z1 As Double, z2 As Double, delta_t As Double, m As Long, drift_t As Double
Dim i As Integer
If 2 * (n / 2) = n Then m = n / 2 Else m = n / 2 + 1