主题：请问这是什么错误啊。搞了几天了

在序列模式下，传输的变量应该注意要区分是序列变量还是单值变量。如果是序列变量，那么传递给VBS自定义函数中的参数就是个数组，你这种调用方式自然是有问题的。应该使用数组的方式读取。

Function readtest(Formula,M)
    '系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
       DataCount = UBound(M)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

'定义一个计算返回的数组
    Dim ResultMa
    Redim ResultMa(DataCount)

    For i = 0 To Formula.DataSize-1

      ResultMa(i) =  document.GetPrivateProfileInt("aa", M(i),0 , "C:\1.ini")
    NEXT

   readtest=ResultMa
 End Function