作者markbaseball (Mark)
看板Visual_Basic
標題[VBA ] 非陳述性結尾
時間Wed Oct 21 10:59:52 2015
各位大大們，請問beta這行出現錯誤非陳述性結尾，但是我抓不出錯誤。
請各位幫忙除錯 謝謝
Sub ROA()
Dim f(v) As Double
Dim A As Integer
Dim v1 As Double
Dim v As Double
Dim beta As Double
Dim f(v) As Double
Dim apsi As Double
Dim eta As Double
Dim sigma As Double
Dim r As Double
Dim psib As Double
Dim theta As Double
A = 0.5
f(v) = (apsiv1 - A) * (v / v1) ^ beta
beta=0.5-eta/sigma^2+((eta/sigma^2-0.5)^2+2r/sigma^2)^0.5
apsi = psib - 1
psib = (beta * theta + beta + theta) / 2 * beta - 1
v1 = (beta / beta - 1) * (1 / apsi) * A
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 163.22.18.73
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1445396395.A.B99.html
1F：推 johnpage: 刪掉 f(v) = (apsiv1 - A) * (v / v1) ^ beta 10/21 11:29
2F：推 manforwan: 換行？ 10/21 12:44
3F：推 johnpage: 語法錯誤 10/21 13:41
4F：→ DVaicky: 2r → 2*r 10/22 21:27