# BETA 方法
BETA(array1,array2)
求array1,array2的贝塔系数，该系数表明A1每变动1%,则A2将变动V%
示例
Dim d '创建一个变量
'创建Array外部对象，将对象实例置变量d中
Set d = CreateObject("Stock.Array")
d.AddBack(4)
d.AddBack(5)
d.AddBack(6)
d.AddBack(7)
d.AddBack(2)
d.AddBack(1)
d.AddBack(4)
d.AddBack(5)
d.AddBack(1)
d.AddBack(8)
d.AddBack(3)
Dim c
Set c = CreateObject("Stock.Array")
c.AddBack(1)
c.AddBack(5)
c.AddBack(6)
c.AddBack(7)
c.AddBack(3)
c.AddBack(3)
c.AddBack(4)
c.AddBack(5)
c.AddBack(1)
c.AddBack(2)
c.AddBack(3)
msgbox fun.beta(c,d)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
应用于