5、执行完循环后,我们需要的所有运算都完成了,接着要做的是把VBS中的结果送回到飞狐公式系统中。
ffl.vardata("spj")=vspj--按字面上通俗理解,本行意思是通过接口ffl.vardata(),让飞狐公式系统中的序列变量spj等于vbs中的数组vspj,即VBS中的数据传递到飞狐公式系统。
6、飞狐公式系统输出spj,注意此时的spj已经不等于原来的序列收盘价了。
通过以上解释,你明白了吗？可以实际动手操作了,不过别急,由于飞狐的VBS尚存在BUG,上述代码运行时会出现非法操作,问题出在vspj(i)=vspj(i)*1.1,直接乘以1.1有问题,待以后飞狐完善后就没问题啦,目前需把代码稍作修改,如下：
spj:=close;
n=1.1;
<%
vspj=ffl.vardata("spj")
'下面一行,把公式系统中的常量n传到VBS中的变量vn
vn=ffl.vardata("n")
last=ubound(vspj)
for i=0 to last
vspj(i)=vspj(i)*vn
next
ffl.vardata("spj")=vspj
%>
vspj
上述代码中,有一行以半角单引号“'”开始的VBS注释语句,注释语句不会被执行,仅起注解代码的作用。编写公式时,应养成在适当代码处,插入注释语句的良好习惯。以免将来自己也看不懂代码,更谈不上修改、改进公式代码。
现在开始动手输入并建立以上公式。在飞狐的界面中按Shift+W,调出管理面板,鼠标点正文的“公式”,调出公式管理面板,鼠标右击“技术指标”,建一个新的公式组“VBS学习”,然后鼠标右击“VBS学习”新建一个公式,公式名称“VBS公式1”,然后逐行输入上述公式代码,不要偷懒哟（来个“复制”、“粘贴”最轻松了,但学完就忘）,一行一行的从键盘输入,校对无误后,点“确定”保存公式,随便调一个
股票的K线,然后键盘输入vbs即从键盘精灵中发现刚才的公式名称,选中它,就可看到你的公式输出的曲线。
练习：
1、用vbs设计一个公式,输出收盘价相对应的跌停价位。
2、用vbs设计一个公式,计算每日的换手率,提示：利用公式系统中的流通盘函数CAPITAL或FINANCE(N),注意这两个函数的单位不同。