如何單步調(diào)試vbs代碼
作者:金字塔 來(lái)源:cxh99.com 發(fā)布時(shí)間:2015年08月31日
- 咨詢內(nèi)容:
請(qǐng)問(wèn)如何用f8鍵單步調(diào)試<% %>中的代碼?,謝謝 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) '調(diào)用自定義過(guò)程(函數(shù))f(i,vn2) end if if i>=vn3 then vm3(i)=f(i,vn3) '調(diào)用自定義過(guò)程(函數(shù))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日平均值的函數(shù)(過(guò)程) function f(x,y) sumc=0
'求Y日收盤價(jià)之和 for j=0 to y sumc=sumc+vc(x-j) next
'函數(shù)f返回Y日均價(jià) f=sumc/(y+1) end function %>
- 金字塔客服:
PEL中的VBS代碼是無(wú)法單步跟蹤的.
VBA中的宏代碼可以的
- 用戶回復(fù):
請(qǐng)問(wèn)老師,上面的代碼如何轉(zhuǎn)為宏代碼,謝謝。