楼主: zhousummit
6879 4

[求助]为什么运行里面的宏程序,电脑显示“参数不可选”? [推广有奖]

  • 0关注
  • 0粉丝

小学生

85%

还不是VIP/贵宾

-

威望
0
论坛币
1 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
160 点
帖子
10
精华
0
在线时间
6 小时
注册时间
2006-11-27
最后登录
2021-1-11

楼主
zhousummit 发表于 2009-5-7 16:33:00 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
初学VBA做期权定价公式的程序,可用数据如下:
Current stock price (s) $ 18,75

Divident yield (di) 0

Volatility of stock return (sd) (historical volatility) 0,3

Strike price (x) $ 35

Time to expiration (t) years 5

Risk-free rate (rf) % 0,0602

Number of steps (n) 1000



VBA codes:

Function Euro_call(s, di, sd, x, t, rf, n)
'calculate price of a Europeran call option by Binomial tree model'

Dim u As Double
Dim d As Double
Dim p As Double
Dim bicomp As Double
Dim sumbi As Double
Dim h As Double
Dim j As Integer

'calculate u,d,p'

h = t / n
u = Exp(sd * Sqr(h))
d = Exp(-1 * sd * Sqr(h))
p = (Exp((rf - di) * h) - d) / (u - d)

'calculate expected call payoff at time t'

For j = 1 To n
bicomp = Application.Combin(n, j) * (p ^ j) * ((1 - p) ^ (n - j)) * Application.Max(s * (u ^ j) * (d ^ (n - j)) - x, 0)
sumbi = sumbi + bicomp

Next j

'calculate call price = PV of expected payoff'

Euro_call = sumbi * Exp(-1 * rf * t)

End Function

为什么运行上面的宏程序,电脑显示“参数不可选”?
急用,在线等,谢谢各位大侠!
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:参数不可选 宏程序 Application Volatility historical 运行 程序 电脑 参数不可选

沙发
激情创业者 发表于 2009-5-7 16:38:00
提示: 作者被禁止或删除 内容自动屏蔽

藤椅
zhousummit 发表于 2009-5-7 17:33:00
谢谢!请问有大侠帮帮忙不?

板凳
controlpane1 在职认证  发表于 2009-5-8 02:36:00
可以用啊,不过算的结果是0,哪里出错了吧

报纸
zjcss 发表于 2009-5-8 09:23:00

肯定是有问题,

我自横刀向天笑,笑完我就去睡觉/手拿菜刀砍电线,一路火花带闪电 /

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-1-1 17:49