Excel VBA编译错误：类型不匹配：缺少数组或用户定义类型

Function A_V_E(ary() As Variant)
arr = Application.Transpose(Application.Transpose(ary))
Dim sumtemp
For Each x In arr
n = n + 1
sumtemp = sumtemp + x
Next
A_V_E = sumtemp / n
End Function

Function St_De(ary() As Variant)
Dim arr()
arr = Application.Transpose(Application.Transpose(ary))
Dim X_ave
X_ave = A_V_E(arr)
Dim sum_x
For Each x In arr
n = n + 1
sum_x = sum_x + (x - X_ave) ^ 2
Next
St_De = Sqr(sum_x / (n - 1))
End Function

Sub test2()
Dim arr()
Dim resault
arr = Array(1, 2, 3, 4)
resault = St_De(arr)
Debug.Print resault
End Sub