以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  如何单步调试vbs代码  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=61567)
--  作者：f123wn
--  发布时间：2014/2/12 15:27:05
--  如何单步调试vbs代码
请问如何用f8键单步调试<% %>中的代码？，谢谢 
m1:c; 
m2:c; 
m3:c; 
n1:=5; 
n2:=10; 
n3:=13; 
<% 
vc=ffl.vardata("m1") 
vm1=ffl.vardata("m1") 
vm2=ffl.vardata("m2") 
vm3=ffl.vardata("m3") 
vn1=ffl.vardata("n1") 
vn2=ffl.vardata("n2") 
vn3=ffl.vardata("n3") 

vn1=vn1-1 
vn2=vn2-1 
vn3=vn3-1 

for i=0 to Ubound(vm1) 
  if i>=vn1 then 
     vm1(i)=f(i,vn1) 
  end if 
  if i>=vn2 then 
     vm2(i)=f(i,vn2) \'调用自定义过程(函数)f(i,vn2)
  end if 
  if i>=vn3 then 
     vm3(i)=f(i,vn3) \'调用自定义过程(函数)f(i,vn3)
  end if 
next 

ffl.vardata("m1")=vm1 
ffl.vardata("m2")=vm2 
ffl.vardata("m3")=vm3 

ffl.varStartIndex("m1")=vn1 
ffl.varStartIndex("m2")=vn2 
ffl.varStartIndex("m3")=vn3 

\'以下定义求Y日平均值的函数(过程) 
function f(x,y) 
  sumc=0 

  \'求Y日收盘价之和 
  for j=0 to y 
    sumc=sumc+vc(x-j) 
  next 

  \'函数f返回Y日均价 
  f=sumc/(y+1) 
end function 
%> 
--  作者：王锋
--  发布时间：2014/2/12 15:29:50
--  

PEL中的VBS代码是无法单步跟踪的.

VBA中的宏代码可以的
--  作者：f123wn
--  发布时间：2014/2/12 15:33:06
--  
请问老师，上面的代码如何转为宏代码，谢谢。