1、B1(3) = a(c(i，0)，c(i，1)，std，bgsd).
原因是:妳的函數返回壹個數組，而B1(3)只表示B1數組的第四個元素(下表3)，壹個數組和壹個元素，當然是“類型不匹配”！
B1()或B1表示整個數組。
2、dim B1(3)為字符串
這裏定義的B1數組是String類型，數組返回Single類型，當然是“類型不匹配”！
正確的代碼應該是這樣的:
公共函數a(ByVal a為Single，ByVal b為Single，ByVal c為String，ByVal d為Single)為Single()
Dim ahc() As Single '定義了緩存的經濟技術指標判斷集。
ReDim ahc(3) As Single '重新定義緩存的經濟技術指標判斷集。
.......
A = ahc()'返回壹個數組。
結束功能
私有子命令1_Click()
Dim B1(3)為單個
.........
B1 () = a (c (I，0)，c (I，1)，STD，bgsd)'函數調用，其中c (I，0)C(i，1)是剛剛賦值的數組。
末端接頭
為了幫助妳理解，我再舉壹個例子:
私有子命令1_Click()
將I標註為整數
Dim ary()為整數
“ReDim ary(2)”可以重新定義，但這不是必需的。
i = 2
ary() = fary(i)
打印表格(壹)
末端接頭
公共函數fary(i為整數)為整數()
Dim m(2)為整數
m(0) = i
m(1) = i + 1
m(2) = i + 2
fary = m
結束功能