主题：[求助]自定义函数：存在两次执行的问题。

在公示中的代码如下（逐K线模式和日K线模式）：

if ISLASTBAR THEN 
BEGIN
   LZZ:TEST1();
   LWJDK:=1;
END 

在自定义函数中：TEST1的源码如下

Function test1(Formula)
    '系统会在逐周期模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
   
    Set wrd = CreateObject( "Word.Application")
    wrd.Visible = True
    wrd.Documents.Open "D:\Weisoft Stock\systemreport\test.txt"
    Set wrd = Nothing
    test1=10

End Function

结果每次执行

首先显示“已被锁定，不可编辑”，打开副本后；

有时会再一次执行打开步骤，又是“已被锁定，不可编辑”，打开副本

实际上自定义函数执行了两次，还是其他原因，比较困惑。

（我怀疑，实际上刚启动，第一次执行自定义函数，交互数据时它已经暗中打开，所以永远是已被锁定，我删除后重新启动也无法）

请求帮助：

1、解决不可编辑

2、有时两次打开的原因

一个问题没有解决，又出现一个问题。

在自定义函数中加了一个参数TEST1(MSNO);(MSNO=401，为数值数据），编译公式无论如何通不过。

试了TEST1(401),不行；TEST1(MSNO),不行；

重新设个值N:=401，TEST1(N) 也不行。提示错误。

只好将原来的自定义函数CU_MA2改成我需要测试的程序，将TEST1(MSNO)改成CU_MA2(MSNO),则通过编译，正常运行。

请斑竹求助！！！！

目前版本号2.703，

下面为自定义函数源码：

Function CU_MA2(Formula,cyc)
    '得到K线数据对象
 'Set History = Formula.ParentGrid.GetHistoryData()
 '若当前周期尚未到计算周期,不参与计算
 'if Formula.IndexData < cyc-1 then
 ' CU_MA2 = 0
 ' exit function
 'end if
 
 'DataCount = 0
    'for i = Formula.IndexData-cyc+1 to Formula.IndexData
     '累加收盘价
    ' DataCount = DataCount + history.close(i)
    'next
 'CU_MA2 = DataCount / cyc
    Set wrd = CreateObject( "Word.Application")
    wrd.Visible = True
             wrd.Documents.Open "D:\Weisoft Stock\systemreport\test.txt"
        Set wrd = Nothing
     CU_MA2 = 10
End Function

Function test1(Formula,cyc)
    '得到K线数据对象
 application.MsgOut("tttt")
    Set wrd = CreateObject( "Word.Application")
    wrd.Visible = True
             wrd.Documents.Open "D:\Weisoft Stock\systemreport\test.txt"
        Set wrd = Nothing
    test1=10

End Function