各位大大们，请问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