以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  请教高手，这个vba怎么写？  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=53999)
--  作者：双保险
--  发布时间：2013/7/16 13:52:48
--  请教高手，这个vba怎么写？
我希望满足条件a（但不满足条件b）的情况下数组bk之后的每个bk【i】都赋值为1，直到满足条件b为止才赋值0.请问这个怎么写？
--  作者：双保险
--  发布时间：2013/7/16 14:58:55
--  
高手在不在啊？
--  作者：rushtaotao
--  发布时间：2013/7/19 11:04:18
--  

赋值直接用=就行了啊

先定义下你需要的变量
--  作者：guotx2010
--  发布时间：2013/7/19 15:46:35
--  
for i = 0 to ubound(bk)
    if a and not(b) then
 bk(i)=1
    else
         bk(i)=0
    end if
next