看不大懂你的方程式在寫啥，所以只能跟你說遞迴的方式，如下
Sub Main()
MsgBox(Fz(5))
End Sub
Function Fz(ByVal i As Integer) As Double
If i = 0 Then
Fz = 1
Else
Fz = i * Fz(i - 1)
End If
End Function
※ 引述《masto (momo)》之銘言：
: 請輸入專案類型(網站專案或者應用程式專案)：
: fz(i)=fz0+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+1)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+2)**2./2.))))
: fz(I+1)=fz(i)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+2)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+3)**2./2.))))
: fz(I+2)=fz(i+1)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+3)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+4)**2./2.))))
: 接下來要怎麼接要跑個兩百次
: 最後回到3.49
: 請幫忙集思廣益 多謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.73.7.173