作者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/cn.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