查看Vbs扩展的源代码

=VBS应用示例3=

例如想编一个统记的指标： 
求个股历史上股价每天波动的价位数值中出现最多的几个波动值。 
例如 0001 从过去到现在每天涨跌0.21元占股价每天波动的价位数值出现的45%（最多）。

这在传统的公式编制中是较难实现的，但有了VBS接口，我们可以通过vbs编程来实现。
公式源代码如下： 

 foxbd:=high-low; 
 foxbfb:=0; 
 <% 
 vbsbd=ffl.vardata("foxbd") 
 i=ffl.vardata("foxbfb") 
 'n可用于确定最大值出现的比率，等等 
 n=ubound(vbsbd) 
 '以下为比较法排序，降序排序后，最后一个数据vbsbd(n)为最大值 
 for k=0 to n-1
   for j=k+1 to n 
     if vbsbd(k)>vbsbd(j) then 
        x=vbsbd(k) 
        vbsbd(k)=vbsbd(j) 
        vbsbd(j)=x 
        i=j 
     end if 
   next 
 next 
 msgbox("最大波值发生在离最后时间的周期数为：" & cstr(i)) 
 ffl.vardata("foxbd")=vbsbd 
 ffl.vardata("foxbfb")=i 
 %> 
 最大波动值:foxbd; 
 离本周期:foxbfb; 

说明： 
　　
　　1、输出的实际最大值，在最后一个周期，为避免麻烦，可取消信息框msgbox。 
　　2、VBS脚本中，排序采用了最笨的标准算法，如计算600601等则较慢，采用递归算法，速度将会大大提高。 
　　3、VBS的代码中，i用于确定发生最大值的位置（一般可能发生多次，应使用数组），但输出到公式系统后，foxbfb居然不变，估计是因为foxbfb为常数的缘故，非数组变量不能与VBS相互传递？看来又得给wilson添加麻烦了。 
　　4、公式可设计为某个时段，可在公式参数中体现，再对代码进行补充修正。