Sub期权定价
()Dim i
AsLong
'
将输入的参数的值赋给相应的变量
s0 =
Worksheets(
1).Cells(1, 2)
x =Worksheets(
1).Cells(2, 2)
r =Worksheets(
1).Cells(3, 2)
s =Worksheets(
1).Cells(4, 2)
t =Worksheets(
1).Cells(5, 2)
n =Worksheets(
1).Cells(6, 2)
'
生成表格
Worksheets(1).Cells(1, 4) = "
期数"Worksheets(1).Cells(2, 4) = "
时间（年）
"Worksheets(1).Cells(3, 4) = "
上行乘数
"Worksheets(1).Cells(4, 4) = "
下行乘数
"Worksheets(1).Cells(5, 4) = "
股票价格
"Worksheets(1).Cells(n + 6, 4) = "
执行价格
"Worksheets(1).Cells(n + 7, 4) = "
上行概率
"Wo ...